paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-17 04:20:53 +01:00
Code Issues Packages Projects Releases Wiki Activity

* double del_location removed in add_set

Browse Source
This commit is contained in:
pierre 1999-08-23 23:31:00 +00:00
parent 009aaad4a9
commit 0fb02e9155
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/cg386add.pas
View File

@ -416,6 +416,8 @@ implementation
{ add can be an other SET or Range or Element ! } { add can be an other SET or Range or Element ! }
{$IfNDef regallocfix} {$IfNDef regallocfix}
del_location(p^.left^.location); del_location(p^.left^.location);
{ del_location(p^.right^.location);
done in pushsetelement below PM }
del_location(p^.right^.location); del_location(p^.right^.location);
pushusedregisters(pushedregs,$ff); pushusedregisters(pushedregs,$ff);
{$EndIf regallocfix} {$EndIf regallocfix}
@ -425,7 +427,8 @@ implementation
begin begin
{$IfDef regallocfix} {$IfDef regallocfix}
del_location(p^.left^.location); del_location(p^.left^.location);
del_location(p^.right^.location); { del_location(p^.right^.location);
done in pushsetelement below PM }
{$EndIf regallocfix} {$EndIf regallocfix}
pushsetelement(p^.right^.left); pushsetelement(p^.right^.left);
emitpushreferenceaddr(href); emitpushreferenceaddr(href);
@ -2113,7 +2116,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.75 1999-08-23 10:35:13 jonas Revision 1.76 1999-08-23 23:31:00 pierre
* double del_location removed in add_set
Revision 1.75 1999/08/23 10:35:13 jonas
* fixed <= and >= for sets * fixed <= and >= for sets
Revision 1.74 1999/08/19 13:08:43 pierre Revision 1.74 1999/08/19 13:08:43 pierre