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

* procedures containing nested procedures accessing their data can't be inlined, fixes ie in tcalfun8.pp

Browse Source 
git-svn-id: trunk@1274 -
This commit is contained in:
florian 2005-10-03 20:25:28 +00:00
parent ab88e4b882
commit 77cc54351c
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/nld.pas
View File

@ -277,6 +277,8 @@ implementation
if assigned(left) then
internalerror(200309289);
left:=cloadparentfpnode.create(tprocdef(symtable.defowner));
{ we can't inline the referenced parent procedure }
exclude(tprocdef(symtable.defowner).procoptions,po_inline);
{ reference in nested procedures, variable needs to be in memory }
make_not_regable(self);
end;