소스 검색

* 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 }