495 

   495 

   496 procedure ControllerInit;

   496 procedure ControllerInit;

   497 var j: Integer;

   497 var j: Integer;

   498 begin

   498 begin

   499 ControllerEnabled:= 0;

   499 ControllerEnabled:= 0;

   501 exit; // joystick subsystem disabled on iPhone

   501 exit; // joystick subsystem disabled on iPhone

   502 {$ENDIF}

   502 {$ENDIF}

   503 

   503 

   504 SDL_InitSubSystem(SDL_INIT_JOYSTICK);

   504 SDL_InitSubSystem(SDL_INIT_JOYSTICK);

   505 ControllerNumControllers:= SDL_NumJoysticks();

   505 ControllerNumControllers:= SDL_NumJoysticks();