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

* forgot a commit

Browse Source
This commit is contained in:
florian 2003-12-16 22:36:19 +00:00
parent 77f0eff7db
commit 87b24ee42c
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/psub.pas
View File

@ -990,7 +990,10 @@ implementation
normal procedures only store a reference to the
current tree }
if (procdef.proccalloption=pocall_inline) then
procdef.inlininginfo^.code:=code.getcopy
begin
procdef.inlininginfo^.code:=code.getcopy;
procdef.inlininginfo^.flags:=current_procinfo.flags;
end
else
procdef.inlininginfo^.code:=code;
@ -1331,7 +1334,10 @@ implementation
end.
{
$Log$
Revision 1.178 2003-12-16 21:29:24 florian
Revision 1.179 2003-12-16 22:36:19 florian
* forgot a commit
Revision 1.178 2003/12/16 21:29:24 florian
+ inlined procedures inherit procinfo flags
Revision 1.177 2003/12/15 21:25:48 peter