|
@@ -1443,7 +1443,7 @@ implementation
|
|
|
second_nothing);
|
|
second_nothing);
|
|
|
{$endif}
|
|
{$endif}
|
|
|
var
|
|
var
|
|
|
- oldrl : plinkedlist;
|
|
|
|
|
|
|
+ oldrl,oldlrl : plinkedlist;
|
|
|
|
|
|
|
|
begin
|
|
begin
|
|
|
{ the ansi string disposing is a little bit hairy: }
|
|
{ the ansi string disposing is a little bit hairy: }
|
|
@@ -1465,6 +1465,7 @@ implementation
|
|
|
{ the helper routines need access to the release list }
|
|
{ the helper routines need access to the release list }
|
|
|
{ but do this AFTER secondpass(p^.left), else it is }
|
|
{ but do this AFTER secondpass(p^.left), else it is }
|
|
|
{ overwritten by recursive calls }
|
|
{ overwritten by recursive calls }
|
|
|
|
|
+ oldlrl:=ltemptoremove;
|
|
|
ltemptoremove:=oldrl;
|
|
ltemptoremove:=oldrl;
|
|
|
{ the second argument only is for maybe_range_checking !}
|
|
{ the second argument only is for maybe_range_checking !}
|
|
|
secondconvert[p^.convtyp](p,p^.left,p^.convtyp);
|
|
secondconvert[p^.convtyp](p,p^.left,p^.convtyp);
|
|
@@ -1473,6 +1474,7 @@ implementation
|
|
|
removetemps(exprasmlist,temptoremove);
|
|
removetemps(exprasmlist,temptoremove);
|
|
|
dispose(temptoremove,done);
|
|
dispose(temptoremove,done);
|
|
|
temptoremove:=oldrl;
|
|
temptoremove:=oldrl;
|
|
|
|
|
+ ltemptoremove:=oldlrl;
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
@@ -1585,7 +1587,10 @@ implementation
|
|
|
end.
|
|
end.
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$Log$
|
|
|
- Revision 1.51 1999-01-28 19:50:15 peter
|
|
|
|
|
|
|
+ Revision 1.52 1999-01-29 11:22:13 pierre
|
|
|
|
|
+ * saving and restoring old ltemptoremove
|
|
|
|
|
+
|
|
|
|
|
+ Revision 1.51 1999/01/28 19:50:15 peter
|
|
|
* removed warning
|
|
* removed warning
|
|
|
|
|
|
|
|
Revision 1.50 1999/01/28 14:06:45 florian
|
|
Revision 1.50 1999/01/28 14:06:45 florian
|
pierre