Add SDL_thread.inc

Author: Free-Pascal-meets-SDL-Website

units/SDL3.pas

@@ -122,6 +122,7 @@ interface
 {$I SDL_hidapi.inc}                       // 3.2.0
 {$I SDL_metal.inc}                        // 3.2.0
 {$I SDL_vulkan.inc}                       // 3.2.0
+{$I SDL_thread.inc}                       // 3.2.0
 
 
 
@@ -337,5 +338,16 @@ function SDL_AtomicDecRef(a: PSDL_AtomicInt): cbool;
   SDL_AtomicDecRef:=(SDL_AddAtomicInt(a,-1)=1);
 end;
 
+{ Macros from SDL_thread.h }
+function SDL_CreateThread(fn: TSDL_ThreadFunction; name: PAnsiChar; data: Pointer): PSDL_Thread;
+begin
+  SDL_CreateThread:=SDL_CreateThreadRuntime(fn,name,data,TSDL_FunctionPointer(SDL_BeginThreadFunction),TSDL_FunctionPointer(SDL_EndThreadFunction));
+end;
+
+function SDL_CreateThreadWithProperties(props: TSDL_PropertiesID): PSDL_Thread;
+begin
+  SDL_CreateThreadWithProperties:=SDL_CreateThreadWithPropertiesRuntime(props,TSDL_FunctionPointer(SDL_BeginThreadFunction),TSDL_FunctionPointer(SDL_EndThreadFunction));
+end;
+
 end.