Browse Source

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

git-svn-id: trunk@5056 -
florian 19 years ago
parent
commit
a806fe3954
1 changed files with 2 additions and 1 deletions
  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;