瀏覽代碼

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