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

git-svn-id: trunk@35148 -
This commit is contained in:
svenbarth 2016-12-17 21:23:07 +00:00
parent d34acf3bc7
commit 109dff8b56

View File

@ -2044,9 +2044,6 @@ 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
Comment(V_Error,'Generic methods cannot have nested procedures')
else
if (po_inline in current_procinfo.procdef.procoptions) then 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');