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

* ensure that sto_has_generic is set when a generic routine has been parsed

Browse Source 
git-svn-id: trunk@39230 -
This commit is contained in:
svenbarth 2018-06-15 13:49:03 +00:00
parent 84b5265312
commit 5510b13975
3 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/pdecobj.pas
View File

@ -936,6 +936,9 @@ implementation
if (po_virtualmethod in result.procoptions) then
include(astruct.objectoptions,oo_has_virtual);
if result.is_generic then
astruct.symtable.includeoption(sto_has_generic);
chkcpp(result);
chkobjc(result);
chkjava(result);

3
compiler/pdecsub.pas
View File

@ -1682,6 +1682,9 @@ implementation
{ add definition to procsym }
proc_add_definition(result);
if result.is_generic then
astruct.symtable.includeoption(sto_has_generic);
end;
maybe_parse_hint_directives(result);

7
compiler/psub.pas
View File

@ -2222,7 +2222,12 @@ implementation
begin
MessagePos1(pd.fileinfo,parser_e_header_dont_match_forward,pd.fullprocname(false));
tprocsym(pd.procsym).write_parameter_lists(pd);
end;
end
else
begin
if pd.is_generic and not assigned(pd.struct) then
tprocsym(pd.procsym).owner.includeoption(sto_has_generic);
end;
end;
end;