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

* del_reference moved to respect registers32 in secondin

Browse Source
This commit is contained in:
pierre 1999-08-23 23:46:42 +00:00
parent e7d56c97a8
commit 4fcd7adf4a
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/cg386set.pas
View File

@ -483,6 +483,7 @@ implementation
emit_none(A_CLC,S_NO);
emitjmp(C_NONE,l2);
emitlab(l);
del_reference(p^.left^.location.reference);
hr:=getregister32;
emit_ref_reg(A_MOV,S_L,
newreference(p^.left^.location.reference),hr);
@ -493,7 +494,6 @@ implementation
p^.right^.location.reference.offset,hr2);
emit_reg_reg(A_BT,S_L,hr,hr2);
ungetregister32(hr2);
del_reference(p^.left^.location.reference);
end;
emitlab(l2);
end;
@ -919,7 +919,10 @@ implementation
end.
{
$Log$
Revision 1.38 1999-08-19 13:08:53 pierre
Revision 1.39 1999-08-23 23:46:42 pierre
* del_reference moved to respect registers32 in secondin
Revision 1.38 1999/08/19 13:08:53 pierre
* emit_??? used
Revision 1.37 1999/08/04 00:22:54 florian