From fd7daf91df6ac1aa764a457356b92923a6119372 Mon Sep 17 00:00:00 2001 From: svenbarth Date: Fri, 16 Sep 2016 15:10:51 +0000 Subject: [PATCH] + new overload for generate_specialization_phase1() which allows to pass a specific symbol name without the need to specify a file position git-svn-id: trunk@34529 - --- compiler/pgenutil.pas | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/compiler/pgenutil.pas b/compiler/pgenutil.pas index 1ee4eb6356..7c63e4e903 100644 --- a/compiler/pgenutil.pas +++ b/compiler/pgenutil.pas @@ -39,6 +39,7 @@ uses procedure generate_specialization(var tt:tdef;parse_class_parent:boolean;_prettyname:string;parsedtype:tdef;symname:string;parsedpos:tfileposinfo);inline; procedure generate_specialization(var tt:tdef;parse_class_parent:boolean;_prettyname:string);inline; function generate_specialization_phase1(out context:tspecializationcontext;genericdef:tdef):tdef;inline; + function generate_specialization_phase1(out context:tspecializationcontext;genericdef:tdef;symname:string):tdef;inline; function generate_specialization_phase1(out context:tspecializationcontext;genericdef:tdef;parsedtype:tdef;symname:string;parsedpos:tfileposinfo):tdef; function generate_specialization_phase2(context:tspecializationcontext;genericdef:tstoreddef;parse_class_parent:boolean;_prettyname:ansistring):tdef; function check_generic_constraints(genericdef:tstoreddef;paradeflist:tfpobjectlist;poslist:tfplist):boolean; @@ -419,6 +420,17 @@ uses {$pop} + function generate_specialization_phase1(out context:tspecializationcontext;genericdef:tdef;symname:string):tdef; + var + dummypos : tfileposinfo; +{$push} +{$warn 5036 off} + begin + result:=generate_specialization_phase1(context,genericdef,nil,symname,dummypos); + end; +{$pop} + + function generate_specialization_phase1(out context:tspecializationcontext;genericdef:tdef;parsedtype:tdef;symname:string;parsedpos:tfileposinfo):tdef; var pt2 : tnode;