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

* also skip high parameters when pc_normal_no_hidden is given to tprocdef.getcopyas

Browse Source
This commit is contained in:
Sven/Sarah Barth 2022-12-30 22:50:04 +01:00
parent 430bcac389
commit b6b2785b66
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/symdef.pas
View File

@ -5911,7 +5911,7 @@ implementation
{ in case of bare proc, don't copy self, vmt or framepointer
parameters }
if (copytyp in [pc_bareproc,pc_normal_no_hidden]) and
(([vo_is_self,vo_is_vmt,vo_is_parentfp,vo_is_result,vo_is_funcret]*pvs.varoptions)<>[]) then
(([vo_is_self,vo_is_vmt,vo_is_parentfp,vo_is_result,vo_is_funcret,vo_is_high_para]*pvs.varoptions)<>[]) then
continue;
if paraprefix='' then
npvs:=cparavarsym.create(pvs.realname,pvs.paranr,pvs.varspez,