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

* fixed disabling of inlining procedures/functions with nested

Browse Source 
procedures/functions

git-svn-id: trunk@9232 -
This commit is contained in:
Jonas Maebe 2007-11-13 18:12:25 +00:00
parent ff3f24265d
commit 9f705776c9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/psub.pas
View File

@ -1466,7 +1466,7 @@ implementation
begin begin
Message1(parser_w_not_supported_for_inline,'nested procedures'); Message1(parser_w_not_supported_for_inline,'nested procedures');
Message(parser_w_inlining_disabled); Message(parser_w_inlining_disabled);
current_procinfo.procdef.proccalloption:=pocall_default; exclude(current_procinfo.procdef.procoptions,po_inline);
end; end;
end; end;
if not(df_generic in current_procinfo.procdef.defoptions) then if not(df_generic in current_procinfo.procdef.defoptions) then