Răsfoiți Sursa

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

git-svn-id: trunk@3204 -
Jonas Maebe 19 ani în urmă
părinte
comite
5e02b02d24
1 a modificat fișierele cu 2 adăugiri și 2 ștergeri
  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 }