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

* fixed tempansi which set wrong pos in free temp

Browse Source
This commit is contained in:
peter 1999-04-14 09:10:46 +00:00
parent b346adab8b
commit 33fd292687
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/temp_gen.pas
View File

@ -309,7 +309,7 @@ unit temp_gen;
so we need to convert that space into so we need to convert that space into
a tempfreeitem ! } a tempfreeitem ! }
new(tl); new(tl);
tl^.pos:=lastoccupied; tl^.pos:=maxtemp;
tl^.size:=lastoccupied-maxtemp; tl^.size:=lastoccupied-maxtemp;
tl^.next:=tmpfreelist; tl^.next:=tmpfreelist;
lastoccupied:=maxtemp; lastoccupied:=maxtemp;
@ -331,7 +331,7 @@ unit temp_gen;
end; end;
gettempansioffset:=ofs; gettempansioffset:=ofs;
end; end;
procedure gettempansistringreference(var ref : treference); procedure gettempansistringreference(var ref : treference);
begin begin
@ -635,7 +635,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.15 1999-04-09 13:05:45 pierre Revision 1.16 1999-04-14 09:10:46 peter
* fixed tempansi which set wrong pos in free temp
Revision 1.15 1999/04/09 13:05:45 pierre
* Minenumsize=1 under TEST_ENUMSIZE cond because buggy * Minenumsize=1 under TEST_ENUMSIZE cond because buggy
Revision 1.14 1999/04/09 09:55:20 peter Revision 1.14 1999/04/09 09:55:20 peter