Kaynağa Gözat

Merged revisions 2043 via svnmerge from
svn+ssh://[email protected]/FPC/svn/fpc/trunk

r2043 (jonas)
* also make "out" parameters unique

git-svn-id: branches/fixes_2_0@2044 -

Jonas Maebe 20 yıl önce
ebeveyn
işleme
b8cb0f692a
1 değiştirilmiş dosya ile 1 ekleme ve 1 silme
  1. 1 1
      compiler/ncal.pas

+ 1 - 1
compiler/ncal.pas

@@ -681,7 +681,7 @@ type
                        valid_for_var(left);
                    end;
 
-                 if parasym.varspez = vs_var then
+                 if parasym.varspez in [vs_var,vs_out] then
                    set_unique(left);
 
                  { When the address needs to be pushed then the register is