paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 07:39:13 +02: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 ! }
{$IfNDef regallocfix}
del_location(p^.left^.location);
{ del_location(p^.right^.location);
done in pushsetelement below PM }
del_location(p^.right^.location);
pushusedregisters(pushedregs,$ff);
{$EndIf regallocfix}
@ -425,7 +427,8 @@ implementation
begin
{$IfDef regallocfix}
del_location(p^.left^.location);
del_location(p^.right^.location);
{ del_location(p^.right^.location);
done in pushsetelement below PM }
{$EndIf regallocfix}
pushsetelement(p^.right^.left);
emitpushreferenceaddr(href);
@ -2113,7 +2116,10 @@ implementation
end.
{
$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
Revision 1.74 1999/08/19 13:08:43 pierre