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

* fixed reuse position

Browse Source
This commit is contained in:
peter 1999-04-09 08:39:20 +00:00
parent 602821e2c4
commit 0e859bff09
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/temp_gen.pas
View File

@ -195,8 +195,10 @@ unit temp_gen;
{ the whole block is needed ? }
if hp^.size>size then
begin
hp^.size:=hp^.size-size;
hp^.pos:=hp^.pos-size;
dec(hp^.size,size);
{ the value is <0 so we need to add the size
instead of sub (PFV) }
inc(hp^.pos,size);
end
else
begin
@ -629,7 +631,10 @@ begin
end.
{
$Log$
Revision 1.12 1999-04-08 23:52:59 pierre
Revision 1.13 1999-04-09 08:39:20 peter
* fixed reuse position
Revision 1.12 1999/04/08 23:52:59 pierre
+ tempansilist and gettempansistringreference
Revision 1.11 1999/04/08 20:59:44 florian