hedgewars/SDLh.pas
changeset 3663 8c28abf427f5
parent 3598 a8aa06bae895
child 3668 3f7a95234d8a
equal deleted inserted replaced
3662:a44406f4369b 3663:8c28abf427f5
   838 
   838 
   839 procedure SDLNet_Write16(value: Word; buf: pointer);
   839 procedure SDLNet_Write16(value: Word; buf: pointer);
   840 procedure SDLNet_Write32(value: LongWord; buf: pointer);
   840 procedure SDLNet_Write32(value: LongWord; buf: pointer);
   841 function  SDLNet_Read16(buf: pointer): Word;
   841 function  SDLNet_Read16(buf: pointer): Word;
   842 function  SDLNet_Read32(buf: pointer): LongWord;
   842 function  SDLNet_Read32(buf: pointer): LongWord;
       
   843 
       
   844 {$IFDEF IPHONEOS}
       
   845 (*  iPhone related calls  *)
       
   846 procedure clearView; cdecl; external;
       
   847 procedure startSpinning; cdecl; external;
       
   848 procedure stopSpinning; cdecl; external;
       
   849 {$ENDIF}
   843 implementation
   850 implementation
   844 
   851 
   845 function SDL_MustLock(Surface: PSDL_Surface): Boolean;
   852 function SDL_MustLock(Surface: PSDL_Surface): Boolean;
   846 begin
   853 begin
   847     SDL_MustLock:= ( surface^.offset <> 0 ) or (( surface^.flags and (SDL_HWSURFACE or SDL_ASYNCBLIT or SDL_RLEACCEL)) <> 0)
   854     SDL_MustLock:= ( surface^.offset <> 0 ) or (( surface^.flags and (SDL_HWSURFACE or SDL_ASYNCBLIT or SDL_RLEACCEL)) <> 0)