hedgewars/SDLh.pas
changeset 9378 2be457289e60
parent 9333 972fa9ecd587
child 9521 8054d9d775fd
child 9677 71626318f80e
child 9998 736015b847e3
equal deleted inserted replaced
9377:48ab6dea8d2f 9378:2be457289e60
   426         end;
   426         end;
   427 
   427 
   428 
   428 
   429     (* SDL_RWops and friends *)
   429     (* SDL_RWops and friends *)
   430     PSDL_RWops = ^TSDL_RWops;
   430     PSDL_RWops = ^TSDL_RWops;
       
   431 {$IFDEF SDL2}
       
   432     TSize  = function( context: PSDL_RWops): Int64; cdecl;
       
   433     TSeek  = function( context: PSDL_RWops; offset: Int64; whence: LongInt ): Int64; cdecl;
       
   434 {$ELSE}
   431     TSeek  = function( context: PSDL_RWops; offset: LongInt; whence: LongInt ): LongInt; cdecl;
   435     TSeek  = function( context: PSDL_RWops; offset: LongInt; whence: LongInt ): LongInt; cdecl;
       
   436 {$ENDIF}
   432     TRead  = function( context: PSDL_RWops; Ptr: Pointer; size: LongInt; maxnum : LongInt ): LongInt;  cdecl;
   437     TRead  = function( context: PSDL_RWops; Ptr: Pointer; size: LongInt; maxnum : LongInt ): LongInt;  cdecl;
   433     TWrite = function( context: PSDL_RWops; Ptr: Pointer; size: LongInt; num: LongInt ): LongInt; cdecl;
   438     TWrite = function( context: PSDL_RWops; Ptr: Pointer; size: LongInt; num: LongInt ): LongInt; cdecl;
   434     TClose = function( context: PSDL_RWops ): LongInt; cdecl;
   439     TClose = function( context: PSDL_RWops ): LongInt; cdecl;
   435 
   440 
   436     TStdio = record
   441     TStdio = record
   471         end;
   476         end;
   472 {$ENDIF}
   477 {$ENDIF}
   473 {$ENDIF}
   478 {$ENDIF}
   474 
   479 
   475     TSDL_RWops = record
   480     TSDL_RWops = record
       
   481 {$IFDEF SDL2}
       
   482         size: TSize;
       
   483 {$ENDIF}
   476         seek: TSeek;
   484         seek: TSeek;
   477         read: TRead;
   485         read: TRead;
   478         write: TWrite;
   486         write: TWrite;
   479         close: TClose;
   487         close: TClose;
   480         type_: LongWord;
   488         type_: LongWord;