ADD: SDL_PumpEvents to port

Author: PascalCorpsman

units/sdl_runtime_linking.inc

@@ -911,6 +911,8 @@ Begin
 {$ENDIF}
     SDL_IsTablet := TSDL_IsTablet_func(GetProcAddress(LibHandle, 'SDL_IsTablet'));
     If Not assigned(SDL_IsTablet) Then result := false;
+    SDL_PumpEvents := TSDL_PumpEvents_proc(GetProcAddress(LibHandle, 'SDL_PumpEvents'));
+    If Not assigned(SDL_PumpEvents) 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'));

units/sdlevents.inc

@@ -678,7 +678,9 @@ type
    *  This should only be run in the thread that sets the video mode.
    *}
    {$ifdef SDL_RUNTIME_LOADING}
-   // TODO: Portieren
+Type
+  TSDL_PumpEvents_proc = Procedure (); cdecl;
+  var SDL_PumpEvents: TSDL_PumpEvents_proc = Nil;
    {$else}
 
   procedure SDL_PumpEvents cdecl; external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_PumpEvents' {$ENDIF} {$ENDIF};
@@ -741,16 +743,15 @@ type
    *               stored in that area.
    *}
   {$endif}
-{$ifdef SDL_RUNTIME_LOADING}
-Type
-  TSDL_PollEvent_func =  function (event: PSDL_Event): cint32 cdecl;
-Var
-  SDL_PollEvent : TSDL_PollEvent_func = Nil;
-{$else}
-
-  function SDL_PollEvent(event: PSDL_Event): cint32 cdecl; external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_PollEvent' {$ENDIF} {$ENDIF};
-
-{$endif}
+  {$ifdef SDL_RUNTIME_LOADING}
+  Type
+    TSDL_PollEvent_func =  function (event: PSDL_Event): cint32 cdecl;
+  Var
+    SDL_PollEvent : TSDL_PollEvent_func = Nil;
+  {$else}
+  function SDL_PollEvent(event: PSDL_Event): cint32 cdecl;
+external SDL_LibName {$IFDEF DELPHI} {$IFDEF MACOS} name '_SDL_PollEvent' {$ENDIF} {$ENDIF};
+ {$endif}
 
     {$ifdef SDL_RUNTIME_LOADING}
     // TODO: Portieren