paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-07 09:59:39 +01:00
Code Issues Packages Projects Releases Wiki Activity

* extedebug problem solved

Browse Source
This commit is contained in:
pierre 1999-05-18 22:34:26 +00:00
parent 28c391a3a2
commit 1a3b65af0b
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/cg386cal.pas
View File

@ -260,7 +260,7 @@ implementation
+tostr(pprocdef(p^.procdefinition)^.parast^.address_fixup)); +tostr(pprocdef(p^.procdefinition)^.parast^.address_fixup));
exprasmlist^.concat(new(pai_asm_comment,init( exprasmlist^.concat(new(pai_asm_comment,init(
strpnew('inlined parasymtable is at offset ' strpnew('inlined parasymtable is at offset '
+tostr(pprocdef(p^.procdefinition^.parast)^.address_fixup))))); +tostr(pprocdef(p^.procdefinition)^.parast^.address_fixup)))));
{$endif extdebug} {$endif extdebug}
p^.right:=nil; p^.right:=nil;
{ disable further inlining of the same proc { disable further inlining of the same proc
@ -1182,7 +1182,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.83 1999-05-18 21:58:24 florian Revision 1.84 1999-05-18 22:34:26 pierre
* extedebug problem solved
Revision 1.83 1999/05/18 21:58:24 florian
* fixed some bugs related to temp. ansistrings and functions results * fixed some bugs related to temp. ansistrings and functions results
which return records/objects/arrays which need init/final. which return records/objects/arrays which need init/final.