Browse Source

* also check for uninited vars in staticsymtable

peter 22 years ago
parent
commit
e7ae580469
1 changed files with 5 additions and 2 deletions
  1. 5 2
      compiler/htypechk.pas

+ 5 - 2
compiler/htypechk.pas

@@ -619,7 +619,7 @@ implementation
                         { Give warning/note for uninitialized locals }
                         { Give warning/note for uninitialized locals }
                         if assigned(hsym.owner) and
                         if assigned(hsym.owner) and
                            not(vo_is_external in hsym.varoptions) and
                            not(vo_is_external in hsym.varoptions) and
-                           (hsym.owner.symtabletype=localsymtable) and
+                           (hsym.owner.symtabletype in [localsymtable,staticsymtable]) and
                            (hsym.owner=current_procinfo.procdef.localst) then
                            (hsym.owner=current_procinfo.procdef.localst) then
                           begin
                           begin
                             if (vo_is_funcret in hsym.varoptions) then
                             if (vo_is_funcret in hsym.varoptions) then
@@ -943,7 +943,10 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.72  2003-10-28 15:36:01  peter
+  Revision 1.73  2003-10-30 17:42:48  peter
+    * also check for uninited vars in staticsymtable
+
+  Revision 1.72  2003/10/28 15:36:01  peter
     * absolute to object field supported, fixes tb0458
     * absolute to object field supported, fixes tb0458
 
 
   Revision 1.71  2003/10/21 18:16:13  peter
   Revision 1.71  2003/10/21 18:16:13  peter