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

* allow nested procedures and functions in generic routines (and get rid of an untranslated error message :P )

Browse Source 
git-svn-id: trunk@35148 -
This commit is contained in:
svenbarth 2016-12-17 21:23:07 +00:00
parent d34acf3bc7
commit 109dff8b56
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/psub.pas
View File

@ -2044,10 +2044,7 @@ implementation
for accessing locals in the parent procedure (PFV) } for accessing locals in the parent procedure (PFV) }
if current_procinfo.has_nestedprocs then if current_procinfo.has_nestedprocs then
begin begin
if (df_generic in current_procinfo.procdef.defoptions) then if (po_inline in current_procinfo.procdef.procoptions) then
Comment(V_Error,'Generic methods cannot have nested procedures')
else
if (po_inline in current_procinfo.procdef.procoptions) then
begin begin
Message1(parser_h_not_supported_for_inline,'nested procedures'); Message1(parser_h_not_supported_for_inline,'nested procedures');
Message(parser_h_inlining_disabled); Message(parser_h_inlining_disabled);