Bläddra i källkod

* always add a generic dummy if it is a procsym

git-svn-id: trunk@47996 -
svenbarth 4 år sedan
förälder
incheckning
9179f9d43b
1 ändrade filer med 1 tillägg och 2 borttagningar
  1. 1 2
      compiler/pgenutil.pas

+ 1 - 2
compiler/pgenutil.pas

@@ -1790,8 +1790,7 @@ uses
                 if not searchsym_with_flags(sym.name,srsym,srsymtable,[ssf_no_addsymref]) then
                 if not searchsym_with_flags(sym.name,srsym,srsymtable,[ssf_no_addsymref]) then
                   srsym:=nil;
                   srsym:=nil;
               end
               end
-            else if (sym.typ=procsym) and
-                (tprocsym(sym).procdeflist.count>0) then
+            else if sym.typ=procsym then
               srsym:=sym
               srsym:=sym
             else
             else
               { dummy symbol is already not so dummy anymore }
               { dummy symbol is already not so dummy anymore }