Преглед на файлове

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

git-svn-id: trunk@3204 -
Jonas Maebe преди 19 години
родител
ревизия
5e02b02d24
променени са 1 файла, в които са добавени 2 реда и са изтрити 2 реда
  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 }