paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-03 09:18:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

* added paitempalloc for tempansi

Browse Source
This commit is contained in:
pierre 1999-04-16 14:03:39 +00:00
parent 246a653a5d
commit c7c74f2895
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/temp_gen.pas
View File

@ -331,6 +331,7 @@ unit temp_gen;
tempansilist:=tl;
end;
gettempansioffset:=ofs;
exprasmlist^.concat(new(paitempalloc,alloc(tl^.pos,tl^.size)));
end;
procedure gettempansistringreference(var ref : treference);
@ -355,6 +356,7 @@ unit temp_gen;
begin
tl^.is_freeansistring:=true;
ungetiftempansi:=true;
exprasmlist^.concat(new(paitempalloc,dealloc(tl^.pos,tl^.size)));
exit;
{$ifdef EXTDEBUG}
end
@ -636,7 +638,10 @@ begin
end.
{
$Log$
Revision 1.17 1999-04-16 11:49:45 peter
Revision 1.18 1999-04-16 14:03:39 pierre
* added paitempalloc for tempansi
Revision 1.17 1999/04/16 11:49:45 peter
+ tempalloc
+ -at to show temp alloc info in .s file