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

* also handle function references when a generic one had been parsed

Browse Source
This commit is contained in:
Sven/Sarah Barth 2022-02-06 19:14:18 +01:00
parent b297199ab6
commit 06a00b53c3
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/pgenutil.pas
View File

@ -80,7 +80,7 @@ uses
nobj,ncon,ncal, nobj,ncon,ncal,
{ parser } { parser }
scanner, scanner,
pbase,pexpr,pdecsub,ptype,psub,pparautl,pdecl; pbase,pexpr,pdecsub,ptype,psub,pparautl,pdecl,procdefutil;
type type
tdeftypeset = set of tdeftyp; tdeftypeset = set of tdeftyp;
@ -2018,7 +2018,9 @@ uses
end; end;
if replaydepth>current_scanner.replay_stack_depth then if replaydepth>current_scanner.replay_stack_depth then
parse_proctype_directives(tprocvardef(result)); parse_proctype_directives(tprocvardef(result));
handle_calling_convention(tprocvardef(result),hcc_default_actions_intf); if po_is_function_ref in tprocvardef(result).procoptions then
adjust_funcref(result,srsym,nil);
handle_calling_convention(result,hcc_default_actions_intf);
if not hintsprocessed and (replaydepth>current_scanner.replay_stack_depth) then if not hintsprocessed and (replaydepth>current_scanner.replay_stack_depth) then
begin begin
try_consume_hintdirective(ttypesym(srsym).symoptions,ttypesym(srsym).deprecatedmsg); try_consume_hintdirective(ttypesym(srsym).symoptions,ttypesym(srsym).deprecatedmsg);