FIX: It seems that not "everything" was dynamic linked like it should be, now it is ;)

Author: PascalCorpsman

units/sdl_runtime_linking.inc

@@ -911,6 +911,10 @@ Begin
 {$ENDIF}
     SDL_IsTablet := TSDL_IsTablet_func(GetProcAddress(LibHandle, 'SDL_IsTablet'));
     If Not assigned(SDL_IsTablet) Then result := false;
+    SDL_PollEvent := TSDL_PollEvent_func(GetProcAddress(LibHandle, 'SDL_PollEvent'));
+    If Not assigned(SDL_PollEvent) Then result := false;
+    SDL_EventState := TSDL_EventState_func(GetProcAddress(LibHandle, 'SDL_EventState'));
+    If Not assigned(SDL_EventState) Then result := false;
     SDL_GetWindowWMInfo := TSDL_GetWindowWMInfo_func(GetProcAddress(LibHandle, 'SDL_GetWindowWMInfo'));
     If Not assigned(SDL_GetWindowWMInfo) Then result := false;
     SDL_CreateThread := TSDL_CreateThread_func(GetProcAddress(LibHandle, 'SDL_CreateThread'));

units/sdlatomic.inc

@@ -17,22 +17,43 @@ type
 {**
  * Try to lock a spin lock by setting it to a non-zero value.
  *}
+{$ifdef SDL_RUNTIME_LOADING}
+Type
+  TSDL_AtomicTryLock_func = function (lock: PSDL_SpinLock): TSDL_bool; cdecl;
+Var
+  SDL_AtomicTryLock : TSDL_AtomicTryLock_func = Nil;
+{$else}
 function SDL_AtomicTryLock(lock: PSDL_SpinLock): TSDL_bool; cdecl;
 	external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_AtomicTryLock' {$ENDIF} {$ENDIF};
+{$endif}
 
 {**
  * Lock a spin lock by setting it to a non-zero value.
  *}
+{$ifdef SDL_RUNTIME_LOADING}
+Type
+  TSDL_AtomicLock_func = function (lock: PSDL_SpinLock): TSDL_bool; cdecl;
+Var
+  SDL_AtomicLock : TSDL_AtomicLock_func = Nil;
+{$else}
 function SDL_AtomicLock(lock: PSDL_SpinLock): TSDL_bool; cdecl;
 	external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_AtomicLock' {$ENDIF} {$ENDIF};
+{$endif}
 
 {**
  * Unlock a spin lock by setting it to 0.
  *
  * Always returns immediately.
  *}
+{$ifdef SDL_RUNTIME_LOADING}
+Type
+  TSDL_AtomicUnlock_proc = procedure (lock: PSDL_SpinLock); cdecl;
+Var
+  SDL_AtomicUnlock : TSDL_AtomicUnlock_proc = Nil;
+{$else}
 procedure SDL_AtomicUnlock(lock: PSDL_SpinLock); cdecl;
 	external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_AtomicUnlock' {$ENDIF} {$ENDIF};
