From 0bbd1402280dee8e0352e8e71ca313aca197ff94 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Tue, 21 Apr 2020 19:19:17 +0000
Subject: [PATCH] * fixed handling of untyped const parameters

git-svn-id: branches/z80@44971 -
---
 compiler/z80/cpupara.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/z80/cpupara.pas b/compiler/z80/cpupara.pas
index 1427bb42c2..1784be621e 100644
--- a/compiler/z80/cpupara.pas
+++ b/compiler/z80/cpupara.pas
@@ -360,11 +360,11 @@ unit cpupara;
                           end
                         else
                           begin
-                             paraloc^.def:=hp.vardef;
+                             paraloc^.def:=paradef;
                              paraloc^.loc:=LOC_REFERENCE;
                              paraloc^.reference.index:=NR_STACK_POINTER_REG;
                              paraloc^.reference.offset:=stack_offset;
-                             inc(stack_offset,hp.vardef.size);
+                             inc(stack_offset,paradef.size);
                           end;
                         paralen:=0;
                       end;