hedgewars: comparison hedgewars/SDLh.pas

equal deleted inserted replaced

-:4c35e9cf6057
+:40e5af28d026
 begin
 name:= SDL_GetCurrentVideoDriver();
 if (name <> nil) and (namebuf <> nil) then
 begin
 strlcopy(namebuf, name, maxlen);
-exit(namebuf)
+SDL_VideoDriverName:= namebuf
 end;
-exit(name);
+SDL_VideoDriverName:= name;
 end;
 function SDL_EnableUNICODE(enable: LongInt): LongInt;
 begin
 SDL_StartTextInput();
-exit(0);
+SDL_EnableUNICODE:= 0;
 end;
 function SDL_EnableKeyRepeat(timedelay, interval: LongInt): LongInt;
 begin
 timedelay:= timedelay;  // avoid hint
 interval:= interval;    // avoid hint
-exit(0);
+SDL_EnableKeyRepeat:= 0;
 end;
 {$ELSE}
 const conversionFormat: TSDL_PixelFormat = (
 palette: nil; BitsPerPixel: 32; BytesPerPixel: 4;
 Rloss: 0; Gloss: 0; Bloss: 0; Aloss: 0;
 colorkey: 0; alpha: 255);
 function SDL_AllocFormat(format: LongWord): PSDL_PixelFormat;
 begin
 format:= format;
-exit(@conversionFormat);
+SDL_AllocFormat:= @conversionFormat;
 end;
 procedure SDL_FreeFormat(pixelformat: PSDL_PixelFormat);
 begin
 pixelformat:= pixelformat;  // avoid hint
 end;
 {$IFNDEF SDL_MIXER_NEWER}
 function  Mix_Init(flags: LongInt): LongInt;
 begin
-exit(flags);
+Mix_Init:= flags;
 end;
 procedure Mix_Quit;
 begin
 end;
 {$ENDIF}
 {$IFNDEF SDL_IMAGE_NEWER}
 function  IMG_Init(flags: LongInt): LongInt;
 begin
-exit(flags);
+IMG_Init:= flags;
 end;
 procedure IMG_Quit;
 begin
 end;