+{$endif}
 
 {**
  * The compiler barrier prevents the compiler from reordering
@@ -54,30 +75,58 @@ type
 {**
  * Set an atomic variable to a new value if it is currently an old value.
  *}
-function SDL_AtomicCAS(atomic: PSDL_Atomic; oldValue, newValue: cint): TSDL_bool; cdecl;
+ {$ifdef SDL_RUNTIME_LOADING}
+ Type
+   TSDL_AtomicCAS_func =  function (atomic: PSDL_Atomic; oldValue, newValue: cint): TSDL_bool; cdecl;
+ Var
+   SDL_AtomicCAS : TSDL_AtomicCAS_func = Nil;
+ {$else}
+ function SDL_AtomicCAS(atomic: PSDL_Atomic; oldValue, newValue: cint): TSDL_bool; cdecl;
 	external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_AtomicCAS' {$ENDIF} {$ENDIF};
+ {$endif}
 
 {**
  * Set an atomic variable to a new value and return the old one.
  *
  * This function also acts as a full memory barrier.
  *}
-function SDL_AtomicSet(atomic: PSDL_Atomic; value: cint): cint; cdecl;
+ {$ifdef SDL_RUNTIME_LOADING}
+ Type
+   TSDL_AtomicSet_func =  function (atomic: PSDL_Atomic; value: cint): cint; cdecl;
+ Var
+   SDL_AtomicSet : TSDL_AtomicSet_func = Nil;
+ {$else}
+ function SDL_AtomicSet(atomic: PSDL_Atomic; value: cint): cint; cdecl;
 	external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_AtomicSet' {$ENDIF} {$ENDIF};
+ {$endif}
 
 {**
  * Get the value of an atomic variable.
  *}
-function SDL_AtomicGet(atomic: PSDL_Atomic): cint; cdecl;
+ {$ifdef SDL_RUNTIME_LOADING}
+ Type
+   TSDL_AtomicGet_func =  function (atomic: PSDL_Atomic): cint; cdecl;
+ Var
+   SDL_AtomicGet : TSDL_AtomicGet_func = Nil;
+ {$else}
+ function SDL_AtomicGet(atomic: PSDL_Atomic): cint; cdecl;
 	external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_AtomicGet' {$ENDIF} {$ENDIF};
+ {$endif}
 
 {**
  * Add to an atomic variable, and return the old value.
  *
  * This function also acts as a full memory barrier.
  *}
-function SDL_AtomicAdd(atomic: PSDL_Atomic; value: cint): cint; cdecl;
+ {$ifdef SDL_RUNTIME_LOADING}
+ Type
+   TSDL_AtomicAdd_func = function (atomic: PSDL_Atomic; value: cint): cint; cdecl;
+ Var
+   SDL_AtomicAdd : TSDL_AtomicAdd_func = Nil;
+ {$else}
+ function SDL_AtomicAdd(atomic: PSDL_Atomic; value: cint): cint; cdecl;
 	external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_AtomicAdd' {$ENDIF} {$ENDIF};
+ {$endif}
 
 {**
  * Increment an atomic variable used as a reference count.
@@ -92,18 +141,39 @@ function SDL_AtomicDecRef(atomic: PSDL_Atomic): Boolean;
 {**
  * Set a pointer to a new value if it is currently an old value.
  *}
+{$ifdef SDL_RUNTIME_LOADING}
+Type
+  TSDL_AtomicCASPtr_func = function (ptr: PPointer; oldValue, newValue: Pointer): TSDL_bool; cdecl;
+Var
+  SDL_AtomicCASPtr : TSDL_AtomicCASPtr_func = Nil;
+{$else}
 function SDL_AtomicCASPtr(ptr: PPointer; oldValue, newValue: Pointer): TSDL_bool; cdecl;
 	external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_AtomicCASPtr' {$ENDIF} {$ENDIF};
+{$endif}
 
 {**
  * Set a pointer to a new value atomically, and return the old value.
  *}
+{$ifdef SDL_RUNTIME_LOADING}
+Type
+  TSDL_AtomicSetPtr_func = function (ptr: PPointer; value: Pointer): Pointer; cdecl;
+Var
+  SDL_AtomicSetPtr : TSDL_AtomicSetPtr_func = Nil;
+{$else}
 function SDL_AtomicSetPtr(ptr: PPointer; value: Pointer): Pointer; cdecl;
 	external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_AtomicSetPtr' {$ENDIF} {$ENDIF};
+{$endif}
 
 {**
  * Get the value of a pointer atomically.
  *}
+{$ifdef SDL_RUNTIME_LOADING}
+Type
+  TSDL_AtomicGetPtr_func = function (ptr: PPointer): Pointer; cdecl;
+Var
+  SDL_AtomicGetPtr : TSDL_AtomicGetPtr_func = Nil;
+{$else}
 function SDL_AtomicGetPtr(ptr: PPointer): Pointer; cdecl;
 	external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_AtomicGetPtr' {$ENDIF} {$ENDIF};
+{$endif}
 

units/sdlaudio.inc

@@ -219,8 +219,15 @@ type
    *
    * \sa SDL_GetAudioDriver
    *}
+   {$ifdef SDL_RUNTIME_LOADING}
+   Type
+     TSDL_GetNumAudioDrivers_func = function : cint; cdecl;
+   Var
+     SDL_GetNumAudioDrivers : TSDL_GetNumAudioDrivers_func = Nil;
+   {$else}
 function SDL_GetNumAudioDrivers: cint; cdecl;
   external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_GetNumAudioDrivers' {$ENDIF} {$ENDIF};
+{$endif}
 
 {**
  * Use this function to get the name of a built in audio driver.
@@ -299,9 +306,15 @@ function SDL_AudioInit(driver_name: PAnsiChar): cint; cdecl;
  *
  * \sa SDL_AudioInit
  *}
+{$ifdef SDL_RUNTIME_LOADING}
+Type
+  TSDL_AudioQuit_proc = procedure ; cdecl;
+Var
+  SDL_AudioQuit : TSDL_AudioQuit_proc = Nil;
+{$else}
 procedure SDL_AudioQuit; cdecl;
   external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_AudioQuit' {$ENDIF} {$ENDIF};
-
+{$endif}
   {**
  * Get the name of the current audio driver.
  *
@@ -318,9 +331,15 @@ procedure SDL_AudioQuit; cdecl;
  *
  * \sa SDL_AudioInit
  *}
+{$ifdef SDL_RUNTIME_LOADING}
+Type
+  TSDL_GetCurrentAudioDriver_func = function : PAnsiChar; cdecl;
+Var
+  SDL_GetCurrentAudioDriver : TSDL_GetCurrentAudioDriver_func = Nil;
+{$else}
 function SDL_GetCurrentAudioDriver: PAnsiChar; cdecl;
   external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_GetCurrentAudioDriver' {$ENDIF} {$ENDIF};
-
+{$endif}
 {**
  * This function is a legacy means of opening the audio device.
  *
@@ -723,8 +742,15 @@ const
  *
  * \sa SDL_GetAudioDeviceStatus
  *}
-function SDL_GetAudioStatus: TSDL_AudioStatus; cdecl;
+ {$ifdef SDL_RUNTIME_LOADING}
+ Type
+   TSDL_GetAudioStatus_func =  function : TSDL_AudioStatus; cdecl;
+ Var
+   SDL_GetAudioStatus : TSDL_GetAudioStatus_func = Nil;
+ {$else}
+ function SDL_GetAudioStatus: TSDL_AudioStatus; cdecl;
   external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_GetAudioStatus' {$ENDIF} {$ENDIF};
+ {$endif}
 
 {**
  * Use this function to get the current audio state of an audio device.
@@ -1572,8 +1598,15 @@ procedure SDL_ClearQueuedAudio(dev: TSDL_AudioDeviceID); cdecl;
  * \sa SDL_UnlockAudio
  * \sa SDL_UnlockAudioDevice
  *}
+{$ifdef SDL_RUNTIME_LOADING}
+Type
+  TSDL_LockAudio_proc = procedure ; cdecl;
+Var
+  SDL_LockAudio : TSDL_LockAudio_proc = Nil;
+{$else}
 procedure SDL_LockAudio; cdecl;
   external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_LockAudio' {$ENDIF} {$ENDIF};
+{$endif}
 
 {**
  * Use this function to lock out the audio callback function for a specified
@@ -1640,9 +1673,15 @@ procedure SDL_LockAudioDevice(dev: TSDL_AudioDeviceID); cdecl;
  * \sa SDL_LockAudio
  * \sa SDL_UnlockAudioDevice
  *}
+{$ifdef SDL_RUNTIME_LOADING}
+Type
+  TSDL_UnlockAudio_proc = procedure ; cdecl;
+Var
+  SDL_UnlockAudio : TSDL_UnlockAudio_proc = Nil;
+{$else}
 procedure SDL_UnlockAudio; cdecl;
   external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_Unlock' {$ENDIF} {$ENDIF};
-
+  {$endif}
 {**
  * Use this function to unlock the audio callback function for a specified
  * device.
@@ -1683,9 +1722,15 @@ procedure SDL_UnlockAudioDevice(dev: TSDL_AudioDeviceID); cdecl;
  *
  * \sa SDL_OpenAudio
  *}
+{$ifdef SDL_RUNTIME_LOADING}
+Type
+  TSDL_CloseAudio_proc = procedure ; cdecl;
+Var
+  SDL_CloseAudio : TSDL_CloseAudio_proc = Nil;
+{$else}
 procedure SDL_CloseAudio; cdecl;
   external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_CloseAudio' {$ENDIF} {$ENDIF};
-
+{$endif}
 {**
  * Use this function to shut down audio processing and close the audio device.
  *

units/sdlcpuinfo.inc

@@ -28,6 +28,9 @@ function SDL_GetCPUCount(): cint; cdecl;
  * This is useful for determining multi-threaded structure padding
  * or SIMD prefetch sizes.
  *}
+         {$ifdef SDL_RUNTIME_LOADING}
+         // TODO: Portieren
+         {$else}
 function SDL_GetCPUCacheLineSize(): cint; cdecl;
 	external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_GetCPUCacheLineSize' {$ENDIF} {$ENDIF};
 
@@ -221,3 +224,4 @@ function SDL_SIMDRealloc(mem: Pointer; const len: csize_t): Pointer; cdecl;
 procedure SDL_SIMDFree(mem: Pointer); cdecl;
 	external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_SIMDFree' {$ENDIF} {$ENDIF};
 
+{$endif}

units/sdlerror.inc

@@ -35,8 +35,15 @@ function SDL_SetError(const fmt: PAnsiChar; args: array of const): cint; cdecl;
  *
  *  \return a pointer to the last error message that was set
  *}
+{$ifdef SDL_RUNTIME_LOADING}
+Type
+  TSDL_GetError_func = function (): PAnsiChar; cdecl;
+Var
+  SDL_GetError : TSDL_GetError_func = Nil;
+{$else}
 function SDL_GetError: PAnsiChar; cdecl;
   external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_GetError' {$ENDIF} {$ENDIF};
+{$endif}
 
 {**
  *  \brief Get the last error message that was set for the current thread
@@ -64,7 +71,14 @@ function SDL_GetErrorMsg(const errstr: PAnsiChar; maxlen: cint): PAnsiChar; cdec
 {**
  *  \brief Clear the error message for the current thread
  *}
+{$ifdef SDL_RUNTIME_LOADING}
+Type
+  TSDL_ClearError_proc = procedure () cdecl;
+Var
+  SDL_ClearError : TSDL_ClearError_proc = Nil;
+{$else}
 procedure SDL_ClearError cdecl; external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_ClearError' {$ENDIF} {$ENDIF};
+{$endif}
 
 {*Internal error functions*}
 {**