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

tprocdef.customprocname:

Browse Source 
* if we have a compilerproc with a syssym then use the syssym's name when generating the name

git-svn-id: trunk@33892 -
This commit is contained in:
svenbarth 2016-06-03 20:55:48 +00:00
parent 8ec2d5478c
commit b4354aff5e
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/symdef.pas
View File

@ -5699,6 +5699,7 @@ implementation
var var
s, rn : ansistring; s, rn : ansistring;
t : ttoken; t : ttoken;
syssym : tsyssym;
begin begin
{$ifdef EXTDEBUG} {$ifdef EXTDEBUG}
include(pno,pno_showhidden); include(pno,pno_showhidden);
@ -5742,7 +5743,15 @@ implementation
if (pno_ownername in pno) and if (pno_ownername in pno) and
(owner.symtabletype in [recordsymtable,objectsymtable]) then (owner.symtabletype in [recordsymtable,objectsymtable]) then
s:=s+tabstractrecorddef(owner.defowner).RttiName+'.'; s:=s+tabstractrecorddef(owner.defowner).RttiName+'.';
rn:=procsym.realname; if (po_compilerproc in procoptions) and (extnumber<>$ffff) then
begin
syssym:=tsyssym.find_by_number(extnumber);
if not assigned(syssym) then
internalerror(2016060305);
rn:=syssym.realname;
end
else
rn:=procsym.realname;
if (pno_noleadingdollar in pno) and if (pno_noleadingdollar in pno) and
(rn[1]='$') then (rn[1]='$') then
delete(rn,1,1); delete(rn,1,1);