forked from KolibriOS/kolibrios
Test C--
git-svn-id: svn://kolibrios.org@1848 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
parent
b544cbacf0
commit
0c96c62ef9
@ -822,7 +822,7 @@ G01:
|
|||||||
}
|
}
|
||||||
else IF(tok==tk_from){
|
else IF(tok==tk_from){
|
||||||
NextTok();
|
NextTok();
|
||||||
SHOW("count = DoFrom(1);\n");
|
WRITESTR("count = DoFrom(1);\n");
|
||||||
i=size*elements;
|
i=size*elements;
|
||||||
i-=count;
|
i-=count;
|
||||||
loop(i)OP(byte 0);
|
loop(i)OP(byte 0);
|
||||||
@ -830,7 +830,7 @@ G01:
|
|||||||
}
|
}
|
||||||
else IF(tok==tk_extract){
|
else IF(tok==tk_extract){
|
||||||
NextTok();
|
NextTok();
|
||||||
SHOW("count = DoExtract(1);\n");
|
WRITESTR("count = DoExtract(1);\n");
|
||||||
i=size*elements;
|
i=size*elements;
|
||||||
i-=count;
|
i-=count;
|
||||||
loop(i)OP(byte 0);
|
loop(i)OP(byte 0);
|
||||||
|
@ -1,6 +1,4 @@
|
|||||||
//===== ƒ«®¡ «ìë¥ ª®áâ âë
|
//===== ƒ«®¡ «ìë¥ ª®áâ âë
|
||||||
#define SHOW "WRITESTR"
|
|
||||||
// ----
|
|
||||||
#define STD_INPUT_HANDLE -10
|
#define STD_INPUT_HANDLE -10
|
||||||
#define STD_OUTPUT_HANDLE -11
|
#define STD_OUTPUT_HANDLE -11
|
||||||
#define STD_ERROR_HANDLE -12
|
#define STD_ERROR_HANDLE -12
|
||||||
|
@ -108,7 +108,7 @@ dword diskout; // Handle
|
|||||||
byte exefile[FILENAMESIZE];
|
byte exefile[FILENAMESIZE];
|
||||||
{
|
{
|
||||||
wsprintfA(#exefile,"%s.EXE",#rawfilename);
|
wsprintfA(#exefile,"%s.EXE",#rawfilename);
|
||||||
SHOW(#exefile);
|
WRITESTR(#exefile);
|
||||||
diskout=_lcreat(#exefile,0);
|
diskout=_lcreat(#exefile,0);
|
||||||
IF(EAX==0){
|
IF(EAX==0){
|
||||||
wsprintfA(#mapstr,"ERROR, unable to create output file %s.\n",#exefile);
|
wsprintfA(#mapstr,"ERROR, unable to create output file %s.\n",#exefile);
|
||||||
|
Loading…
Reference in New Issue
Block a user