From 61da70bb72ebfc5b119b836c6b74cb763740a4cf Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Fri, 25 Sep 2020 20:06:26 +0000
Subject: [PATCH] * do not copy unused paravarsyms

git-svn-id: trunk@46954 -
---
 compiler/hlcgobj.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/compiler/hlcgobj.pas b/compiler/hlcgobj.pas
index bd61fdad60..ceaec20f3e 100644
--- a/compiler/hlcgobj.pas
+++ b/compiler/hlcgobj.pas
@@ -5138,6 +5138,7 @@ implementation
     begin
       list:=TAsmList(arg);
       if (tsym(p).typ=paravarsym) and
+         (tparavarsym(p).is_used) and
          ((vo_has_local_copy in tparavarsym(p).varoptions) or
           (not(target_info.system in systems_caller_copy_addr_value_para) and
            (is_open_array(tparavarsym(p).vardef) or