Quellcode durchsuchen

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

Sven/Sarah Barth vor 3 Wochen
Ursprung
Commit
d089f213b4
1 geänderte Dateien mit 3 neuen und 1 gelöschten Zeilen
  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)