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

* problem with persistant temp fixed

Browse Source
This commit is contained in:
pierre 1999-12-19 23:53:14 +00:00
parent 21ec770944
commit 18bbeebf9e
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/temp_gen.pas
View File

@ -157,6 +157,8 @@ unit temp_gen;
newtempofsize:=tl^.pos;
end;
const
lasttempofsize : ptemprecord = nil;
function gettempofsize(size : longint) : longint;
var
@ -241,10 +243,9 @@ unit temp_gen;
else
begin
ofs:=newtempofsize(size);
{$ifdef EXTDEBUG}
tl:=templist;
{$endif}
end;
lasttempofsize:=tl;
{$ifdef EXTDEBUG}
tl^.posinfo:=aktfilepos;
{$endif}
@ -258,7 +259,7 @@ unit temp_gen;
l : longint;
begin
l:=gettempofsize(size);
templist^.temptype:=tt_persistant;
lasttempofsize^.temptype:=tt_persistant;
{$ifdef EXTDEBUG}
Comment(V_Debug,'temp managment : call to gettempofsizepersistant()'+
' with size '+tostr(size)+' returned '+tostr(l));
@ -531,7 +532,10 @@ begin
end.
{
$Log$
Revision 1.39 1999-12-01 12:42:33 peter
Revision 1.40 1999-12-19 23:53:14 pierre
* problem with persistant temp fixed
Revision 1.39 1999/12/01 12:42:33 peter
* fixed bug 698
* removed some notes about unused vars