anchor.diff:  function AtomicAdd64(var Target:Int64; n:Int64): Int64;
   var
     r, Old: Int64;
  -
   begin
     repeat
       Old := Target;
  
positive.code:   TMSVCStrStr = function(s1, s2: PAnsiChar): PAnsiChar; cdecl;
    TMSVCStrStrW = function(s1, s2: PWChar): PWChar; cdecl;
    TMSVCMemCmp = function(s1, s2: Pointer; len: Integer): Integer; cdecl;
    TMSInterlockedCompareExchange64 = function(var Val: Int64; Exchange, Compare: Int64): Int64; stdcall; {$IFDEF HAVE_INLINE}inline;{$ENDIF HAVE_INLINE}
  
  
  var
  
negative.code: {$IFDEF MSWINDOWS}
  //http://code.google.com/p/omnithreadlibrary/source/browse/branches/x64/OtlSync.pas?r=1071
  function CAS64(const oldData, newData: int64; var destination): boolean;
  function AtomicAdd64(var Target:Int64; n:Int64): Int64; 
  function __InterlockedCompareExchange64(var Destination: Int64; Exchange: Int64; Comparand: Int64): Int64; stdcall;
  {$ELSE}
  
  