paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 22:48:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

* alternative declaration for SDL_CreateThread added to keep old code working, resolves #40112

Browse Source
This commit is contained in:
florian 2023-01-14 20:59:26 +01:00
parent 5cedecbe25
commit 46ab62fbb9
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/sdl/src/sdl.pas
View File

@ -3898,10 +3898,16 @@ cdecl; external {$IFNDEF NDS}{$IFDEF __GPC__}name 'SDL_CondWaitTimeout'{$ELSE} S
{ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * }
{ Create a thread }
function SDL_CreateThread(fn: PInt; data: Pointer): PSDL_Thread;
function SDL_CreateThread(fn: PInt; data: Pointer): PSDL_Thread; overload;
cdecl; external {$IFNDEF NDS}{$IFDEF __GPC__}name 'SDL_CreateThread'{$ELSE} SDLLibName{$ENDIF __GPC__}{$ENDIF};
{$EXTERNALSYM SDL_CreateThread}
type
SDL_ThreadFunction = function(data: pointer): integer; cdecl;
function SDL_CreateThread(fn: SDL_ThreadFunction; data: Pointer): PSDL_Thread; overload;
cdecl; external {$IFNDEF NDS}{$IFDEF __GPC__}name 'SDL_CreateThread'{$ELSE} SDLLibName{$ENDIF __GPC__}{$ENDIF};
{ Get the 32-bit thread identifier for the current thread }
function SDL_ThreadID: UInt32;
cdecl; external {$IFNDEF NDS}{$IFDEF __GPC__}name 'SDL_ThreadID'{$ELSE} SDLLibName{$ENDIF __GPC__}{$ENDIF};