Skip to content

Commit df74cd7

Browse files
FIX: compilation for windows
1 parent e1e18d1 commit df74cd7

File tree

3 files changed

+13
-7
lines changed

3 files changed

+13
-7
lines changed

units/runtime/sdlsystem.inc

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -118,7 +118,7 @@ Var
118118
* \since This function is available since SDL 2.0.2.
119119
*}
120120
Type
121-
TSDL_DXGIGetOutputInfo_fun = function(displ
121+
TSDL_DXGIGetOutputInfo_fun = function(displayIndex: cint; adapterIndex, outputIndex: pcint): TSDL_Bool;cdecl;
122122
Var
123123
SDL_DXGIGetOutputInfo : TSDL_DXGIGetOutputInfo_fun = Nil;
124124

units/runtime/sdlthread.inc

Lines changed: 10 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -92,24 +92,30 @@ type
9292

9393

9494
Type
95-
TSDL_CreateThread_func = function(fn: T
95+
TSDL_CreateThread_func = function(fn: TSDL_ThreadFunction; name: PAnsiChar;
96+
data: Pointer;
97+
pfnBeginThread: TpfnSDL_CurrentBeginThread;
98+
pfnEndThread: TpfnSDL_CurrentEndThread): PSDL_Thread;cdecl;
9699
Var
97100
SDL_CreateThread : TSDL_CreateThread_func = Nil;
98101

99102

100103
Type
101-
TSDL_CreateThreadWithStackSize_func = function(fn: T
104+
TSDL_CreateThreadWithStackSize_func = function(fn: TSDL_ThreadFunction;
105+
name: PAnsiChar; const stacksize: csize_t; data: Pointer;
106+
pfnBeginThread: TpfnSDL_CurrentBeginThread;
107+
pfnEndThread: TpfnSDL_CurrentEndThread): PSDL_Thread; cdecl;
102108
Var
103109
SDL_CreateThreadWithStackSize : TSDL_CreateThreadWithStackSize_func = Nil;
104110

105111

106112
{ SDL2-For-Pascal: #note : In the C header are two versions
107113
of these macro functions. One for SDL's dynamic API and one without.
108114
We can go with this for the moment. Improvement surely possible. }
109-
function SDL_CreateThread(fn: TSDL_ThreadFunction; name: PAnsiChar;
115+
function SDL_CreateThread2(fn: TSDL_ThreadFunction; name: PAnsiChar;
110116
data: Pointer): PSDL_Thread; overload;
111117

112-
function SDL_CreateThreadWithStackSize(fn: TSDL_ThreadFunction; name: PAnsiChar;
118+
function SDL_CreateThreadWithStackSize2(fn: TSDL_ThreadFunction; name: PAnsiChar;
113119
const stacksize: csize_t; data: Pointer): PSDL_Thread; overload;
114120

115121

units/sdlthread.inc

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -106,10 +106,10 @@ function SDL_CreateThreadWithStackSize(fn: TSDL_ThreadFunction;
106106
{ SDL2-For-Pascal: #note : In the C header are two versions
107107
of these macro functions. One for SDL's dynamic API and one without.
108108
We can go with this for the moment. Improvement surely possible. }
109-
function SDL_CreateThread(fn: TSDL_ThreadFunction; name: PAnsiChar;
109+
function SDL_CreateThread2(fn: TSDL_ThreadFunction; name: PAnsiChar;
110110
data: Pointer): PSDL_Thread; overload;
111111

112-
function SDL_CreateThreadWithStackSize(fn: TSDL_ThreadFunction; name: PAnsiChar;
112+
function SDL_CreateThreadWithStackSize2(fn: TSDL_ThreadFunction; name: PAnsiChar;
113113
const stacksize: csize_t; data: Pointer): PSDL_Thread; overload;
114114

115115

0 commit comments

Comments
 (0)