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

* skip hidden parameters while generating a cppdecl mangled name (patch by

Browse Source 
Sven Barth, mantis #15063)

git-svn-id: trunk@14159 -
This commit is contained in:
Jonas Maebe 2009-11-12 20:08:08 +00:00
parent f7360d47c5
commit 59d72f12d7
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/symdef.pas
View File

@ -3495,6 +3495,12 @@ implementation
for i:=0 to paras.count-1 do for i:=0 to paras.count-1 do
begin begin
hp:=tparavarsym(paras[i]); hp:=tparavarsym(paras[i]);
{ no hidden parameters form part of a C++ mangled name:
a) self is not included
b) there are no "high" or other hidden parameters
}
if vo_is_hidden_para in hp.varoptions then
continue;
s2:=getcppparaname(hp.vardef); s2:=getcppparaname(hp.vardef);
if hp.varspez in [vs_var,vs_out] then if hp.varspez in [vs_var,vs_out] then
s2:='R'+s2; s2:='R'+s2;