소스 검색

* do not copy unused paravarsyms

git-svn-id: trunk@46954 -
florian 4 년 전
부모
커밋
61da70bb72
1개의 변경된 파일1개의 추가작업 그리고 0개의 파일을 삭제
  1. 1 0
      compiler/hlcgobj.pas

+ 1 - 0
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