paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-04 06:54:52 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed web bug #4039 (include methodpointer init/fini for inlined methods)

Browse Source 
git-svn-id: trunk@390 -
This commit is contained in:
Jonas Maebe 2005-06-12 16:40:10 +00:00
parent 96a556f1ba
commit 893f45c9e2
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ncal.pas
View File

@ -2212,6 +2212,13 @@ type
{ create blocks for loading/deleting of local data }
createblock:=internalstatements(createstatement);
deleteblock:=internalstatements(deletestatement);
{ add methodpointer init/fini code to init/done statements }
if assigned(methodpointerinit) then
addstatement(createstatement,methodpointerinit.getcopy);
if assigned(methodpointerdone) then
addstatement(deletestatement,methodpointerdone.getcopy);
inlinelocals:=tlist.create;
{ get copy of the procedure body }
body:=tprocdef(procdefinition).inlininginfo^.code.getcopy;