Browse Source

* experimental patch to fix #9059 and friends in case -Oodfa is used

git-svn-id: trunk@7635 -
florian 18 years ago
parent
commit
54fc70395e
1 changed files with 1 additions and 0 deletions
  1. 1 0
      compiler/htypechk.pas

+ 1 - 0
compiler/htypechk.pas

@@ -873,6 +873,7 @@ implementation
                       begin
                         { Give warning/note for uninitialized locals }
                         if assigned(hsym.owner) and
+                          not(cs_opt_nodedfa in current_settings.optimizerswitches) and
                            not(vo_is_external in hsym.varoptions) and
                            (hsym.owner.symtabletype in [parasymtable,localsymtable,staticsymtable]) and
                            ((hsym.owner=current_procinfo.procdef.localst) or