Symbol browser fix object tree for 64bit procesors

compiler/browcol.pas

@@ -196,7 +196,7 @@ type
     TIDSortedSymbolCollection = object(TSymbolCollection)
       function  Compare(Key1, Key2: Pointer): Sw_Integer; virtual;
       procedure Insert(Item: Pointer); virtual;
-      function  SearchSymbolByID(AID: longint): PSymbol;
+      function  SearchSymbolByID(AID: PtrInt): PSymbol;
     end;
 
     TObjectSymbolCollection = object(TSortedCollection)
@@ -588,7 +588,7 @@ begin
   TSortedCollection.Insert(Item);
 end;
 
-function TIDSortedSymbolCollection.SearchSymbolByID(AID: longint): PSymbol;
+function TIDSortedSymbolCollection.SearchSymbolByID(AID: PtrInt): PSymbol;
 var S: TSymbol;
     Index: sw_integer;
     P: PSymbol;