paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-23 14:39:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* remove win32 constraint so it compiles on win64 and possibly others later too

Browse Source 
git-svn-id: trunk@6876 -
This commit is contained in:
Almindor 2007-03-16 10:30:19 +00:00
parent 9aebd665a9
commit a56aa776bb
11 changed files with 2075 additions and 2074 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/extra/sdl/jedi-sdl.inc
View File

@ -119,7 +119,7 @@
{$ELSE}
{$DEFINE __OS_DOS__}
{$ENDIF}
{$IFDEF WIN32}
{$IFDEF windows}
{$DEFINE UseWin}
{$ENDIF}
@ -129,13 +129,13 @@
{$DEFINE OS_BigMem}
{$ENDIF OS2}
{$IFDEF Win32}
{$IFDEF windows}
{$DEFINE OS_BigMem}
{$ELSE Win32}
{$ELSE windows}
{$IFDEF ver70}
{$DEFINE assembler}
{$ENDIF} { use 16-bit assembler! }
{$ENDIF Win32}
{$ENDIF windows}
{ ************************** dos/dos-like platforms **************}
{$IFDEF Windows}

2
packages/extra/sdl/moduleloader.pas
View File

@ -59,7 +59,7 @@ interface
// each OS gets its own IFDEFed complete code block to make reading easier
{$IFDEF WIN32}
{$IFDEF windows}
uses
Windows;

38
packages/extra/sdl/sdl.pas
View File

