Kaynağa Gözat

* fixed function result variable symbol corruption in case a unit is
re-resolved before its implementation is parsed

git-svn-id: trunk@14358 -

Jonas Maebe 15 yıl önce
ebeveyn
işleme
896e481f86
1 değiştirilmiş dosya ile 4 ekleme ve 1 silme
  1. 4 1
      compiler/symdef.pas

+ 4 - 1
compiler/symdef.pas

@@ -3367,7 +3367,10 @@ implementation
         else
         else
           begin
           begin
             { safety }
             { safety }
-            funcretsym:=nil;
+            { Not safe! A unit may be reresolved after its interface has been
+              parsed but before its implementation has been parsed, and in that
+              case the funcretsym is still required!
+            funcretsym:=nil; }
           end;
           end;
       end;
       end;