anchor.diff:    while L <= H do
     begin
       I := (L + H) shr 1;
  -    c := BinStrComp(PRawListData(FList[i])^.RawData,RawData);
  +    c := TBaseType.BinStrComp(PRawListData(FList[i])^.RawData,RawData);
       if C < 0 then L := I + 1 else
       begin
         H := I - 1;
  
positive.code: implementation
  
  uses
    SysUtils, ULog, UOpenSSLdef, UOpenSSL, UAccountKeyStorage, Math;
  
  { TPascalCoinProtocol }
  
  
negative.code: interface
  
  uses
    Classes, UConst, UCrypto, SyncObjs, UThread, UBaseTypes;
  {$I config.inc}
  
  Type
  