anchor.diff:  end; { CAS64 }
   
   
  +
  +
  +
   function __InterlockedCompareExchange64;
   begin
     Result := InterlockedCompareExchange64Func(Destination, Exchange, Comparand);
  
positive.code: 
  {$IFDEF MSWINDOWS}
  
  function CAS64(const oldData, newData: int64; var destination): boolean;
  asm
  {$IFNDEF CPUX64}
  
negative.code: 
  end;
  
  
  
  {$if CompilerVersion < 20}
  function CharInSet(const C: Char; const CharSet: TSysCharSet): Boolean;
  