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

+ new tprocnameoption pno_noparams to prohibit tprocdef.customprocname() from adding the procdef's parameters

Browse Source 
git-svn-id: trunk@35008 -
This commit is contained in:
svenbarth 2016-11-28 18:01:53 +00:00
parent 3f77ce3b12
commit 930070a8ca
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/symdef.pas
View File

@ -583,7 +583,7 @@ interface
tprocnameoption = (pno_showhidden, pno_proctypeoption, pno_paranames,
pno_ownername, pno_noclassmarker, pno_noleadingdollar,
pno_mangledname);
pno_mangledname, pno_noparams);
tprocnameoptions = set of tprocnameoption;
tproccopytyp = (pc_normal,
{ always creates a top-level function, removes all
@ -5756,7 +5756,9 @@ implementation
if (pno_ownername in pno) and
assigned(struct) then
s:=s+struct.RttiName+'.';
s:=s+arraytokeninfo[t].str+typename_paras(pno);
s:=s+arraytokeninfo[t].str;
if not (pno_noparams in pno) then
s:=s+typename_paras(pno);
break;
end;
end
@ -5797,7 +5799,9 @@ implementation
if (pno_noleadingdollar in pno) and
(rn[1]='$') then
delete(rn,1,1);
s:=s+rn+typename_paras(pno);
s:=s+rn;
if not (pno_noparams in pno) then
s:=s+typename_paras(pno);
end;
if not(proctypeoption in [potype_constructor,potype_destructor,
potype_class_constructor,potype_class_destructor]) and