|
|
@@ -1142,7 +1142,8 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
|
|
|
{ normally usage of base register is much better (FK) }
|
|
|
p^.location.reference.base:=hregister;
|
|
|
{ Why is this done? We can never be sure about p^.left
|
|
|
- set_location(p^.left^.location,p^.location); }
|
|
|
+ because otherwise secondload fails !!! }
|
|
|
+ set_location(p^.left^.location,p^.location);
|
|
|
end;
|
|
|
{$ifdef TEMPS_NOT_PUSH}
|
|
|
ungetiftemp(href);
|
|
|
@@ -1178,7 +1179,8 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
|
|
|
reset_reference(p^.location.reference);
|
|
|
p^.location.reference.base:=hregister;
|
|
|
{ Why is this done? We can never be sure about p^.left
|
|
|
- set_location(p^.left^.location,p^.location); }
|
|
|
+ because otherwise secondload fails PM }
|
|
|
+ set_location(p^.left^.location,p^.location);
|
|
|
end;
|
|
|
ungetiftemp(href);
|
|
|
end;
|
|
|
@@ -3291,7 +3293,10 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
|
|
|
end.
|
|
|
{
|
|
|
$Log$
|
|
|
- Revision 1.33 1999-08-28 17:48:34 peter
|
|
|
+ Revision 1.34 1999-08-30 09:41:31 pierre
|
|
|
+ * last change undone because cycle was broken
|
|
|
+
|
|
|
+ Revision 1.33 1999/08/28 17:48:34 peter
|
|
|
* fixed crash in restore
|
|
|
|
|
|
Revision 1.32 1999/08/28 15:34:17 florian
|
pierre