paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 10:19:17 +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; tempansilist:=tl;
end; end;
gettempansioffset:=ofs; gettempansioffset:=ofs;
exprasmlist^.concat(new(paitempalloc,alloc(tl^.pos,tl^.size)));
end; end;
procedure gettempansistringreference(var ref : treference); procedure gettempansistringreference(var ref : treference);
@ -355,6 +356,7 @@ unit temp_gen;
begin begin
tl^.is_freeansistring:=true; tl^.is_freeansistring:=true;
ungetiftempansi:=true; ungetiftempansi:=true;
exprasmlist^.concat(new(paitempalloc,dealloc(tl^.pos,tl^.size)));
exit; exit;
{$ifdef EXTDEBUG} {$ifdef EXTDEBUG}
end end
@ -636,7 +638,10 @@ begin
end. end.
{ {
$Log$ $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 + tempalloc
+ -at to show temp alloc info in .s file + -at to show temp alloc info in .s file