Forráskód Böngészése

* moved initialisation of overridesclasshelper "out" parameter to correct
place (was in a nested procedure instead of in the main one, fix for
r16035)

git-svn-id: trunk@16039 -

Jonas Maebe 15 éve
szülő
commit
92a53a9cf1
1 módosított fájl, 1 hozzáadás és 1 törlés
  1. 1 1
      compiler/nobj.pas

+ 1 - 1
compiler/nobj.pas

@@ -243,7 +243,6 @@ implementation
       function found_entry(var vmtpd: tprocdef; var vmtentryvis: tvisibility; updatevalues: boolean): boolean;
         begin
           result:=false;
-          overridesclasshelper:=false;
 
           { ignore hidden entries (e.g. virtual overridden by a static) that are not visible anymore }
           if vmtentryvis=vis_hidden then
@@ -439,6 +438,7 @@ implementation
 
       begin
         result:=false;
+        overridesclasshelper:=false;
         { Load other values for easier readability }
         hasoverloads:=(tprocsym(pd.procsym).ProcdefList.Count>1);
         pdoverload:=(po_overload in pd.procoptions);