From b6b2785b66023ad48242b2a7bc55e445ccd48238 Mon Sep 17 00:00:00 2001
From: Sven/Sarah Barth <pascaldragon@gmail.com>
Date: Fri, 30 Dec 2022 22:50:04 +0100
Subject: [PATCH] * also skip high parameters when pc_normal_no_hidden is given
to tprocdef.getcopyas
---
compiler/symdef.pas | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/compiler/symdef.pas b/compiler/symdef.pas
index 1b711aaa7e..855b355218 100644
--- a/compiler/symdef.pas
+++ b/compiler/symdef.pas
@@ -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,