Sfoglia il codice sorgente

* disabled previous patch, can't be done this way

git-svn-id: trunk@5056 -
florian 19 anni fa
parent
commit
a806fe3954
1 ha cambiato i file con 2 aggiunte e 1 eliminazioni
  1. 2 1
      compiler/symsym.pas

+ 2 - 1
compiler/symsym.pas

@@ -1583,7 +1583,8 @@ implementation
            we write them to the unit file.
            we write them to the unit file.
            This enables constant folding for inline procedures loaded from units
            This enables constant folding for inline procedures loaded from units
          }
          }
-         ppufile.putbyte(ord(varstate));
+         ppufile.putbyte(ord(vs_readwritten));
+
          if vo_has_explicit_paraloc in varoptions then
          if vo_has_explicit_paraloc in varoptions then
            begin
            begin
              paraloc[callerside].check_simple_location;
              paraloc[callerside].check_simple_location;