anchor.diff:  #define SDL_Unsupported()   SDL_Error(SDL_UNSUPPORTED)
   #define SDL_InvalidParamError(param)    SDL_SetError("Parameter '%s' is invalid", (param))
      }
  -
   type
     TSDL_ErrorCode = (SDL_ENOMEM,
                       SDL_EFREAD,
  
positive.code: 
    PShortInt = ^ShortInt;
  
    PUInt64 = ^UInt64;
    UInt64 = record
      hi: UInt32;
  
negative.code:   end;
    {$EXTERNALSYM UInt64}
  
    PInt64 = ^Int64;
    Int64 = record
      hi: UInt32;
      lo: UInt32;
    end;
    {$EXTERNALSYM Int64}
    {$ENDIF}
  
    PSInt64 = ^SInt64;
    SInt64 = Int64;
    {$EXTERNALSYM SInt64}
  
    {$IFDEF WIN64}
  