paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-14 13:31:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

* merged

Browse Source
This commit is contained in:
Jonas Maebe 1999-07-05 11:56:55 +00:00
parent 16c4fcb95d
commit af1334174b
2 changed files with 18 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/cgai386.pas
View File

@ -256,7 +256,7 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
internalerror(7453984);
end;
{$ifdef jmpfix}
{$ifdef nojmpfix}
procedure emitjmp(c : tasmcond;var l : pasmlabel);
var
ai : Pai386;
@ -271,7 +271,7 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
exprasmlist^.concat(ai);
end;
end;
{$else jmpfix}
{$else nojmpfix}
procedure emitjmp(c : tasmcond;var l : pasmlabel);
var
ai : Pai386;
@ -286,7 +286,7 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
ai^.is_jmp:=true;
exprasmlist^.concat(ai);
end;
{$endif jmpfix}
{$endif nojmpfix}
procedure emit_flag2reg(flag:tresflags;hregister:tregister);
var
@ -3112,7 +3112,13 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
end.
{
$Log$
Revision 1.10 1999-07-04 21:59:30 jonas
Revision 1.11 1999-07-05 11:56:56 jonas
* merged
Revision 1.5.2.4 1999/07/04 23:55:52 jonas
* changed {$ifdef jmpfix} to {$ifndef nojmpfix}
Revision 1.10 1999/07/04 21:59:30 jonas
* merged
Revision 1.5.2.3 1999/07/04 21:50:17 jonas

11
compiler/i386asm.pas
View File

@ -515,11 +515,11 @@ uses
var
i : longint;
begin
{$ifdef jmpfix}
{$ifndef nojmpfix}
if is_jmp then
dec(PasmLabel(oper[0].sym)^.refs)
else
{$endif jmpfix}
{$endif nojmpfix}
for i:=1 to ops do
if (oper[i-1].typ=top_ref) then
dispose(oper[i-1].ref);
@ -1524,9 +1524,14 @@ end;
end.
{
$Log$
Revision 1.14 1999-07-04 21:59:31 jonas
Revision 1.15 1999-07-05 11:56:55 jonas
* merged
Revision 1.12.2.3 1999/07/04 23:55:50 jonas
* changed {$ifdef jmpfix} to {$ifndef nojmpfix}
Revision 1.14 1999/07/04 21:59:31 jonas
* merged
Revision 1.12.2.2 1999/07/04 21:50:16 jonas
* everything between {$ifdef jmpfix}: