equal
deleted
inserted
replaced
14 * You should have received a copy of the GNU General Public License |
14 * You should have received a copy of the GNU General Public License |
15 * along with this program; if not, write to the Free Software |
15 * along with this program; if not, write to the Free Software |
16 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA |
16 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA |
17 *) |
17 *) |
18 |
18 |
19 {$I "options.inc"} |
19 {$INCLUDE "options.inc"} |
20 |
20 |
21 unit SDLh; |
21 unit SDLh; |
22 interface |
22 interface |
23 |
23 |
24 {$IFDEF LINUX} |
24 {$IFDEF LINUX} |
730 |
730 |
731 procedure SDLNet_Write16(value: Word; buf: pointer); |
731 procedure SDLNet_Write16(value: Word; buf: pointer); |
732 procedure SDLNet_Write32(value: LongWord; buf: pointer); |
732 procedure SDLNet_Write32(value: LongWord; buf: pointer); |
733 function SDLNet_Read16(buf: pointer): Word; |
733 function SDLNet_Read16(buf: pointer): Word; |
734 function SDLNet_Read32(buf: pointer): LongWord; |
734 function SDLNet_Read32(buf: pointer): LongWord; |
735 |
|
736 {$IFDEF IPHONEOS} |
|
737 function get_documents_path: PChar; cdecl; external 'hwutils'; |
|
738 procedure IPH_showControls; cdecl; external name 'showControls'; |
|
739 {$ENDIF} |
|
740 |
|
741 implementation |
735 implementation |
742 |
736 |
743 function SDL_MustLock(Surface: PSDL_Surface): Boolean; |
737 function SDL_MustLock(Surface: PSDL_Surface): Boolean; |
744 begin |
738 begin |
745 SDL_MustLock:= ( surface^.offset <> 0 ) or (( surface^.flags and (SDL_HWSURFACE or SDL_ASYNCBLIT or SDL_RLEACCEL)) <> 0) |
739 SDL_MustLock:= ( surface^.offset <> 0 ) or (( surface^.flags and (SDL_HWSURFACE or SDL_ASYNCBLIT or SDL_RLEACCEL)) <> 0) |