paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 13:49:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed exit()

Browse Source
This commit is contained in:
peter 1999-04-17 13:10:58 +00:00
parent 9238eb8e36
commit 73fe4aa80e
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/cg386flw.pas
View File

@ -452,6 +452,7 @@ implementation
emitlab(truelabel); emitlab(truelabel);
exprasmlist^.concat(new(pai386,op_const_reg(A_MOV,S_B,1,R_AL))); exprasmlist^.concat(new(pai386,op_const_reg(A_MOV,S_B,1,R_AL)));
emitjmp(C_None,aktexit2label); emitjmp(C_None,aktexit2label);
emitlab(falselabel);
exprasmlist^.concat(new(pai386,op_reg_reg(A_XOR,S_B,R_AL,R_AL))); exprasmlist^.concat(new(pai386,op_reg_reg(A_XOR,S_B,R_AL,R_AL)));
goto do_jmp; goto do_jmp;
end; end;
@ -797,7 +798,10 @@ do_jmp:
end. end.
{ {
$Log$ $Log$
Revision 1.31 1999-04-14 09:14:46 peter Revision 1.32 1999-04-17 13:10:58 peter
* fixed exit()
Revision 1.31 1999/04/14 09:14:46 peter
* first things to store the symbol/def number in the ppu * first things to store the symbol/def number in the ppu
Revision 1.30 1999/03/05 16:14:59 peter Revision 1.30 1999/03/05 16:14:59 peter