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

* do not copy unused paravarsyms

Browse Source 
git-svn-id: trunk@46954 -
This commit is contained in:
florian 2020-09-25 20:06:26 +00:00
parent cce2dad1bf
commit 61da70bb72
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/hlcgobj.pas
View File

@ -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