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

* better inheritence of procinfo flags of inlined procedures

Browse Source
This commit is contained in:
florian 2003-12-16 22:09:31 +00:00
parent 2aeea741ed
commit 77f0eff7db
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/ncal.pas
View File

@ -2459,6 +2459,7 @@ type
{ handle predefined procedures }
if (procdefinition.proccalloption=pocall_inline) then
begin
current_procinfo.flags:=current_procinfo.flags+((procdefinition as tprocdef).inlininginfo^.flags*inherited_inlining_flags);
if assigned(methodpointer) then
CGMessage(cg_e_unable_inline_object_methods);
if assigned(right) then
@ -2612,10 +2613,7 @@ type
end;
errorexit:
if assigned(inlinecode) then
begin
procdefinition.proccalloption:=pocall_inline;
current_procinfo.flags:=current_procinfo.flags+((procdefinition as tprocdef).inlininginfo^.flags*inherited_inlining_flags);
end;
procdefinition.proccalloption:=pocall_inline;
end;
{$ifdef state_tracking}
@ -2701,7 +2699,10 @@ begin
end.
{
$Log$
Revision 1.213 2003-12-16 21:29:24 florian
Revision 1.214 2003-12-16 22:09:31 florian
* better inheritence of procinfo flags of inlined procedures
Revision 1.213 2003/12/16 21:29:24 florian
+ inlined procedures inherit procinfo flags
Revision 1.212 2003/12/08 22:37:28 peter