paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 01:29:19 +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; newtempofsize:=tl^.pos;
end; end;
const
lasttempofsize : ptemprecord = nil;
function gettempofsize(size : longint) : longint; function gettempofsize(size : longint) : longint;
var var
@ -241,10 +243,9 @@ unit temp_gen;
else else
begin begin
ofs:=newtempofsize(size); ofs:=newtempofsize(size);
{$ifdef EXTDEBUG}
tl:=templist; tl:=templist;
{$endif}
end; end;
lasttempofsize:=tl;
{$ifdef EXTDEBUG} {$ifdef EXTDEBUG}
tl^.posinfo:=aktfilepos; tl^.posinfo:=aktfilepos;
{$endif} {$endif}
@ -258,7 +259,7 @@ unit temp_gen;
l : longint; l : longint;
begin begin
l:=gettempofsize(size); l:=gettempofsize(size);
templist^.temptype:=tt_persistant; lasttempofsize^.temptype:=tt_persistant;
{$ifdef EXTDEBUG} {$ifdef EXTDEBUG}
Comment(V_Debug,'temp managment : call to gettempofsizepersistant()'+ Comment(V_Debug,'temp managment : call to gettempofsizepersistant()'+
' with size '+tostr(size)+' returned '+tostr(l)); ' with size '+tostr(size)+' returned '+tostr(l));
@ -531,7 +532,10 @@ begin
end. end.
{ {
$Log$ $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 * fixed bug 698
* removed some notes about unused vars * removed some notes about unused vars