paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 12:49:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* bug in extdebugg code for inlined procedures

Browse Source
This commit is contained in:
pierre 1999-12-13 21:49:54 +00:00
parent e9fadd941c
commit 999712c01e
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/cg386cal.pas
View File

@ -1189,7 +1189,7 @@ implementation
{$endif extdebug} {$endif extdebug}
end; end;
{$ifdef extdebug} {$ifdef extdebug}
exprasmlist^.concat(new(pai_asm_comment,init('Start of inlined proc'))); exprasmlist^.concat(new(pai_asm_comment,init(strpnew('Start of inlined proc'))));
{$endif extdebug} {$endif extdebug}
{ takes care of local data initialization } { takes care of local data initialization }
inlineentrycode:=new(paasmoutput,init); inlineentrycode:=new(paasmoutput,init);
@ -1203,7 +1203,7 @@ implementation
genexitcode(inlineexitcode,0,false,true); genexitcode(inlineexitcode,0,false,true);
exprasmlist^.concatlist(inlineexitcode); exprasmlist^.concatlist(inlineexitcode);
{$ifdef extdebug} {$ifdef extdebug}
exprasmlist^.concat(new(pai_asm_comment,init('End of inlined proc'))); exprasmlist^.concat(new(pai_asm_comment,init(strpnew('End of inlined proc'))));
{$endif extdebug} {$endif extdebug}
{we can free the local data now, reset also the fixup address } {we can free the local data now, reset also the fixup address }
if st^.datasize>0 then if st^.datasize>0 then
@ -1225,7 +1225,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.111 1999-11-30 10:40:42 peter Revision 1.112 1999-12-13 21:49:54 pierre
* bug in extdebugg code for inlined procedures
Revision 1.111 1999/11/30 10:40:42 peter
+ ttype, tsymlist + ttype, tsymlist
Revision 1.110 1999/11/06 14:34:17 peter Revision 1.110 1999/11/06 14:34:17 peter