* fix set_varstate in for loops

  * fix set_varstate from case statements

compiler/htypechk.pas

@@ -580,9 +580,6 @@ implementation
       begin
         while assigned(p) do
          begin
-           if (nf_varstateset in p.flags) then
-            exit;
-           include(p.flags,nf_varstateset);
            case p.nodetype of
              typeconvn :
                begin
@@ -944,7 +941,11 @@ implementation
 end.
 {
   $Log$
-  Revision 1.74  2003-10-30 19:20:05  peter
+  Revision 1.75  2003-11-12 15:48:27  peter
+    * fix set_varstate in for loops
+    * fix set_varstate from case statements
+
+  Revision 1.74  2003/10/30 19:20:05  peter
     * fix IE when passing array to open array
 
   Revision 1.73  2003/10/30 17:42:48  peter

compiler/nflw.pas

@@ -246,6 +246,7 @@ implementation
             forn:
                p:=cfornode.create(l,r,n1,nil,back);
          end;
+         resulttypepass(p);
          genloopnode:=p;
       end;
 
@@ -1469,7 +1470,11 @@ begin
 end.
 {
   $Log$
-  Revision 1.86  2003-10-28 15:36:01  peter
+  Revision 1.87  2003-11-12 15:48:27  peter
+    * fix set_varstate in for loops
+    * fix set_varstate from case statements
+
+  Revision 1.86  2003/10/28 15:36:01  peter
     * absolute to object field supported, fixes tb0458
 
   Revision 1.85  2003/10/23 14:44:07  peter

compiler/node.pas

@@ -201,7 +201,6 @@ interface
 
          { general }
          nf_write,       { Node is written to            }
-         nf_varstateset,
          nf_isproperty,
 
          { flags used by tcallnode }
@@ -1092,7 +1091,11 @@ implementation
 end.
 {
   $Log$
-  Revision 1.74  2003-11-10 22:02:52  peter
+  Revision 1.75  2003-11-12 15:48:27  peter
+    * fix set_varstate in for loops
+    * fix set_varstate from case statements
+
+  Revision 1.74  2003/11/10 22:02:52  peter
     * cross unit inlining fixed
 
   Revision 1.73  2003/10/23 14:44:07  peter