2
0
Эх сурвалжийг харах

* 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 жил өмнө
parent
commit
92a53a9cf1
1 өөрчлөгдсөн 1 нэмэгдсэн , 1 устгасан
  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);