ADD: Update libs

Author: PascalCorpsman

SDL2/usdl_joystick.pas

@@ -64,22 +64,28 @@
     Destructor Destroy; override;
   End;
 
-Function ResolveJoystickNameToIndex(Const aName: String): integer; // -1 wenn nicht gefunden
+Function ResolveJoystickNameToIndex(Const aName: String; aIndex: integer = 0): integer; // -1 wenn nicht gefunden
 
 Implementation
 
-Function ResolveJoystickNameToIndex(Const aName: String): integer;
+Function ResolveJoystickNameToIndex(Const aName: String; aIndex: integer): integer;
 Var
-  i: Integer;
+  index, i: Integer;
   s: String;
 Begin
   result := -1;
+  index := 0;
   If aname = '' Then exit;
   For i := 0 To SDL_NumJoysticks() - 1 Do Begin
     s := SDL_JoystickNameForIndex(i);
-    If aName = s Then Begin
+    If (aName = s) Then Begin
       result := i;
-      exit;
+      If aIndex = index Then Begin
+        exit;
+      End
+      Else Begin
+        inc(index);
+      End;
     End;
   End;
 End;

data_control/ufifo.pas

@@ -43,7 +43,7 @@
   (*
    * TQueue
    *
-   * Eine via Pointer realisierte FIFO, Thread Save
+   * Eine via Pointer realisierte FIFO, Thread Safe
    *)
 
   { TFifo }
@@ -86,7 +86,7 @@
    *
    * Eine via Array realisierte FIFO, welche sich intern bei Bedarf erweitert
    * Vorteil : weniger Speicherallokationen
-   * Nachteil : nicht Thread Save (höchstwahrscheinlich)
+   * Nachteil : nicht Thread Safe (höchstwahrscheinlich)
    *)
 
   { TBufferedFifo }