Procházet zdrojové kódy

* properly count references to overloaded operators (tests/tbs/tb0500.pp)

git-svn-id: trunk@3204 -
Jonas Maebe před 19 roky
rodič
revize
5e02b02d24
1 změnil soubory, kde provedl 2 přidání a 2 odebrání
  1. 2 2
      compiler/htypechk.pas

+ 2 - 2
compiler/htypechk.pas

@@ -474,7 +474,7 @@ implementation
           end;
         candidates.free;
 
-        inc(operpd.procsym.refs);
+        addsymref(operpd.procsym);
 
         { the nil as symtable signs firstcalln that this is
           an overloaded operator }
@@ -620,7 +620,7 @@ implementation
           end;
         candidates.free;
 
-        inc(operpd.procsym.refs);
+        addsymref(operpd.procsym);
 
         { the nil as symtable signs firstcalln that this is
           an overloaded operator }