Browse Source

* don't check for local forwards being resolved for specialization procdefs

Sven/Sarah Barth 2 weeks ago
parent
commit
d089f213b4
1 changed files with 3 additions and 1 deletions
  1. 3 1
      compiler/symsym.pas

+ 3 - 1
compiler/symsym.pas

@@ -1049,7 +1049,9 @@ implementation
         for i:=0 to ProcdefList.Count-1 do
           begin
             pd:=tprocdef(ProcdefList[i]);
-            if (pd.owner=owner) and (pd.forwarddef) then
+            { Don't check for is_specialization, but whether it's somehow part
+              of a specialization }
+            if (pd.owner=owner) and (pd.forwarddef) and not (df_specialization in pd.defoptions) then
               begin
                 { For mode macpas. Make implicit externals (procedures declared in the interface
                   section which do not have a counterpart in the implementation)