Pārlūkot izejas kodu

* fix to get method reference info

pierre 26 gadi atpakaļ
vecāks
revīzija
6325b24689
1 mainītis faili ar 7 papildinājumiem un 2 dzēšanām
  1. 7 2
      compiler/symtable.pas

+ 7 - 2
compiler/symtable.pas

@@ -1500,7 +1500,9 @@ implementation
 
 
     function tsymtable.search(const s : stringid) : psym;
     function tsymtable.search(const s : stringid) : psym;
       begin
       begin
-        search:=psym(symsearch^.search(s));
+        {search:=psym(symsearch^.search(s));
+         this bypasses the ref generation (PM) }
+        search:=speedsearch(s,getspeedvalue(s));
       end;
       end;
 
 
 
 
@@ -2306,7 +2308,10 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.21.2.1  1999-06-22 16:26:46  pierre
+  Revision 1.21.2.2  1999-06-28 16:59:55  pierre
+   * fix to get method reference info
+
+  Revision 1.21.2.1  1999/06/22 16:26:46  pierre
    * local browser stuff corrected
    * local browser stuff corrected
 
 
   Revision 1.21  1999/06/08 22:23:50  pierre
   Revision 1.21  1999/06/08 22:23:50  pierre