@ -244,7 +244,7 @@ unit sdl;
interface
uses
{$IFDEF WIN32}
{$IFDEF windows}
Windows;
{$ENDIF}
@ -265,7 +265,7 @@ uses
{$ENDIF}
const
{$IFDEF WIN32}
{$IFDEF windows}
SDLLibName = 'SDL.dll';
{$ENDIF}
@ -1660,7 +1660,7 @@ type
{$ENDIF}
// The windows custom event structure
{$IFDEF Win32}
{$IFDEF windows}
PSDL_SysWMmsg = ^TSDL_SysWMmsg;
TSDL_SysWMmsg = record
version: TSDL_version;
@ -1695,7 +1695,7 @@ type
{$ENDIF}
// The Windows custom window manager information structure
{$IFDEF Win32}
{$IFDEF windows}
PSDL_SysWMinfo = ^TSDL_SysWMinfo;
TSDL_SysWMinfo = record
version : TSDL_version;
@ -1824,7 +1824,7 @@ type
alpha: UInt8; // Alpha value information (per-surface alpha)
end;
{$IFDEF WIN32}
{$IFDEF windows}
{PPrivate_hwdata = ^TPrivate_hwdata;
TPrivate_hwdata = record
dd_surface : IDIRECTDRAWSURFACE3;
@ -1972,7 +1972,7 @@ type
// SDL_mutex.h types
{$IFDEF WIN32}
{$IFDEF windows}
PSDL_Mutex = ^TSDL_Mutex;
TSDL_Mutex = record
id: THANDLE;
@ -1997,8 +1997,8 @@ type
{$ENDIF}
PSDL_semaphore = ^TSDL_semaphore;
{$IFDEF WIN32}
// Win32 or Machintosh
{$IFDEF windows}
// windows or Machintosh
TSDL_semaphore = record
id: THANDLE;
count: UInt32;
@ -2050,7 +2050,7 @@ PSDL_semaphore = ^TSDL_semaphore;
end;
// SDL_thread.h types
{$IFDEF WIN32}
{$IFDEF windows}
TSYS_ThreadHandle = THandle;
{$ENDIF}
@ -2140,7 +2140,7 @@ procedure SDL_Quit;
cdecl; external {$IFDEF __GPC__}name 'SDL_Quit'{$ELSE} SDLLibName{$ENDIF __GPC__};
{$EXTERNALSYM SDL_Quit}
{$IFDEF WIN32}
{$IFDEF windows}
// This should be called from your WinMain() function, if any
function SDL_RegisterApp(name: PChar; style: UInt32; h_Inst: Pointer): Integer;
cdecl; external {$IFDEF __GPC__}name 'SDL_RegisterApp'{$ELSE} SDLLibName{$ENDIF __GPC__};
@ -2177,7 +2177,7 @@ procedure SDL_ClearError;
cdecl; external {$IFDEF __GPC__}name 'SDL_ClearError'{$ELSE} SDLLibName{$ENDIF __GPC__};
{$EXTERNALSYM SDL_ClearError}
{$IFNDEF WIN32}
{$IFNDEF windows}
procedure SDL_Error(Code: TSDL_errorcode);
cdecl; external {$IFDEF __GPC__}name 'SDL_Error'{$ELSE} SDLLibName{$ENDIF __GPC__};
{$EXTERNALSYM SDL_Error}
@ -2766,7 +2766,7 @@ cdecl; external {$IFDEF __GPC__}name 'SDL_Linked_Version'{$ELSE} SDLLibName{$END
Note that event handling is activated by this routine.
If you use both sound and video in your application, you need to call
SDL_Init() before opening the sound device, otherwise under Win32 DirectX,
SDL_Init() before opening the sound device, otherwise under windows DirectX,
you won't be able to set full-screen display modes. }
function SDL_VideoInit(driver_name: PChar; flags: UInt32): Integer;
@ -3739,7 +3739,7 @@ cdecl; external {$IFDEF __GPC__}name 'SDL_KillThread'{$ELSE} SDLLibName{$ENDIF _
{------------------------------------------------------------------------------}
{ Get Environment Routines }
{------------------------------------------------------------------------------}
{$IFDEF WIN32}
{$IFDEF windows}
function _putenv( const variable : Pchar ): integer;
cdecl;
{$ENDIF}
@ -3761,7 +3761,7 @@ function SDL_putenv(const variable: PChar): integer;
//function putenv(const variable: PChar): integer;
//{$EXTERNALSYM putenv}
{$IFDEF WIN32}
{$IFDEF windows}
{$IFNDEF __GPC__}
function getenv( const name : Pchar ): PChar; cdecl;
{$ENDIF}
@ -3850,7 +3850,7 @@ end;
procedure SDL_OutOfMemory;
begin
{$IFNDEF WIN32}
{$IFNDEF windows}
SDL_Error(SDL_ENOMEM);
{$ENDIF}
end;
@ -4016,7 +4016,7 @@ begin
Result := SDL_mutexV(mutex);
end;
{$IFDEF WIN32}
{$IFDEF windows}
function _putenv( const variable : Pchar ): Integer;
cdecl; external {$IFDEF __GPC__}name '_putenv'{$ELSE} 'MSVCRT.DLL'{$ENDIF __GPC__};
{$ENDIF}
@ -4024,7 +4024,7 @@ cdecl; external {$IFDEF __GPC__}name '_putenv'{$ELSE} 'MSVCRT.DLL'{$ENDIF __GPC_
function SDL_putenv(const variable: PChar): Integer;
begin
{$IFDEF WIN32}
{$IFDEF windows}
Result := _putenv(variable);
{$ENDIF}
@ -4037,7 +4037,7 @@ begin
{$ENDIF}
end;
{$IFDEF WIN32}
{$IFDEF windows}
{$IFNDEF __GPC__}
function getenv( const name : Pchar ): PChar;
cdecl; external {$IFDEF __GPC__}name 'getenv'{$ELSE} 'MSVCRT.DLL'{$ENDIF};
@ -4046,7 +4046,7 @@ cdecl; external {$IFDEF __GPC__}name 'getenv'{$ELSE} 'MSVCRT.DLL'{$ENDIF};
function SDL_getenv(const name: PChar): PChar;
begin
{$IFDEF WIN32}
{$IFDEF windows}
{$IFDEF __GPC__}
Result := getenv( string( name ) );

2
packages/extra/sdl/sdl_gfx.pas
View File

@ -20,7 +20,7 @@ uses
sdl;
const
{$IFDEF WIN32}
{$IFDEF windows}
SDLgfxLibName = 'SDL_gfx.dll';
{$ENDIF}

3
packages/extra/sdl/sdl_image.pas
View File

@ -109,6 +109,7 @@ unit sdl_image;
{******************************************************************************}
{$I jedi-sdl.inc}
interface
uses
@ -118,7 +119,7 @@ uses
sdl;
const
{$IFDEF WIN32}
{$IFDEF windows}
SDL_ImageLibName = 'SDL_Image.dll';
{$ENDIF}

2
packages/extra/sdl/sdl_mixer.pas
View File

@ -145,7 +145,7 @@ uses
sdl;
const
{$IFDEF WIN32}
{$IFDEF windows}
SDL_MixerLibName = 'SDL_mixer.dll';
{$ENDIF}

10
packages/extra/sdl/sdl_net.pas
View File

@ -120,7 +120,7 @@ uses
gpc,
{$ENDIF}
{$IFDEF WIN32}
{$IFDEF windows}
{$IFNDEF __GPC__}
Windows,
{$ENDIF}
@ -128,7 +128,7 @@ uses
sdl;
const
{$IFDEF WIN32}
{$IFDEF windows}
SDLNetLibName = 'SDL_net.dll';
{$ENDIF}
@ -192,7 +192,7 @@ type
PTCPSocket = ^TTCPSocket;
TTCPSocket = record
ready : integer;
{$IFDEF WIN32}
{$IFDEF windows}
channel : integer;
{$ENDIF}
{$IFDEF UNIX}
@ -215,7 +215,7 @@ type
PUDPSocket = ^TUDPSocket;
TUDPSocket = record
ready : integer;
{$IFDEF WIN32}
{$IFDEF windows}
channel : integer;
{$ENDIF}
{$IFDEF UNIX}
@ -242,7 +242,7 @@ type
PSDLNet_Socket = ^TSDLNet_Socket;
TSDLNet_Socket = record
ready : integer;
{$IFDEF WIN32}
{$IFDEF windows}
channel : integer;
{$ENDIF}
{$IFDEF UNIX}

4
packages/extra/sdl/sdl_sound.pas
View File

@ -91,13 +91,13 @@ unit sdl_sound;
interface
uses
{$IFDEF WIN32}
{$IFDEF windows}
Windows,
{$ENDIF}
sdl;
const
{$IFDEF WIN32}
{$IFDEF windows}
SDLSoundLibName = 'SDL_sound.dll';
{$ENDIF}

4
packages/extra/sdl/sdl_ttf.pas
View File

@ -127,13 +127,13 @@ unit sdl_ttf;
interface
uses
{$IFDEF WIN32}
{$IFDEF windows}
Windows,
{$ENDIF}
sdl;
const
{$IFDEF WIN32}
{$IFDEF windows}
SDLttfLibName = 'SDL_ttf.dll';
{$ENDIF}

2
packages/extra/sdl/sdlsprites.pas
View File

@ -39,7 +39,7 @@ unit sdlsprites;
interface
uses
{$IFDEF WIN32}
{$IFDEF windows}
Windows,
{$ENDIF}
Classes,

2
packages/extra/sdl/smpeg.pas
View File

@ -138,7 +138,7 @@ uses
sdl;
const
{$IFDEF WIN32}
{$IFDEF windows}
SmpegLibName = 'smpeg.dll';
{$ENDIF}