* PChar -> PAnsiChar

packages/sdl/src/powersdl.inc

@@ -2,14 +2,14 @@
 var PowerSDLBase : pLibrary;
 
 const
-    POWERSDLNAME : PChar = 'powersdl.library';
+    POWERSDLNAME : PAnsiChar = 'powersdl.library';
 
 function SDL_Init(flags : DWord) : LongInt; syscall basesysv PowerSDLBase 028;
 procedure SDL_RealQuit; syscall basesysv PowerSDLBase 034;
 function SDL_InitSubSystem(flags : DWord) : LongInt; syscall basesysv PowerSDLBase 040;
 procedure SDL_QuitSubSystem(flags : DWord); syscall basesysv PowerSDLBase 046;
 function SDL_WasInit(flags : DWord) : DWord; syscall basesysv PowerSDLBase 052;
-function SDL_RWFromFile(const file_ : pChar; const mode : pChar) : pSDL_RWops; syscall basesysv PowerSDLBase 058;
+function SDL_RWFromFile(const file_ : PAnsiChar; const mode : PAnsiChar) : pSDL_RWops; syscall basesysv PowerSDLBase 058;
 function SDL_RWFromMem(mem : Pointer; size : LongInt) : pSDL_RWops; syscall basesysv PowerSDLBase 070;
 function SDL_AllocRW : pSDL_RWops; syscall basesysv PowerSDLBase 076;
 procedure SDL_FreeRW(area : pSDL_RWops); syscall basesysv PowerSDLBase 082;
@@ -24,7 +24,7 @@ procedure SDL_UpdateRect(screen : pSDL_Surface; x : LongInt; y : LongInt; w : DW
 function SDL_SetVideoMode(width : LongInt; height : LongInt; bpp : LongInt; flags : DWord) : pSDL_Surface; syscall basesysv PowerSDLBase 142;
 function SDL_MapRGB(format : pSDL_PixelFormat; r : Byte; g : Byte; b : Byte) : DWord; syscall basesysv PowerSDLBase 148;
 function SDL_MapRGBA(format : pSDL_PixelFormat; r : Byte; g : Byte; b : Byte; a : Byte) : DWord; syscall basesysv PowerSDLBase 154;
-function SDL_VideoDriverName(namebuf : pChar; maxlen : LongInt) : pChar; syscall basesysv PowerSDLBase 160;
+function SDL_VideoDriverName(namebuf : PAnsiChar; maxlen : LongInt) : PAnsiChar; syscall basesysv PowerSDLBase 160;
 function SDL_GetVideoSurface : pSDL_Surface; syscall basesysv PowerSDLBase 166;
 function SDL_VideoModeOK(width : LongInt; height : LongInt; bpp : LongInt; flags : DWord) : LongInt; syscall basesysv PowerSDLBase 172;
 function SDL_ListModes(format : pSDL_PixelFormat; flags : DWord) : ppSDL_Rect; syscall basesysv PowerSDLBase 178;
@@ -33,8 +33,8 @@ function SDL_SetGammaRamp(const red : LongInt; const green : LongInt; const blue
 function SDL_GetGammaRamp(var red : Word; var green : Word; var blue : Word) : LongInt; syscall basesysv PowerSDLBase 196;
 function SDL_SetColors(surface : pSDL_Surface; colors : pSDL_Color; firstcolor : LongInt; ncolors : LongInt) : LongInt; syscall basesysv PowerSDLBase 202;
 function SDL_SetPalette(surface : pSDL_Surface; flags : LongInt; colors : pSDL_Color; firstcolor : LongInt; ncolors : LongInt) : LongInt; syscall basesysv PowerSDLBase 208;
-procedure SDL_GetRGB(pixel : DWord; format : pSDL_PixelFormat; r : pChar; g : pChar; b : pChar); syscall basesysv PowerSDLBase 214;
-procedure SDL_GetRGBA(pixel : DWord; format : pSDL_PixelFormat; r : pChar; g : pChar; b : pChar; a : pChar); syscall basesysv PowerSDLBase 220;
+procedure SDL_GetRGB(pixel : DWord; format : pSDL_PixelFormat; r : PAnsiChar; g : PAnsiChar; b : PAnsiChar); syscall basesysv PowerSDLBase 214;
+procedure SDL_GetRGBA(pixel : DWord; format : pSDL_PixelFormat; r : PAnsiChar; g : PAnsiChar; b : PAnsiChar; a : PAnsiChar); syscall basesysv PowerSDLBase 220;
 function SDL_CreateRGBSurface(flags : DWord; width : LongInt; height : LongInt; depth : LongInt; Rmask : DWord; Gmask : DWord; Bmask : DWord; Amask : DWord) : pSDL_Surface; syscall basesysv PowerSDLBase 226;
 function SDL_CreateRGBSurfaceFrom(pixels : Pointer; width : LongInt; height : LongInt; depth : LongInt; pitch : LongInt; Rmask : DWord; Gmask : DWord; Bmask : DWord; Amask : DWord) : pSDL_Surface; syscall basesysv PowerSDLBase 232;
 function SDL_LockSurface(surface : pSDL_Surface) : LongInt; syscall basesysv PowerSDLBase 238;
@@ -51,17 +51,17 @@ function SDL_LockYUVOverlay(overlay : pSDL_Overlay) : LongInt; syscall basesysv
 procedure SDL_UnlockYUVOverlay(overlay : pSDL_Overlay); syscall basesysv PowerSDLBase 304;
 function SDL_DisplayYUVOverlay(overlay : pSDL_Overlay; dstrect : pSDL_Rect) : LongInt; syscall basesysv PowerSDLBase 310;
 procedure SDL_FreeYUVOverlay(overlay : pSDL_Overlay); syscall basesysv PowerSDLBase 316;
-function SDL_GL_LoadLibrary(const path : pChar) : LongInt; syscall basesysv PowerSDLBase 322;
-function SDL_GL_GetProcAddress(const proc : pChar) : Pointer; syscall basesysv PowerSDLBase 328;
+function SDL_GL_LoadLibrary(const path : PAnsiChar) : LongInt; syscall basesysv PowerSDLBase 322;
+function SDL_GL_GetProcAddress(const proc : PAnsiChar) : Pointer; syscall basesysv PowerSDLBase 328;
 function SDL_GL_SetAttribute(attr : LongInt; value : LongInt) : LongInt; syscall basesysv PowerSDLBase 334;
 function SDL_GL_GetAttribute(attr : LongInt; value : pLongInt) : LongInt; syscall basesysv PowerSDLBase 340;
 procedure SDL_GL_SwapBuffers; syscall basesysv PowerSDLBase 346;
 procedure SDL_GL_UpdateRects(numrects : LongInt; rects : pSDL_Rect); syscall basesysv PowerSDLBase 352;
 procedure SDL_GL_Lock; syscall basesysv PowerSDLBase 358;
 procedure SDL_GL_Unlock; syscall basesysv PowerSDLBase 364;
-procedure SDL_WM_SetCaption(const title : pChar; const icon : pChar); syscall basesysv PowerSDLBase 370;
+procedure SDL_WM_SetCaption(const title : PAnsiChar; const icon : PAnsiChar); syscall basesysv PowerSDLBase 370;
 procedure SDL_WM_GetCaption(var title : pShortInt; var icon : pShortInt); syscall basesysv PowerSDLBase 376;
-procedure SDL_WM_SetIcon(icon : pSDL_Surface; mask : pChar); syscall basesysv PowerSDLBase 382;
+procedure SDL_WM_SetIcon(icon : pSDL_Surface; mask : PAnsiChar); syscall basesysv PowerSDLBase 382;
 function SDL_WM_IconifyWindow : LongInt; syscall basesysv PowerSDLBase 388;
 function SDL_WM_ToggleFullScreen(surface : pSDL_Surface) : LongInt; syscall basesysv PowerSDLBase 394;
 function SDL_WM_GrabInput(mode : LongInt) : LongInt; syscall basesysv PowerSDLBase 400;
@@ -79,7 +79,7 @@ procedure SDL_SetEventFilter(filter : Pointer); syscall basesysv PowerSDLBase 46
 function SDL_GetEventFilter : Pointer; syscall basesysv PowerSDLBase 472;
 function SDL_EventState(type_ : Byte; state : LongInt) : Byte; syscall basesysv PowerSDLBase 478;
 function SDL_NumJoysticks : LongInt; syscall basesysv PowerSDLBase 484;
-function SDL_JoystickName(device_index : LongInt) : pChar; syscall basesysv PowerSDLBase 490;
+function SDL_JoystickName(device_index : LongInt) : PAnsiChar; syscall basesysv PowerSDLBase 490;
 function SDL_JoystickOpen(device_index : LongInt) : pSDL_Joystick; syscall basesysv PowerSDLBase 496;
 function SDL_JoystickOpened(device_index : LongInt) : LongInt; syscall basesysv PowerSDLBase 502;
 function SDL_JoystickIndex(joystick : pSDL_Joystick) : LongInt; syscall basesysv PowerSDLBase 508;
@@ -96,33 +96,33 @@ function SDL_JoystickGetButton(joystick : pSDL_Joystick; button : LongInt) : Byt
 procedure SDL_JoystickClose(joystick : pSDL_Joystick); syscall basesysv PowerSDLBase 574;
 function SDL_EnableUNICODE(enable : LongInt) : LongInt; syscall basesysv PowerSDLBase 580;
 function SDL_EnableKeyRepeat(delay : LongInt; interval : LongInt) : LongInt; syscall basesysv PowerSDLBase 586;
-function SDL_GetKeyState(numkeys : pLongInt) : pChar; syscall basesysv PowerSDLBase 592;
+function SDL_GetKeyState(numkeys : pLongInt) : PAnsiChar; syscall basesysv PowerSDLBase 592;
 function SDL_GetModState : LongInt; syscall basesysv PowerSDLBase 598;
 procedure SDL_SetModState(modstate : LongInt); syscall basesysv PowerSDLBase 604;
-function SDL_GetKeyName(key : LongInt) : pChar; syscall basesysv PowerSDLBase 610;
+function SDL_GetKeyName(key : LongInt) : PAnsiChar; syscall basesysv PowerSDLBase 610;
 function SDL_GetMouseState(x : pLongInt; y : pLongInt) : Byte; syscall basesysv PowerSDLBase 616;
 function SDL_GetRelativeMouseState(x : pLongInt; y : pLongInt) : Byte; syscall basesysv PowerSDLBase 622;
 procedure SDL_WarpMouse(x : Word; y : Word); syscall basesysv PowerSDLBase 628;
-function SDL_CreateCursor(data : pChar; mask : pChar; w : LongInt; h : LongInt; hot_x : LongInt; hot_y : LongInt) : pSDL_Cursor; syscall basesysv PowerSDLBase 634;
+function SDL_CreateCursor(data : PAnsiChar; mask : PAnsiChar; w : LongInt; h : LongInt; hot_x : LongInt; hot_y : LongInt) : pSDL_Cursor; syscall basesysv PowerSDLBase 634;
 procedure SDL_SetCursor(cursor : pSDL_Cursor); syscall basesysv PowerSDLBase 640;
 function SDL_GetCursor : pSDL_Cursor; syscall basesysv PowerSDLBase 646;
 procedure SDL_FreeCursor(cursor : pSDL_Cursor); syscall basesysv PowerSDLBase 652;
 function SDL_ShowCursor(toggle : LongInt) : LongInt; syscall basesysv PowerSDLBase 658;
 function SDL_GetAppState : Byte; syscall basesysv PowerSDLBase 664;
-procedure SDL_SetError(fmt: PChar); syscall basesysv PowerSDLBase 670;
-function SDL_GetError : pChar; syscall basesysv PowerSDLBase 676;
+procedure SDL_SetError(fmt: PAnsiChar); syscall basesysv PowerSDLBase 670;
+function SDL_GetError : PAnsiChar; syscall basesysv PowerSDLBase 676;
 procedure SDL_ClearError; syscall basesysv PowerSDLBase 682;
-function SDL_AudioInit(const driver_name : pChar) : LongInt; syscall basesysv PowerSDLBase 688;
+function SDL_AudioInit(const driver_name : PAnsiChar) : LongInt; syscall basesysv PowerSDLBase 688;
 procedure SDL_AudioQuit; syscall basesysv PowerSDLBase 694;
-function SDL_AudioDriverName(namebuf : pChar; maxlen : LongInt) : pChar; syscall basesysv PowerSDLBase 700;
+function SDL_AudioDriverName(namebuf : PAnsiChar; maxlen : LongInt) : PAnsiChar; syscall basesysv PowerSDLBase 700;
 function SDL_OpenAudio(desired : pSDL_AudioSpec; obtained : pSDL_AudioSpec) : LongInt; syscall basesysv PowerSDLBase 706;
 function SDL_GetAudioStatus : LongInt; syscall basesysv PowerSDLBase 712;
 procedure SDL_PauseAudio(pause_on : LongInt); syscall basesysv PowerSDLBase 718;
 function SDL_LoadWAV_RW(src : pSDL_RWops; freesrc : LongInt; spec : pSDL_AudioSpec; audio_buf : pByte; audio_len : PDWord) : pSDL_AudioSpec; syscall basesysv PowerSDLBase 724;
-procedure SDL_FreeWAV(audio_buf : pChar); syscall basesysv PowerSDLBase 730;
+procedure SDL_FreeWAV(audio_buf : PAnsiChar); syscall basesysv PowerSDLBase 730;
 function SDL_BuildAudioCVT(cvt : pSDL_AudioCVT; src_format : Word; src_channels : Byte; src_rate : LongInt; dst_format : Word; dst_channels : Byte; dst_rate : LongInt) : LongInt; syscall basesysv PowerSDLBase 736;
 function SDL_ConvertAudio(cvt : pSDL_AudioCVT) : LongInt; syscall basesysv PowerSDLBase 742;
-procedure SDL_MixAudio(dst : pChar; const src : LongInt; len : DWord; volume : LongInt); syscall basesysv PowerSDLBase 748;
+procedure SDL_MixAudio(dst : PAnsiChar; const src : LongInt; len : DWord; volume : LongInt); syscall basesysv PowerSDLBase 748;
 procedure SDL_LockAudio; syscall basesysv PowerSDLBase 754;
 procedure SDL_UnlockAudio; syscall basesysv PowerSDLBase 760;
 procedure SDL_CloseAudio; syscall basesysv PowerSDLBase 766;
@@ -132,11 +132,11 @@ function SDL_GetThreadID(thread : pSDL_Thread) : DWord; syscall basesysv PowerSD
 procedure SDL_WaitThread(thread : pSDL_Thread; status : pLongInt); syscall basesysv PowerSDLBase 790;
 procedure SDL_KillThread(thread : pSDL_Thread); syscall basesysv PowerSDLBase 796;
 function SDL_SoftStretch(src : pSDL_Surface; srcrect : pSDL_Rect; dest : pSDL_Surface; dstrect : pSDL_Rect) : LongInt; syscall basesysv PowerSDLBase 808;
-function SDL_UNIX2AMIGA(const file_ : pChar) : pChar; syscall basesysv PowerSDLBase 814;
-function SDL_AMIGA_RWFromFile(const file_ : pChar; const mode : pChar) : pSDL_RWops; syscall basesysv PowerSDLBase 820;
+function SDL_UNIX2AMIGA(const file_ : PAnsiChar) : PAnsiChar; syscall basesysv PowerSDLBase 814;
+function SDL_AMIGA_RWFromFile(const file_ : PAnsiChar; const mode : PAnsiChar) : pSDL_RWops; syscall basesysv PowerSDLBase 820;
 function SDL_AMIGA_RWFromFP(fp : LongInt; autoclose : LongInt) : pSDL_RWops; syscall basesysv PowerSDLBase 826;
 function SDL_CDNumDrives : LongInt; syscall basesysv PowerSDLBase 832;
-function SDL_CDName(drive : LongInt) : pChar; syscall basesysv PowerSDLBase 838;
+function SDL_CDName(drive : LongInt) : PAnsiChar; syscall basesysv PowerSDLBase 838;
 function SDL_CDOpen(drive : LongInt) : pSDL_CD; syscall basesysv PowerSDLBase 844;
 function SDL_CDStatus(cdrom : pSDL_CD) : LongInt; syscall basesysv PowerSDLBase 850;
 function SDL_CDPlay(cdrom : pSDL_CD; sframe : LongInt; length : LongInt) : LongInt; syscall basesysv PowerSDLBase 856;

packages/sdl/src/powersdl_gfx.inc

@@ -1,7 +1,7 @@
 var PowerSDLGfxBase : pLibrary;
 
 const
-    POWERSDL_GFXNAME : PChar = 'powersdl_gfx.library';
+    POWERSDL_GFXNAME : PAnsiChar = 'powersdl_gfx.library';
 
 
 procedure SDL_initFramerate(manager : pFPSmanager); syscall r12base PowerSDLGfxBase 028;
@@ -54,55 +54,55 @@ function bezierColor(dst : pSDL_Surface; var vx : Integer; var vy : Integer; n :
 function bezierRGBA(dst : pSDL_Surface; var vx : Integer; var vy : Integer; n : LongInt; s : LongInt; r : Byte; g : Byte; b : Byte; a : Byte) : LongInt; syscall r12base PowerSDLGfxBase 310;
 function characterColor(dst : pSDL_Surface; x : Integer; y : Integer; c : ShortInt; color : DWord) : LongInt; syscall r12base PowerSDLGfxBase 316;
 function characterRGBA(dst : pSDL_Surface; x : Integer; y : Integer; c : ShortInt; r : Byte; g : Byte; b : Byte; a : Byte) : LongInt; syscall r12base PowerSDLGfxBase 322;
-function stringColor(dst : pSDL_Surface; x : Integer; y : Integer; const c : pChar; color : DWord) : LongInt; syscall r12base PowerSDLGfxBase 328;
-function stringRGBA(dst : pSDL_Surface; x : Integer; y : Integer; const c : pChar; r : Byte; g : Byte; b : Byte; a : Byte) : LongInt; syscall r12base PowerSDLGfxBase 334;
+function stringColor(dst : pSDL_Surface; x : Integer; y : Integer; const c : PAnsiChar; color : DWord) : LongInt; syscall r12base PowerSDLGfxBase 328;
+function stringRGBA(dst : pSDL_Surface; x : Integer; y : Integer; const c : PAnsiChar; r : Byte; g : Byte; b : Byte; a : Byte) : LongInt; syscall r12base PowerSDLGfxBase 334;
 procedure gfxPrimitivesSetFont(const fontdata : Pointer; cw : LongInt; ch : LongInt); syscall r12base PowerSDLGfxBase 340;
 function SDL_imageFilterMMXdetect : LongInt; syscall r12base PowerSDLGfxBase 346;
 procedure SDL_imageFilterMMXoff; syscall r12base PowerSDLGfxBase 352;
 procedure SDL_imageFilterMMXon; syscall r12base PowerSDLGfxBase 358;
-function SDL_imageFilterAdd(Src1 : pChar; Src2 : pChar; Dest : pChar; length : LongInt) : LongInt; syscall r12base PowerSDLGfxBase 364;
-function SDL_imageFilterMean(Src1 : pChar; Src2 : pChar; Dest : pChar; length : LongInt) : LongInt; syscall r12base PowerSDLGfxBase 370;
-function SDL_imageFilterSub(Src1 : pChar; Src2 : pChar; Dest : pChar; length : LongInt) : LongInt; syscall r12base PowerSDLGfxBase 376;
-function SDL_imageFilterAbsDiff(Src1 : pChar; Src2 : pChar; Dest : pChar; length : LongInt) : LongInt; syscall r12base PowerSDLGfxBase 382;
-function SDL_imageFilterMult(Src1 : pChar; Src2 : pChar; Dest : pChar; length : LongInt) : LongInt; syscall r12base PowerSDLGfxBase 388;
-function SDL_imageFilterMultNor(Src1 : pChar; Src2 : pChar; Dest : pChar; length : LongInt) : LongInt; syscall r12base PowerSDLGfxBase 394;
-function SDL_imageFilterMultDivby2(Src1 : pChar; Src2 : pChar; Dest : pChar; length : LongInt) : LongInt; syscall r12base PowerSDLGfxBase 400;
-function SDL_imageFilterMultDivby4(Src1 : pChar; Src2 : pChar; Dest : pChar; length : LongInt) : LongInt; syscall r12base PowerSDLGfxBase 406;
-function SDL_imageFilterBitAnd(Src1 : pChar; Src2 : pChar; Dest : pChar; length : LongInt) : LongInt; syscall r12base PowerSDLGfxBase 412;
-function SDL_imageFilterBitOr(Src1 : pChar; Src2 : pChar; Dest : pChar; length : LongInt) : LongInt; syscall r12base PowerSDLGfxBase 418;
-function SDL_imageFilterDiv(Src1 : pChar; Src2 : pChar; Dest : pChar; length : LongInt) : LongInt; syscall r12base PowerSDLGfxBase 424;
-function SDL_imageFilterBitNegation(Src1 : pChar; Dest : pChar; length : LongInt) : LongInt; syscall r12base PowerSDLGfxBase 430;
-function SDL_imageFilterAddByte(Src1 : pChar; Dest : pChar; length : LongInt; C : Byte) : LongInt; syscall r12base PowerSDLGfxBase 436;
-function SDL_imageFilterAddByteToHalf(Src1 : pChar; Dest : pChar; length : LongInt; C : Byte) : LongInt; syscall r12base PowerSDLGfxBase 442;
-function SDL_imageFilterSubByte(Src1 : pChar; Dest : pChar; length : LongInt; C : Byte) : LongInt; syscall r12base PowerSDLGfxBase 448;
-function SDL_imageFilterShiftRight(Src1 : pChar; Dest : pChar; length : LongInt; N : Byte) : LongInt; syscall r12base PowerSDLGfxBase 454;
-function SDL_imageFilterMultByByte(Src1 : pChar; Dest : pChar; length : LongInt; C : Byte) : LongInt; syscall r12base PowerSDLGfxBase 460;
-function SDL_imageFilterShiftRightAndMultByByte(Src1 : pChar; Dest : pChar; length : LongInt; N : Byte; C : Byte) : LongInt; syscall r12base PowerSDLGfxBase 466;
-function SDL_imageFilterShiftLeftByte(Src1 : pChar; Dest : pChar; length : LongInt; N : Byte) : LongInt; syscall r12base PowerSDLGfxBase 472;
-function SDL_imageFilterShiftLeft(Src1 : pChar; Dest : pChar; length : LongInt; N : Byte) : LongInt; syscall r12base PowerSDLGfxBase 478;
-function SDL_imageFilterBinarizeUsingThreshold(Src1 : pChar; Dest : pChar; length : LongInt; T : Byte) : LongInt; syscall r12base PowerSDLGfxBase 484;
-function SDL_imageFilterClipToRange(Src1 : pChar; Dest : pChar; length : LongInt; Tmin : Byte; Tmax : Byte) : LongInt; syscall r12base PowerSDLGfxBase 490;
-function SDL_imageFilterNormalizeLinear(Src1 : pChar; Dest : pChar; length : LongInt; Cmin : LongInt; Cmax : LongInt; Nmin : LongInt; Nmax : LongInt) : LongInt; syscall r12base PowerSDLGfxBase 496;
-function SDL_imageFilterConvolveKernel3x3Divide(Src : pChar; Dest : pChar; rows : LongInt; columns : LongInt; var Kernel : Integer; Divisor : Byte) : LongInt; syscall r12base PowerSDLGfxBase 502;
-function SDL_imageFilterConvolveKernel5x5Divide(Src : pChar; Dest : pChar; rows : LongInt; columns : LongInt; var Kernel : Integer; Divisor : Byte) : LongInt; syscall r12base PowerSDLGfxBase 508;
-function SDL_imageFilterConvolveKernel7x7Divide(Src : pChar; Dest : pChar; rows : LongInt; columns : LongInt; var Kernel : Integer; Divisor : Byte) : LongInt; syscall r12base PowerSDLGfxBase 514;
-function SDL_imageFilterConvolveKernel9x9Divide(Src : pChar; Dest : pChar; rows : LongInt; columns : LongInt; var Kernel : Integer; Divisor : Byte) : LongInt; syscall r12base PowerSDLGfxBase 520;
-function SDL_imageFilterConvolveKernel3x3ShiftRight(Src : pChar; Dest : pChar; rows : LongInt; columns : LongInt; var Kernel : Integer; NRightShift : Byte) : LongInt; syscall r12base PowerSDLGfxBase 526;
-function SDL_imageFilterConvolveKernel5x5ShiftRight(Src : pChar; Dest : pChar; rows : LongInt; columns : LongInt; var Kernel : Integer; NRightShift : Byte) : LongInt; syscall r12base PowerSDLGfxBase 532;
-function SDL_imageFilterConvolveKernel7x7ShiftRight(Src : pChar; Dest : pChar; rows : LongInt; columns : LongInt; var Kernel : Integer; NRightShift : Byte) : LongInt; syscall r12base PowerSDLGfxBase 538;
-function SDL_imageFilterConvolveKernel9x9ShiftRight(Src : pChar; Dest : pChar; rows : LongInt; columns : LongInt; var Kernel : Integer; NRightShift : Byte) : LongInt; syscall r12base PowerSDLGfxBase 544;
-function SDL_imageFilterSobelX(Src : pChar; Dest : pChar; rows : LongInt; columns : LongInt) : LongInt; syscall r12base PowerSDLGfxBase 550;
-function SDL_imageFilterSobelXShiftRight(Src : pChar; Dest : pChar; rows : LongInt; columns : LongInt; NRightShift : Byte) : LongInt; syscall r12base PowerSDLGfxBase 556;
+function SDL_imageFilterAdd(Src1 : PAnsiChar; Src2 : PAnsiChar; Dest : PAnsiChar; length : LongInt) : LongInt; syscall r12base PowerSDLGfxBase 364;
+function SDL_imageFilterMean(Src1 : PAnsiChar; Src2 : PAnsiChar; Dest : PAnsiChar; length : LongInt) : LongInt; syscall r12base PowerSDLGfxBase 370;
+function SDL_imageFilterSub(Src1 : PAnsiChar; Src2 : PAnsiChar; Dest : PAnsiChar; length : LongInt) : LongInt; syscall r12base PowerSDLGfxBase 376;
+function SDL_imageFilterAbsDiff(Src1 : PAnsiChar; Src2 : PAnsiChar; Dest : PAnsiChar; length : LongInt) : LongInt; syscall r12base PowerSDLGfxBase 382;
+function SDL_imageFilterMult(Src1 : PAnsiChar; Src2 : PAnsiChar; Dest : PAnsiChar; length : LongInt) : LongInt; syscall r12base PowerSDLGfxBase 388;
+function SDL_imageFilterMultNor(Src1 : PAnsiChar; Src2 : PAnsiChar; Dest : PAnsiChar; length : LongInt) : LongInt; syscall r12base PowerSDLGfxBase 394;
+function SDL_imageFilterMultDivby2(Src1 : PAnsiChar; Src2 : PAnsiChar; Dest : PAnsiChar; length : LongInt) : LongInt; syscall r12base PowerSDLGfxBase 400;
+function SDL_imageFilterMultDivby4(Src1 : PAnsiChar; Src2 : PAnsiChar; Dest : PAnsiChar; length : LongInt) : LongInt; syscall r12base PowerSDLGfxBase 406;
+function SDL_imageFilterBitAnd(Src1 : PAnsiChar; Src2 : PAnsiChar; Dest : PAnsiChar; length : LongInt) : LongInt; syscall r12base PowerSDLGfxBase 412;
+function SDL_imageFilterBitOr(Src1 : PAnsiChar; Src2 : PAnsiChar; Dest : PAnsiChar; length : LongInt) : LongInt; syscall r12base PowerSDLGfxBase 418;
+function SDL_imageFilterDiv(Src1 : PAnsiChar; Src2 : PAnsiChar; Dest : PAnsiChar; length : LongInt) : LongInt; syscall r12base PowerSDLGfxBase 424;
+function SDL_imageFilterBitNegation(Src1 : PAnsiChar; Dest : PAnsiChar; length : LongInt) : LongInt; syscall r12base PowerSDLGfxBase 430;
+function SDL_imageFilterAddByte(Src1 : PAnsiChar; Dest : PAnsiChar; length : LongInt; C : Byte) : LongInt; syscall r12base PowerSDLGfxBase 436;
+function SDL_imageFilterAddByteToHalf(Src1 : PAnsiChar; Dest : PAnsiChar; length : LongInt; C : Byte) : LongInt; syscall r12base PowerSDLGfxBase 442;
+function SDL_imageFilterSubByte(Src1 : PAnsiChar; Dest : PAnsiChar; length : LongInt; C : Byte) : LongInt; syscall r12base PowerSDLGfxBase 448;
+function SDL_imageFilterShiftRight(Src1 : PAnsiChar; Dest : PAnsiChar; length : LongInt; N : Byte) : LongInt; syscall r12base PowerSDLGfxBase 454;
+function SDL_imageFilterMultByByte(Src1 : PAnsiChar; Dest : PAnsiChar; length : LongInt; C : Byte) : LongInt; syscall r12base PowerSDLGfxBase 460;
+function SDL_imageFilterShiftRightAndMultByByte(Src1 : PAnsiChar; Dest : PAnsiChar; length : LongInt; N : Byte; C : Byte) : LongInt; syscall r12base PowerSDLGfxBase 466;
+function SDL_imageFilterShiftLeftByte(Src1 : PAnsiChar; Dest : PAnsiChar; length : LongInt; N : Byte) : LongInt; syscall r12base PowerSDLGfxBase 472;
+function SDL_imageFilterShiftLeft(Src1 : PAnsiChar; Dest : PAnsiChar; length : LongInt; N : Byte) : LongInt; syscall r12base PowerSDLGfxBase 478;
+function SDL_imageFilterBinarizeUsingThreshold(Src1 : PAnsiChar; Dest : PAnsiChar; length : LongInt; T : Byte) : LongInt; syscall r12base PowerSDLGfxBase 484;
+function SDL_imageFilterClipToRange(Src1 : PAnsiChar; Dest : PAnsiChar; length : LongInt; Tmin : Byte; Tmax : Byte) : LongInt; syscall r12base PowerSDLGfxBase 490;
+function SDL_imageFilterNormalizeLinear(Src1 : PAnsiChar; Dest : PAnsiChar; length : LongInt; Cmin : LongInt; Cmax : LongInt; Nmin : LongInt; Nmax : LongInt) : LongInt; syscall r12base PowerSDLGfxBase 496;
+function SDL_imageFilterConvolveKernel3x3Divide(Src : PAnsiChar; Dest : PAnsiChar; rows : LongInt; columns : LongInt; var Kernel : Integer; Divisor : Byte) : LongInt; syscall r12base PowerSDLGfxBase 502;
+function SDL_imageFilterConvolveKernel5x5Divide(Src : PAnsiChar; Dest : PAnsiChar; rows : LongInt; columns : LongInt; var Kernel : Integer; Divisor : Byte) : LongInt; syscall r12base PowerSDLGfxBase 508;
+function SDL_imageFilterConvolveKernel7x7Divide(Src : PAnsiChar; Dest : PAnsiChar; rows : LongInt; columns : LongInt; var Kernel : Integer; Divisor : Byte) : LongInt; syscall r12base PowerSDLGfxBase 514;
+function SDL_imageFilterConvolveKernel9x9Divide(Src : PAnsiChar; Dest : PAnsiChar; rows : LongInt; columns : LongInt; var Kernel : Integer; Divisor : Byte) : LongInt; syscall r12base PowerSDLGfxBase 520;
+function SDL_imageFilterConvolveKernel3x3ShiftRight(Src : PAnsiChar; Dest : PAnsiChar; rows : LongInt; columns : LongInt; var Kernel : Integer; NRightShift : Byte) : LongInt; syscall r12base PowerSDLGfxBase 526;
+function SDL_imageFilterConvolveKernel5x5ShiftRight(Src : PAnsiChar; Dest : PAnsiChar; rows : LongInt; columns : LongInt; var Kernel : Integer; NRightShift : Byte) : LongInt; syscall r12base PowerSDLGfxBase 532;
+function SDL_imageFilterConvolveKernel7x7ShiftRight(Src : PAnsiChar; Dest : PAnsiChar; rows : LongInt; columns : LongInt; var Kernel : Integer; NRightShift : Byte) : LongInt; syscall r12base PowerSDLGfxBase 538;
+function SDL_imageFilterConvolveKernel9x9ShiftRight(Src : PAnsiChar; Dest : PAnsiChar; rows : LongInt; columns : LongInt; var Kernel : Integer; NRightShift : Byte) : LongInt; syscall r12base PowerSDLGfxBase 544;
+function SDL_imageFilterSobelX(Src : PAnsiChar; Dest : PAnsiChar; rows : LongInt; columns : LongInt) : LongInt; syscall r12base PowerSDLGfxBase 550;
+function SDL_imageFilterSobelXShiftRight(Src : PAnsiChar; Dest : PAnsiChar; rows : LongInt; columns : LongInt; NRightShift : Byte) : LongInt; syscall r12base PowerSDLGfxBase 556;
 procedure SDL_imageFilterAlignStack; syscall r12base PowerSDLGfxBase 562;
 procedure SDL_imageFilterRestoreStack; syscall r12base PowerSDLGfxBase 568;
 function rotozoomSurface(src : pSDL_Surface; angle : LongInt; zoom : LongInt; smooth : LongInt) : pSDL_Surface; syscall r12base PowerSDLGfxBase 574;
 procedure rotozoomSurfaceSize(width : LongInt; height : LongInt; angle : LongInt; zoom : LongInt; dstwidth : pLongInt; dstheight : pLongInt); syscall r12base PowerSDLGfxBase 580;
 function zoomSurface(src : pSDL_Surface; zoomx : LongInt; zoomy : LongInt; smooth : LongInt) : pSDL_Surface; syscall r12base PowerSDLGfxBase 586;
 procedure zoomSurfaceSize(width : LongInt; height : LongInt; zoomx : LongInt; zoomy : LongInt; dstwidth : pLongInt; dstheight : pLongInt); syscall r12base PowerSDLGfxBase 592;
-function SDL_imageFilterAddUint(Src1 : pChar; Dest : pChar; length : LongInt; C : LongInt) : LongInt; syscall r12base PowerSDLGfxBase 598;
-function SDL_imageFilterSubUint(Src1 : pChar; Dest : pChar; length : LongInt; C : LongInt) : LongInt; syscall r12base PowerSDLGfxBase 604;
-function SDL_imageFilterShiftRightUint(Src1 : pChar; Dest : pChar; length : LongInt; N : Byte) : LongInt; syscall r12base PowerSDLGfxBase 610;
-function SDL_imageFilterShiftLeftUint(Src1 : pChar; Dest : pChar; length : LongInt; N : Byte) : LongInt; syscall r12base PowerSDLGfxBase 616;
+function SDL_imageFilterAddUint(Src1 : PAnsiChar; Dest : PAnsiChar; length : LongInt; C : LongInt) : LongInt; syscall r12base PowerSDLGfxBase 598;
+function SDL_imageFilterSubUint(Src1 : PAnsiChar; Dest : PAnsiChar; length : LongInt; C : LongInt) : LongInt; syscall r12base PowerSDLGfxBase 604;
+function SDL_imageFilterShiftRightUint(Src1 : PAnsiChar; Dest : PAnsiChar; length : LongInt; N : Byte) : LongInt; syscall r12base PowerSDLGfxBase 610;
+function SDL_imageFilterShiftLeftUint(Src1 : PAnsiChar; Dest : PAnsiChar; length : LongInt; N : Byte) : LongInt; syscall r12base PowerSDLGfxBase 616;
 function rotozoomSurfaceXY(src : pSDL_Surface; angle : LongInt; zoomx : LongInt; zoomy : LongInt; smooth : LongInt) : pSDL_Surface; syscall r12base PowerSDLGfxBase 622;
 procedure rotozoomSurfaceSizeXY(width : LongInt; height : LongInt; angle : LongInt; zoomx : LongInt; zoomy : LongInt; dstwidth : pLongInt; dstheight : pLongInt); syscall r12base PowerSDLGfxBase 628;
 function texturedPolygon(dst : pSDL_Surface; var vx : Integer; var vy : Integer; n : LongInt; texture : pSDL_Surface; texture_dx : LongInt; texture_dy : LongInt) : LongInt; syscall r12base PowerSDLGfxBase 634;

packages/sdl/src/powersdl_image.inc

@@ -2,10 +2,10 @@
 var PowerSDLImageBase : pLibrary;
 
 const
-    POWERSDL_IMAGENAME : PChar = 'powersdl_image.library';
+    POWERSDL_IMAGENAME : PAnsiChar = 'powersdl_image.library';
 
-function IMG_LoadTyped_RW(src : pSDL_RWops; freesrc : LongInt; type_ : pChar) : pSDL_Surface; syscall r12base PowerSDLImageBase 028;
-function IMG_Load(const file_ : pChar) : pSDL_Surface; syscall r12base PowerSDLImageBase 034;
+function IMG_LoadTyped_RW(src : pSDL_RWops; freesrc : LongInt; type_ : PAnsiChar) : pSDL_Surface; syscall r12base PowerSDLImageBase 028;
+function IMG_Load(const file_ : PAnsiChar) : pSDL_Surface; syscall r12base PowerSDLImageBase 034;
 function IMG_Load_RW(src : pSDL_RWops; freesrc : LongInt) : pSDL_Surface; syscall r12base PowerSDLImageBase 040;
 function IMG_InvertAlpha(on : LongInt) : LongInt; syscall r12base PowerSDLImageBase 046;
 function IMG_isBMP(src : pSDL_RWops) : LongInt; syscall r12base PowerSDLImageBase 052;

packages/sdl/src/powersdl_mixer.inc

@@ -2,16 +2,16 @@
 var PowerSDLMixerBase : pLibrary;
 
 const
-    POWERSDL_MIXERNAME : PChar = 'powersdl_mixer.library';
+    POWERSDL_MIXERNAME : PAnsiChar = 'powersdl_mixer.library';
 
 function Mix_OpenAudio(frequency : LongInt; format : Word; channels : LongInt; chunksize : LongInt) : LongInt; syscall r12base PowerSDLMixerBase 028;
 function Mix_AllocateChannels(numchans : LongInt) : LongInt; syscall r12base PowerSDLMixerBase 034;
 function Mix_QuerySpec(frequency : pLongInt; var format : Word; channels : pLongInt) : LongInt; syscall r12base PowerSDLMixerBase 040;
 function Mix_LoadWAV_RW(src : pSDL_RWops; freesrc : LongInt) : pMix_Chunk; syscall r12base PowerSDLMixerBase 046;
-function Mix_LoadMUS(const file_ : pChar) : pMix_Music; syscall r12base PowerSDLMixerBase 052;
+function Mix_LoadMUS(const file_ : PAnsiChar) : pMix_Music; syscall r12base PowerSDLMixerBase 052;
 function Mix_LoadMUS_RW(rw : pSDL_RWops) : pMix_Music; syscall r12base PowerSDLMixerBase 058;
-function Mix_QuickLoad_WAV(mem : pChar) : pMix_Chunk; syscall r12base PowerSDLMixerBase 064;
-function Mix_QuickLoad_RAW(mem : pChar; len : DWord) : pMix_Chunk; syscall r12base PowerSDLMixerBase 070;
+function Mix_QuickLoad_WAV(mem : PAnsiChar) : pMix_Chunk; syscall r12base PowerSDLMixerBase 064;
+function Mix_QuickLoad_RAW(mem : PAnsiChar; len : DWord) : pMix_Chunk; syscall r12base PowerSDLMixerBase 070;
 procedure Mix_FreeChunk(chunk : pMix_Chunk); syscall r12base PowerSDLMixerBase 076;
 procedure Mix_FreeMusic(music : pMix_Music); syscall r12base PowerSDLMixerBase 082;
 function Mix_GetMusicType(const music : pMix_Music) : LongInt; syscall r12base PowerSDLMixerBase 088;
@@ -61,7 +61,7 @@ function Mix_PausedMusic : LongInt; syscall r12base PowerSDLMixerBase 352;
 function Mix_SetMusicPosition(position : LongInt) : LongInt; syscall r12base PowerSDLMixerBase 358;
 function Mix_Playing(channel : LongInt) : LongInt; syscall r12base PowerSDLMixerBase 364;
 function Mix_PlayingMusic : LongInt; syscall r12base PowerSDLMixerBase 370;
-function Mix_SetMusicCMD(const command : pChar) : LongInt; syscall r12base PowerSDLMixerBase 376;
+function Mix_SetMusicCMD(const command : PAnsiChar) : LongInt; syscall r12base PowerSDLMixerBase 376;
 function Mix_SetSynchroValue(value : LongInt) : LongInt; syscall r12base PowerSDLMixerBase 382;
 function Mix_GetSynchroValue : LongInt; syscall r12base PowerSDLMixerBase 388;
 function Mix_GetChunk(channel : LongInt) : pMix_Chunk; syscall r12base PowerSDLMixerBase 394;

packages/sdl/src/powersdl_net.inc

@@ -2,13 +2,13 @@
 var PowerSDLNetBase : pLibrary;
 
 const
-    POWERSDL_NETNAME : PChar = 'powersdl_net.library';
+    POWERSDL_NETNAME : PAnsiChar = 'powersdl_net.library';
 
 
 function SDLNet_Init : LongInt; syscall r12base PowerSDLNetBase 028;
 procedure SDLNet_Quit; syscall r12base PowerSDLNetBase 034;
-function SDLNet_ResolveHost(address : pIPaddress; const host : pChar; port : Word) : LongInt; syscall r12base PowerSDLNetBase 040;
-function SDLNet_ResolveIP(ip : pIPaddress) : pChar; syscall r12base PowerSDLNetBase 046;
+function SDLNet_ResolveHost(address : pIPaddress; const host : PAnsiChar; port : Word) : LongInt; syscall r12base PowerSDLNetBase 040;
+function SDLNet_ResolveIP(ip : pIPaddress) : PAnsiChar; syscall r12base PowerSDLNetBase 046;
 function SDLNet_TCP_Open(ip : pIPaddress) : Pointer; syscall r12base PowerSDLNetBase 052;
 function SDLNet_TCP_Accept(server : Pointer) : Pointer; syscall r12base PowerSDLNetBase 058;
 function SDLNet_TCP_GetPeerAddress(sock : Pointer) : pIPaddress; syscall r12base PowerSDLNetBase 064;

packages/sdl/src/powersdl_smpeg.inc

@@ -1,9 +1,9 @@
 var SMPEGBase : pLibrary;
 
 const
-    SMPEGNAME : PChar = 'smpeg.library';
+    SMPEGNAME : PAnsiChar = 'smpeg.library';
 
-function SMPEG_new(const _file: PChar; info: PSMPEG_Info; sdl_audio: Integer): PSMPEG; syscall r12base SMPEGBase 28;
+function SMPEG_new(const _file: PAnsiChar; info: PSMPEG_Info; sdl_audio: Integer): PSMPEG; syscall r12base SMPEGBase 28;
 function SMPEG_new_descr(_file: Integer; info: PSMPEG_Info; sdl_audio: Integer): PSMPEG; syscall r12base SMPEGBase 34;
 function SMPEG_new_data(data: Pointer; size: Integer; info: PSMPEG_Info; sdl_audio: Integer): PSMPEG; syscall r12base SMPEGBase 40;
 procedure SMPEG_getinfo(mpeg: PSMPEG; info: PSMPEG_Info); syscall r12base SMPEGBase 52;
@@ -27,7 +27,7 @@ procedure SMPEG_skip(mpeg: PSMPEG; seconds: single); syscall r12base SMPEGBase 1
 procedure SMPEG_renderFrame(mpeg: PSMPEG; framenum: Integer); syscall r12base SMPEGBase 158;
 procedure SMPEG_renderFinal(mpeg: PSMPEG; dst: PSDL_Surface; x, y: Integer); syscall r12base SMPEGBase 164;
 function SMPEG_filter(mpeg: PSMPEG; filter: PSMPEG_Filter): PSMPEG_Filter; syscall r12base SMPEGBase 172;
-function SMPEG_error(mpeg: PSMPEG): PChar; syscall r12base SMPEGBase 178;
+function SMPEG_error(mpeg: PSMPEG): PAnsiChar; syscall r12base SMPEGBase 178;
 function SMPEG_playAudio(mpeg: PSMPEG; stream: PUInt8; len: Integer): Integer; syscall r12base SMPEGBase 184;
 procedure SMPEG_playAudioSDL(mpeg: Pointer; stream: PUInt8; len: Integer); syscall r12base SMPEGBase 190;
 function SMPEG_wantedSpec(mpeg: PSMPEG; wanted: PSDL_AudioSpec): Integer; syscall r12base SMPEGBase 196;

packages/sdl/src/powersdl_ttf.inc

@@ -2,13 +2,13 @@
 var PowerSDLTTFBase : pLibrary;
 
 const
-    POWERSDL_TTFNAME : PChar = 'powersdl_ttf.library';
+    POWERSDL_TTFNAME : PAnsiChar = 'powersdl_ttf.library';
 
 function TTF_Linked_Version : pSDL_version; syscall r12base PowerSDLTTFBase 028;
 procedure TTF_ByteSwappedUNICODE(swapped : LongInt); syscall r12base PowerSDLTTFBase 034;
 function TTF_Init : LongInt; syscall r12base PowerSDLTTFBase 040;
-function TTF_OpenFont(const file_ : pChar; ptsize : LongInt) : pTTF_Font; syscall r12base PowerSDLTTFBase 046;
-function TTF_OpenFontIndex(const file_ : pChar; ptsize : LongInt; index : LongInt) : pTTF_Font; syscall r12base PowerSDLTTFBase 052;
+function TTF_OpenFont(const file_ : PAnsiChar; ptsize : LongInt) : pTTF_Font; syscall r12base PowerSDLTTFBase 046;
+function TTF_OpenFontIndex(const file_ : PAnsiChar; ptsize : LongInt; index : LongInt) : pTTF_Font; syscall r12base PowerSDLTTFBase 052;
 function TTF_OpenFontRW(src : pSDL_RWops; freesrc : LongInt; ptsize : LongInt) : pTTF_Font; syscall r12base PowerSDLTTFBase 058;
 function TTF_OpenFontIndexRW(src : pSDL_RWops; freesrc : LongInt; ptsize : LongInt; index : LongInt) : pTTF_Font; syscall r12base PowerSDLTTFBase 064;
 function TTF_GetFontStyle(font : pTTF_Font) : LongInt; syscall r12base PowerSDLTTFBase 070;
@@ -19,22 +19,22 @@ function TTF_FontDescent(font : pTTF_Font) : LongInt; syscall r12base PowerSDLTT
 function TTF_FontLineSkip(font : pTTF_Font) : LongInt; syscall r12base PowerSDLTTFBase 100;
 function TTF_FontFaces(font : pTTF_Font) : LongInt; syscall r12base PowerSDLTTFBase 106;
 function TTF_FontFaceIsFixedWidth(font : pTTF_Font) : LongInt; syscall r12base PowerSDLTTFBase 112;
-function TTF_FontFaceFamilyName(font : pTTF_Font) : pChar; syscall r12base PowerSDLTTFBase 118;
-function TTF_FontFaceStyleName(font : pTTF_Font) : pChar; syscall r12base PowerSDLTTFBase 124;
+function TTF_FontFaceFamilyName(font : pTTF_Font) : PAnsiChar; syscall r12base PowerSDLTTFBase 118;
+function TTF_FontFaceStyleName(font : pTTF_Font) : PAnsiChar; syscall r12base PowerSDLTTFBase 124;
 function TTF_GlyphMetrics(font : pTTF_Font; ch : Word; minx : pLongInt; maxx : pLongInt; miny : pLongInt; maxy : pLongInt; advance : pLongInt) : LongInt; syscall r12base PowerSDLTTFBase 130;
-function TTF_SizeText(font : pTTF_Font; const text : pChar; w : pLongInt; h : pLongInt) : LongInt; syscall r12base PowerSDLTTFBase 136;
-function TTF_SizeUTF8(font : pTTF_Font; const text : pChar; w : pLongInt; h : pLongInt) : LongInt; syscall r12base PowerSDLTTFBase 142;
+function TTF_SizeText(font : pTTF_Font; const text : PAnsiChar; w : pLongInt; h : pLongInt) : LongInt; syscall r12base PowerSDLTTFBase 136;
+function TTF_SizeUTF8(font : pTTF_Font; const text : PAnsiChar; w : pLongInt; h : pLongInt) : LongInt; syscall r12base PowerSDLTTFBase 142;
 function TTF_SizeUNICODE(font : pTTF_Font; const text : Word; w : pLongInt; h : pLongInt) : LongInt; syscall r12base PowerSDLTTFBase 148;
-function TTF_RenderText_Solid(font : pTTF_Font; const text : pChar; fg : tSDL_Color) : pSDL_Surface; syscall r12base PowerSDLTTFBase 154;
-function TTF_RenderUTF8_Solid(font : pTTF_Font; const text : pChar; fg : tSDL_Color) : pSDL_Surface; syscall r12base PowerSDLTTFBase 160;
+function TTF_RenderText_Solid(font : pTTF_Font; const text : PAnsiChar; fg : tSDL_Color) : pSDL_Surface; syscall r12base PowerSDLTTFBase 154;
+function TTF_RenderUTF8_Solid(font : pTTF_Font; const text : PAnsiChar; fg : tSDL_Color) : pSDL_Surface; syscall r12base PowerSDLTTFBase 160;
 function TTF_RenderUNICODE_Solid(font : pTTF_Font; const text : Word; fg : tSDL_Color) : pSDL_Surface; syscall r12base PowerSDLTTFBase 166;
 function TTF_RenderGlyph_Solid(font : pTTF_Font; ch : Word; fg : tSDL_Color) : pSDL_Surface; syscall r12base PowerSDLTTFBase 172;
-function TTF_RenderText_Shaded(font : pTTF_Font; const text : pChar; fg : tSDL_Color; bg : tSDL_Color) : pSDL_Surface; syscall r12base PowerSDLTTFBase 178;
-function TTF_RenderUTF8_Shaded(font : pTTF_Font; const text : pChar; fg : tSDL_Color; bg : tSDL_Color) : pSDL_Surface; syscall r12base PowerSDLTTFBase 184;
+function TTF_RenderText_Shaded(font : pTTF_Font; const text : PAnsiChar; fg : tSDL_Color; bg : tSDL_Color) : pSDL_Surface; syscall r12base PowerSDLTTFBase 178;
+function TTF_RenderUTF8_Shaded(font : pTTF_Font; const text : PAnsiChar; fg : tSDL_Color; bg : tSDL_Color) : pSDL_Surface; syscall r12base PowerSDLTTFBase 184;
 function TTF_RenderUNICODE_Shaded(font : pTTF_Font; const text : Word; fg : tSDL_Color; bg : tSDL_Color) : pSDL_Surface; syscall r12base PowerSDLTTFBase 190;
 function TTF_RenderGlyph_Shaded(font : pTTF_Font; ch : Word; fg : tSDL_Color; bg : tSDL_Color) : pSDL_Surface; syscall r12base PowerSDLTTFBase 196;
-function TTF_RenderText_Blended(font : pTTF_Font; const text : pChar; fg : tSDL_Color) : pSDL_Surface; syscall r12base PowerSDLTTFBase 202;
-function TTF_RenderUTF8_Blended(font : pTTF_Font; const text : pChar; fg : tSDL_Color) : pSDL_Surface; syscall r12base PowerSDLTTFBase 208;
+function TTF_RenderText_Blended(font : pTTF_Font; const text : PAnsiChar; fg : tSDL_Color) : pSDL_Surface; syscall r12base PowerSDLTTFBase 202;
+function TTF_RenderUTF8_Blended(font : pTTF_Font; const text : PAnsiChar; fg : tSDL_Color) : pSDL_Surface; syscall r12base PowerSDLTTFBase 208;
 function TTF_RenderUNICODE_Blended(font : pTTF_Font; const text : Word; fg : tSDL_Color) : pSDL_Surface; syscall r12base PowerSDLTTFBase 214;
 function TTF_RenderGlyph_Blended(font : pTTF_Font; ch : Word; fg : tSDL_Color) : pSDL_Surface; syscall r12base PowerSDLTTFBase 220;
 procedure TTF_CloseFont(font : pTTF_Font); syscall r12base PowerSDLTTFBase 226;

packages/sdl/src/sdl.pas

@@ -255,9 +255,9 @@ unit sdl;
       SDL_GL_MULTISAMPLESAMPLES
 
   Add DLL/Shared object functions
-  function SDL_LoadObject( const sofile : PChar ) : Pointer;
+  function SDL_LoadObject( const sofile : PAnsiChar ) : Pointer;
 
-  function SDL_LoadFunction( handle : Pointer; const name : PChar ) : Pointer;
+  function SDL_LoadFunction( handle : Pointer; const name : PAnsiChar ) : Pointer;
 
   procedure SDL_UnloadObject( handle : Pointer );
 
@@ -1631,7 +1631,7 @@ type
   PSDL_Joystick = ^TSDL_Joystick;
   TSDL_Joystick = record
     index: UInt8; // Device index
-    name: PChar; // Joystick name - system dependent
+    name: PAnsiChar; // Joystick name - system dependent
 
     naxes: Integer; // Number of axis controls on the joystick
     axes: PUInt16; // Current axis states
@@ -2333,7 +2333,7 @@ cdecl; external {$IFNDEF NDS}{$IFDEF __GPC__}name 'SDL_Quit'{$ELSE} SDLLibName{$
 
 {$IFDEF WINDOWS}
 // This should be called from your WinMain() function, if any
-function SDL_RegisterApp(name: PChar; style: UInt32; h_Inst: Pointer): Integer;
+function SDL_RegisterApp(name: PAnsiChar; style: UInt32; h_Inst: Pointer): Integer;
 cdecl; external {$IFNDEF NDS}{$IFDEF __GPC__}name 'SDL_RegisterApp'{$ELSE} SDLLibName{$ENDIF __GPC__}{$ENDIF};
 {$EXTERNALSYM SDL_RegisterApp}
 {$ENDIF}
@@ -2350,7 +2350,7 @@ cdecl; external {$IFNDEF NDS}{$IFDEF __GPC__}name 'SDL_InitQuickDraw'{$ELSE} SDL
 { types }
 {------------------------------------------------------------------------------}
 // The number of elements in a table
-function SDL_TableSize( table: PChar ): Integer;
+function SDL_TableSize( table: PAnsiChar ): Integer;
 {$EXTERNALSYM SDL_TABLESIZE}
 
 
@@ -2358,10 +2358,10 @@ function SDL_TableSize( table: PChar ): Integer;
 { error-handling }
 {------------------------------------------------------------------------------}
 // Public functions
-function SDL_GetError: PChar;
+function SDL_GetError: PAnsiChar;
 cdecl; external {$IFNDEF NDS}{$IFDEF __GPC__}name 'SDL_GetError'{$ELSE} SDLLibName{$ENDIF __GPC__}{$ENDIF};
 {$EXTERNALSYM SDL_GetError}
-procedure SDL_SetError(fmt: PChar);
+procedure SDL_SetError(fmt: PAnsiChar);
 cdecl; external {$IFNDEF NDS}{$IFDEF __GPC__}name 'SDL_SetError'{$ELSE} SDLLibName{$ENDIF __GPC__}{$ENDIF};
 {$EXTERNALSYM SDL_SetError}
 procedure SDL_ClearError;
@@ -2382,7 +2382,7 @@ procedure SDL_OutOfMemory;
 {------------------------------------------------------------------------------}
 // Functions to create SDL_RWops structures from various data sources
 
-function SDL_RWFromFile(filename, mode: PChar): PSDL_RWops;
+function SDL_RWFromFile(filename, mode: PAnsiChar): PSDL_RWops;
 cdecl; external {$IFNDEF NDS}{$IFDEF __GPC__}name 'SDL_RWFromFile'{$ELSE} SDLLibName{$ENDIF __GPC__}{$ENDIF};
 {$EXTERNALSYM SDL_RWFromFile}
 procedure SDL_FreeRW(area: PSDL_RWops);
@@ -2453,7 +2453,7 @@ cdecl; external {$IFNDEF NDS}{$IFDEF __GPC__}name 'SDL_SetTimer'{$ELSE} SDLLibNa
   have a specific need to specify the audio driver you want to use.
   You should normally use SDL_Init() or SDL_InitSubSystem(). }
 
-function SDL_AudioInit(driver_name: PChar): Integer;
+function SDL_AudioInit(driver_name: PAnsiChar): Integer;
 cdecl; external {$IFNDEF NDS}{$IFDEF __GPC__}name 'SDL_AudioInit'{$ELSE} SDLLibName{$ENDIF __GPC__}{$ENDIF};
 {$EXTERNALSYM SDL_AudioInit}
 procedure SDL_AudioQuit;
@@ -2464,7 +2464,7 @@ cdecl; external {$IFNDEF NDS}{$IFDEF __GPC__}name 'SDL_AudioQuit'{$ELSE} SDLLibN
   current audio driver, and returns a Pointer to it if the audio driver has
   been initialized.  It returns NULL if no driver has been initialized. }
 
-function SDL_AudioDriverName(namebuf: PChar; maxlen: Integer): PChar;
+function SDL_AudioDriverName(namebuf: PAnsiChar; maxlen: Integer): PAnsiChar;
 cdecl; external {$IFNDEF NDS}{$IFDEF __GPC__}name 'SDL_AudioDriverName'{$ELSE} SDLLibName{$ENDIF __GPC__}{$ENDIF};
 {$EXTERNALSYM SDL_AudioDriverName}
 
@@ -2549,7 +2549,7 @@ cdecl; external {$IFNDEF NDS}{$IFDEF __GPC__}name 'SDL_LoadWAV_RW'{$ELSE} SDLLib
 {$EXTERNALSYM SDL_LoadWAV_RW}
 
 // Compatibility convenience function -- loads a WAV from a file
-function SDL_LoadWAV(filename: PChar; spec: PSDL_AudioSpec; audio_buf:
+function SDL_LoadWAV(filename: PAnsiChar; spec: PSDL_AudioSpec; audio_buf:
   PUInt8; audiolen: PUInt32): PSDL_AudioSpec;
 {$EXTERNALSYM SDL_LoadWAV}
 
@@ -2625,7 +2625,7 @@ cdecl; external {$IFNDEF NDS}{$IFDEF __GPC__}name 'SDL_CDNumDrives'{$ELSE} SDLLi
    "E:"
    "/dev/disk/ide/1/master" }
 
-function SDL_CDName(drive: Integer): PChar;
+function SDL_CDName(drive: Integer): PAnsiChar;
 cdecl; external {$IFNDEF NDS}{$IFDEF __GPC__}name 'SDL_CDName'{$ELSE} SDLLibName{$ENDIF __GPC__}{$ENDIF};
 {$EXTERNALSYM SDL_CDName}
 
@@ -2730,7 +2730,7 @@ cdecl; external {$IFNDEF NDS}{$IFDEF __GPC__}name 'SDL_NumJoysticks'{$ELSE} SDLL
 { Get the implementation dependent name of a joystick.
   This can be called before any joysticks are opened.
   If no name can be found, this function returns NULL. }
-function SDL_JoystickName(index: Integer): PChar;
+function SDL_JoystickName(index: Integer): PAnsiChar;
 cdecl; external {$IFNDEF NDS}{$IFDEF __GPC__}name 'SDL_JoystickName'{$ELSE} SDLLibName{$ENDIF __GPC__}{$ENDIF};
 {$EXTERNALSYM SDL_JoystickName}
 
@@ -2960,7 +2960,7 @@ cdecl; external {$IFNDEF NDS}{$IFDEF __GPC__}name 'SDL_Linked_Version'{$ELSE} SD
   SDL_Init() before opening the sound device, otherwise under Win32 DirectX,
   you won't be able to set full-screen display modes. }
 
-function SDL_VideoInit(driver_name: PChar; flags: UInt32): Integer;
+function SDL_VideoInit(driver_name: PAnsiChar; flags: UInt32): Integer;
 cdecl; external {$IFNDEF NDS}{$IFDEF __GPC__}name 'SDL_VideoInit'{$ELSE} SDLLibName{$ENDIF __GPC__}{$ENDIF};
 {$EXTERNALSYM SDL_VideoInit}
 procedure SDL_VideoQuit;
@@ -2971,7 +2971,7 @@ cdecl; external {$IFNDEF NDS}{$IFDEF __GPC__}name 'SDL_VideoQuit'{$ELSE} SDLLibN
   video driver, and returns a pointer to it if the video driver has
   been initialized.  It returns NULL if no driver has been initialized. }
 
-function SDL_VideoDriverName(namebuf: PChar; maxlen: Integer): PChar;
+function SDL_VideoDriverName(namebuf: PAnsiChar; maxlen: Integer): PAnsiChar;
 cdecl; external {$IFNDEF NDS}{$IFDEF __GPC__}name 'SDL_VideoDriverName'{$ELSE} SDLLibName{$ENDIF __GPC__}{$ENDIF};
 {$EXTERNALSYM SDL_VideoDriverName}
 
@@ -3273,7 +3273,7 @@ cdecl; external {$IFNDEF NDS}{$IFDEF __GPC__}name 'SDL_LoadBMP_RW'{$ELSE} SDLLib
 {$EXTERNALSYM SDL_LoadBMP_RW}
 
 // Convenience macro -- load a surface from a file
-function SDL_LoadBMP(filename: PChar): PSDL_Surface;
+function SDL_LoadBMP(filename: PAnsiChar): PSDL_Surface;
 {$EXTERNALSYM SDL_LoadBMP}
 
 { Save a surface to a seekable SDL data source (memory or file.)
@@ -3285,7 +3285,7 @@ cdecl; external {$IFNDEF NDS}{$IFDEF __GPC__}name 'SDL_SaveBMP_RW'{$ELSE} SDLLib
 {$EXTERNALSYM SDL_SaveBMP_RW}
 
 // Convenience macro -- save a surface to a file
-function SDL_SaveBMP(surface: PSDL_Surface; filename: PChar): Integer;
+function SDL_SaveBMP(surface: PSDL_Surface; filename: PAnsiChar): Integer;
 {$EXTERNALSYM SDL_SaveBMP}
 
 { Sets the color key (transparent pixel) in a blittable surface.
@@ -3533,12 +3533,12 @@ cdecl; external {$IFNDEF NDS}{$IFDEF __GPC__}name 'SDL_FreeYUVOverlay'{$ELSE} SD
   This is disabled in default builds of SDL. }
 
 
-function SDL_GL_LoadLibrary(filename: PChar): Integer;
+function SDL_GL_LoadLibrary(filename: PAnsiChar): Integer;
 cdecl; external {$IFNDEF NDS}{$IFDEF __GPC__}name 'SDL_GL_LoadLibrary'{$ELSE} SDLLibName{$ENDIF __GPC__}{$ENDIF};
 {$EXTERNALSYM SDL_GL_LoadLibrary}
 
 { Get the address of a GL function (for extension functions) }
-function SDL_GL_GetProcAddress(procname: PChar) : Pointer;
+function SDL_GL_GetProcAddress(procname: PAnsiChar) : Pointer;
 cdecl; external {$IFNDEF NDS}{$IFDEF __GPC__}name 'SDL_GL_GetProcAddress'{$ELSE} SDLLibName{$ENDIF __GPC__}{$ENDIF};
 {$EXTERNALSYM SDL_GL_GetProcAddress}
 
@@ -3583,10 +3583,10 @@ cdecl; external {$IFNDEF NDS}{$IFDEF __GPC__}name 'SDL_GL_Unlock'{$ELSE} SDLLibN
 {* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}
 
 { Sets/Gets the title and icon text of the display window }
-procedure SDL_WM_GetCaption(var title : PChar; var icon : PChar);
+procedure SDL_WM_GetCaption(var title : PAnsiChar; var icon : PAnsiChar);
 cdecl; external {$IFNDEF NDS}{$IFDEF __GPC__}name 'SDL_WM_GetCaption'{$ELSE} SDLLibName{$ENDIF __GPC__}{$ENDIF};
 {$EXTERNALSYM SDL_WM_GetCaption}
-procedure SDL_WM_SetCaption( const title : PChar; const icon : PChar);
+procedure SDL_WM_SetCaption( const title : PAnsiChar; const icon : PAnsiChar);
 cdecl; external {$IFNDEF NDS}{$IFDEF __GPC__}name 'SDL_WM_SetCaption'{$ELSE} SDLLibName{$ENDIF __GPC__}{$ENDIF};
 {$EXTERNALSYM SDL_WM_SetCaption}
 
@@ -3747,7 +3747,7 @@ cdecl; external {$IFNDEF NDS}{$IFDEF __GPC__}name 'SDL_SetModState'{$ELSE} SDLLi
 {$EXTERNALSYM SDL_SetModState}
 
 { Get the name of an SDL virtual keysym }
-function SDL_GetKeyName(key: TSDLKey): PChar;
+function SDL_GetKeyName(key: TSDLKey): PAnsiChar;
 cdecl; external {$IFNDEF NDS}{$IFDEF __GPC__}name 'SDL_GetKeyName'{$ELSE} SDLLibName{$ENDIF __GPC__}{$ENDIF};
 {$EXTERNALSYM SDL_GetKeyName}
 
@@ -3936,41 +3936,41 @@ cdecl; external {$IFNDEF NDS}{$IFDEF __GPC__}name 'SDL_KillThread'{$ELSE} SDLLib
 { Get Environment Routines                                                     }
 {------------------------------------------------------------------------------}
 {$IFDEF WINDOWS}
-function _putenv( const variable : Pchar ): integer;
+function _putenv( const variable : PAnsiChar ): integer;
 cdecl;
 {$ENDIF}
 
 {$IFDEF Unix}
 {$IFDEF FPC}
-function _putenv( const variable : Pchar ): integer;
+function _putenv( const variable : PAnsiChar ): integer;
 cdecl; external 'libc.so' name 'putenv';
 {$ENDIF}
 {$ENDIF}
 
 { Put a variable of the form "name=value" into the environment }
-//function SDL_putenv(const variable: PChar): integer; cdecl; external {$IFNDEF NDS}{$IFDEF __GPC__}name 'SDL_Init'{$ELSE} SDLLibName{$ENDIF __GPC__}SDLLibName name '';
-function SDL_putenv(const variable: PChar): integer;
+//function SDL_putenv(const variable: PAnsiChar): integer; cdecl; external {$IFNDEF NDS}{$IFDEF __GPC__}name 'SDL_Init'{$ELSE} SDLLibName{$ENDIF __GPC__}SDLLibName name '';
+function SDL_putenv(const variable: PAnsiChar): integer;
 {$EXTERNALSYM SDL_putenv}
 
 // The following function has been commented out to encourage developers to use
 // SDL_putenv as it it more portable
-//function putenv(const variable: PChar): integer;
+//function putenv(const variable: PAnsiChar): integer;
 //{$EXTERNALSYM putenv}
 
 {$IFDEF WINDOWS}
 {$IFNDEF __GPC__}
-function getenv( const name : Pchar ): PChar; cdecl;
+function getenv( const name : PAnsiChar ): PAnsiChar; cdecl;
 {$ENDIF}
 {$ENDIF}
 
 {* Retrieve a variable named "name" from the environment }
-//function SDL_getenv(const name: PChar): PChar; cdecl; external {$IFNDEF NDS}{$IFDEF __GPC__}name 'SDL_Init'{$ELSE} SDLLibName{$ENDIF __GPC__}SDLLibName name '';
-function SDL_getenv(const name: PChar): PChar;
+//function SDL_getenv(const name: PAnsiChar): PAnsiChar; cdecl; external {$IFNDEF NDS}{$IFDEF __GPC__}name 'SDL_Init'{$ELSE} SDLLibName{$ENDIF __GPC__}SDLLibName name '';
+function SDL_getenv(const name: PAnsiChar): PAnsiChar;
 {$EXTERNALSYM SDL_getenv}
 
 // The following function has been commented out to encourage developers to use
 // SDL_getenv as it it more portable
-//function getenv(const name: PChar): PChar;
+//function getenv(const name: PAnsiChar): PAnsiChar;
 //{$EXTERNALSYM getenv}
 
 {*
@@ -3990,7 +3990,7 @@ cdecl; external {$IFNDEF NDS}{$IFDEF __GPC__}name 'SDL_GetWMInfo'{$ELSE} SDLLibN
  * to the object handle (or NULL if there was an error).
  * The 'sofile' parameter is a system dependent name of the object file.
  *}
-function SDL_LoadObject( const sofile : PChar ) : Pointer;
+function SDL_LoadObject( const sofile : PAnsiChar ) : Pointer;
 cdecl; external {$IFNDEF NDS}{$IFDEF __GPC__}name 'SDL_LoadObject'{$ELSE} SDLLibName{$ENDIF __GPC__}{$ENDIF};
 {$EXTERNALSYM SDL_LoadObject}
 
@@ -3998,7 +3998,7 @@ cdecl; external {$IFNDEF NDS}{$IFDEF __GPC__}name 'SDL_LoadObject'{$ELSE} SDLLib
  * named function in the shared object and returns it.  This address
  * is no longer valid after calling SDL_UnloadObject().
  *}
-function SDL_LoadFunction( handle : Pointer; const name : PChar ) : Pointer;
+function SDL_LoadFunction( handle : Pointer; const name : PAnsiChar ) : Pointer;
 cdecl; external {$IFNDEF NDS}{$IFDEF __GPC__}name 'SDL_LoadFunction'{$ELSE} SDLLibName{$ENDIF __GPC__}{$ENDIF};
 {$EXTERNALSYM SDL_LoadFunction}
 
@@ -4041,7 +4041,7 @@ implementation
   {$L 'sdl'}  { link sdl.dll.a or libsdl.so or libsdl.a }
 {$ENDIF}
 
-function SDL_TABLESIZE(table: PChar): Integer;
+function SDL_TABLESIZE(table: PAnsiChar): Integer;
 begin
   Result := SizeOf(table) div SizeOf(table[0]);
 end;
@@ -4078,7 +4078,7 @@ begin
   Result := context^.close(context);
 end;
 
-function SDL_LoadWAV(filename: PChar; spec: PSDL_AudioSpec; audio_buf: PUInt8; audiolen: PUInt32): PSDL_AudioSpec;
+function SDL_LoadWAV(filename: PAnsiChar; spec: PSDL_AudioSpec; audio_buf: PUInt8; audiolen: PUInt32): PSDL_AudioSpec;
 begin
   Result := SDL_LoadWAV_RW(SDL_RWFromFile(filename, 'rb'), 1, spec, audio_buf, audiolen);
 end;
@@ -4129,12 +4129,12 @@ begin
   Result := (SDL_COMPILEDVERSION >= SDL_VERSIONNUM(X, Y, Z));
 end;
 
-function SDL_LoadBMP(filename: PChar): PSDL_Surface;
+function SDL_LoadBMP(filename: PAnsiChar): PSDL_Surface;
 begin
   Result := SDL_LoadBMP_RW(SDL_RWFromFile(filename, 'rb'), 1);
 end;
 
-function SDL_SaveBMP(surface: PSDL_Surface; filename: PChar): Integer;
+function SDL_SaveBMP(surface: PSDL_Surface; filename: PAnsiChar): Integer;
 begin
   Result := SDL_SaveBMP_RW(surface, SDL_RWFromFile(filename, 'wb'), 1);
 end;
@@ -4170,12 +4170,12 @@ begin
 end;
 
 {$IFDEF WINDOWS}
-function _putenv( const variable : Pchar ): Integer;
+function _putenv( const variable : PAnsiChar ): Integer;
 cdecl; external {$IFDEF __GPC__}name '_putenv'{$ELSE} 'MSVCRT.DLL'{$ENDIF __GPC__};
 {$ENDIF}
 
 
-function SDL_putenv(const variable: PChar): Integer;
+function SDL_putenv(const variable: PAnsiChar): Integer;
 begin
   {$IFDEF WINDOWS}
   Result := _putenv(variable);
@@ -4192,12 +4192,12 @@ end;
 
 {$IFDEF WINDOWS}
 {$IFNDEF __GPC__}
-function getenv( const name : Pchar ): PChar;
+function getenv( const name : PAnsiChar ): PAnsiChar;
 cdecl; external {$IFDEF __GPC__}name 'getenv'{$ELSE} 'MSVCRT.DLL'{$ENDIF};
 {$ENDIF}
 {$ENDIF}
 
-function SDL_getenv(const name: PChar): PChar;
+function SDL_getenv(const name: PAnsiChar): PAnsiChar;
 begin
   {$IFDEF WINDOWS}
 

packages/sdl/src/sdl_gfx.pas

@@ -364,19 +364,19 @@ cdecl; external {$IFDEF __GPC__}name 'bezierRGBA'{$ELSE} SDLgfxLibName{$ENDIF __
 
 // Characters/Strings
 
-function characterColor( dst : PSDL_Surface; x : Sint16; y : Sint16; c : char; color : Uint32 ) : integer;
+function characterColor( dst : PSDL_Surface; x : Sint16; y : Sint16; c : AnsiChar; color : Uint32 ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'characterColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
 {$EXTERNALSYM characterColor}
 
-function characterRGBA( dst : PSDL_Surface; x : Sint16; y : Sint16; c : char; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
+function characterRGBA( dst : PSDL_Surface; x : Sint16; y : Sint16; c : AnsiChar; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'characterRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
 {$EXTERNALSYM characterRGBA}
 
-function stringColor( dst : PSDL_Surface; x : Sint16; y : Sint16; const c : PChar; color : Uint32 ) : integer;
+function stringColor( dst : PSDL_Surface; x : Sint16; y : Sint16; const c : PAnsiChar; color : Uint32 ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'stringColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
 {$EXTERNALSYM stringColor}
 
-function stringRGBA( dst : PSDL_Surface; x : Sint16; y : Sint16; const c : PChar; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
+function stringRGBA( dst : PSDL_Surface; x : Sint16; y : Sint16; const c : PAnsiChar; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'stringRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
 {$EXTERNALSYM stringRGBA}
 
@@ -419,145 +419,145 @@ cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterMMXon'{$ELSE} SDLgfxLibName
 //
 
 //  SDL_imageFilterAdd: D = saturation255(S1 + S2)
-function SDL_imageFilterAdd(Src1 : PChar; Src2 : PChar; Dest : PChar; length : integer ) : integer;
+function SDL_imageFilterAdd(Src1 : PAnsiChar; Src2 : PAnsiChar; Dest : PAnsiChar; length : integer ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'SDL_imaSDL_imageFilterAddgeFilterMMXon'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
 {$EXTERNALSYM SDL_imageFilterAdd}
 
 //  SDL_imageFilterMean: D = S1/2 + S2/2
-function SDL_imageFilterMean(Src1 : PChar; Src2 : PChar; Dest : PChar; length : integer ) : integer;
+function SDL_imageFilterMean(Src1 : PAnsiChar; Src2 : PAnsiChar; Dest : PAnsiChar; length : integer ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterMean'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
 {$EXTERNALSYM SDL_imageFilterMean}
 
 //  SDL_imageFilterSub: D = saturation0(S1 - S2)
-function SDL_imageFilterSub(Src1 : PChar; Src2 : PChar; Dest : PChar; length : integer ) : integer;
+function SDL_imageFilterSub(Src1 : PAnsiChar; Src2 : PAnsiChar; Dest : PAnsiChar; length : integer ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterSub'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
 {$EXTERNALSYM SDL_imageFilterSub}
 
 //  SDL_imageFilterAbsDiff: D = | S1 - S2 |
-function SDL_imageFilterAbsDiff(Src1 : PChar; Src2 : PChar; Dest : PChar; length : integer ) : integer;
+function SDL_imageFilterAbsDiff(Src1 : PAnsiChar; Src2 : PAnsiChar; Dest : PAnsiChar; length : integer ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterAbsDiff'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
 {$EXTERNALSYM SDL_imageFilterAbsDiff}
 
 //  SDL_imageFilterMult: D = saturation(S1 * S2)
-function SDL_imageFilterMult(Src1 : PChar; Src2 : PChar; Dest : PChar; length : integer ) : integer;
+function SDL_imageFilterMult(Src1 : PAnsiChar; Src2 : PAnsiChar; Dest : PAnsiChar; length : integer ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterMult'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
 {$EXTERNALSYM SDL_imageFilterMult}
 
 //  SDL_imageFilterMultNor: D = S1 * S2   (non-MMX)
-function SDL_imageFilterMultNor(Src1 : PChar; Src2 : PChar; Dest : PChar; length : integer ) : integer;
+function SDL_imageFilterMultNor(Src1 : PAnsiChar; Src2 : PAnsiChar; Dest : PAnsiChar; length : integer ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterMultNor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
 {$EXTERNALSYM SDL_imageFilterMultNor}
 
 //  SDL_imageFilterMultDivby2: D = saturation255(S1/2 * S2)
-function SDL_imageFilterMultDivby2(Src1 : PChar; Src2 : PChar; Dest : PChar;
+function SDL_imageFilterMultDivby2(Src1 : PAnsiChar; Src2 : PAnsiChar; Dest : PAnsiChar;
 					       length : integer ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterMultDivby2'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
 {$EXTERNALSYM SDL_imageFilterMultDivby2}
 
 //  SDL_imageFilterMultDivby4: D = saturation255(S1/2 * S2/2)
-function SDL_imageFilterMultDivby4(Src1 : PChar; Src2 : PChar; Dest : PChar;
+function SDL_imageFilterMultDivby4(Src1 : PAnsiChar; Src2 : PAnsiChar; Dest : PAnsiChar;
 					       length : integer ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterMultDivby4'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
 {$EXTERNALSYM SDL_imageFilterMultDivby4}
 
 //  SDL_imageFilterBitAnd: D = S1 & S2
-function SDL_imageFilterBitAnd(Src1 : PChar; Src2 : PChar; Dest : PChar; length : integer ) : integer;
+function SDL_imageFilterBitAnd(Src1 : PAnsiChar; Src2 : PAnsiChar; Dest : PAnsiChar; length : integer ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterBitAnd'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
 {$EXTERNALSYM SDL_imageFilterBitAnd}
 
 //  SDL_imageFilterBitOr: D = S1 | S2
-function SDL_imageFilterBitOr(Src1 : PChar; Src2 : PChar; Dest : PChar; length : integer ) : integer;
+function SDL_imageFilterBitOr(Src1 : PAnsiChar; Src2 : PAnsiChar; Dest : PAnsiChar; length : integer ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterBitOr'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
 {$EXTERNALSYM SDL_imageFilterBitOr}
 
 //  SDL_imageFilterDiv: D = S1 / S2   (non-MMX)
-function SDL_imageFilterDiv(Src1 : PChar; Src2 : PChar; Dest : PChar; length : integer ) : integer;
+function SDL_imageFilterDiv(Src1 : PAnsiChar; Src2 : PAnsiChar; Dest : PAnsiChar; length : integer ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterDiv'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
 {$EXTERNALSYM SDL_imageFilterDiv}
 
 //  SDL_imageFilterBitNegation: D = !S
-function SDL_imageFilterBitNegation(Src1 : PChar; Dest : PChar; length : integer ) : integer;
+function SDL_imageFilterBitNegation(Src1 : PAnsiChar; Dest : PAnsiChar; length : integer ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterBitNegation'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
 {$EXTERNALSYM SDL_imageFilterBitNegation}
 
 //  SDL_imageFilterAddByte: D = saturation255(S + C)
-function SDL_imageFilterAddByte(Src1 : PChar; Dest : PChar; length : integer; C : char ) : integer;
+function SDL_imageFilterAddByte(Src1 : PAnsiChar; Dest : PAnsiChar; length : integer; C : AnsiChar ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterAddByte'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
 {$EXTERNALSYM SDL_imageFilterAddByte}
 
 //  SDL_imageFilterAddUint: D = saturation255(S + (uint)C)
-function SDL_imageFilterAddUint(Src1 : PChar; Dest : PChar; length : integer; C : Cardinal ) : integer;
+function SDL_imageFilterAddUint(Src1 : PAnsiChar; Dest : PAnsiChar; length : integer; C : Cardinal ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterAddUint'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
 {$EXTERNALSYM SDL_imageFilterAddUint}
 
 //  SDL_imageFilterAddByteToHalf: D = saturation255(S/2 + C)
-function SDL_imageFilterAddByteToHalf(Src1 : PChar; Dest : PChar; length : integer;
-						  C : char ) : integer;
+function SDL_imageFilterAddByteToHalf(Src1 : PAnsiChar; Dest : PAnsiChar; length : integer;
+						  C : AnsiChar ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterAddByteToHalf'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
 {$EXTERNALSYM SDL_imageFilterAddByteToHalf}
 
 //  SDL_imageFilterSubByte: D = saturation0(S - C)
-function SDL_imageFilterSubByte(Src1 : PChar; Dest : PChar; length : integer; C : char ) : integer;
+function SDL_imageFilterSubByte(Src1 : PAnsiChar; Dest : PAnsiChar; length : integer; C : AnsiChar ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterSubByte'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
 {$EXTERNALSYM SDL_imageFilterSubByte}
 
 //  SDL_imageFilterSubUint: D = saturation0(S - (uint)C)
-function SDL_imageFilterSubUint(Src1 : PChar; Dest : PChar; length : integer; C : Cardinal ) : integer;
+function SDL_imageFilterSubUint(Src1 : PAnsiChar; Dest : PAnsiChar; length : integer; C : Cardinal ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterSubUint'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
 {$EXTERNALSYM SDL_imageFilterSubUint}
 
 //  SDL_imageFilterShiftRight: D = saturation0(S >> N)
-function SDL_imageFilterShiftRight(Src1 : PChar; Dest : PChar; length : integer;  N : char ) : integer;
+function SDL_imageFilterShiftRight(Src1 : PAnsiChar; Dest : PAnsiChar; length : integer;  N : AnsiChar ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterShiftRight'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
 {$EXTERNALSYM SDL_imageFilterShiftRight}
 
 //  SDL_imageFilterShiftRightUint: D = saturation0((uint)S >> N)
-function SDL_imageFilterShiftRightUint(Src1 : PChar; Dest : PChar; length : integer;  N : char ) : integer;
+function SDL_imageFilterShiftRightUint(Src1 : PAnsiChar; Dest : PAnsiChar; length : integer;  N : AnsiChar ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterShiftRightUint'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
 {$EXTERNALSYM SDL_imageFilterShiftRightUint}
 
 //  SDL_imageFilterMultByByte: D = saturation255(S * C)
-function SDL_imageFilterMultByByte(Src1 : PChar; Dest : PChar; length : integer; C : char ) : integer;
+function SDL_imageFilterMultByByte(Src1 : PAnsiChar; Dest : PAnsiChar; length : integer; C : AnsiChar ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterMultByByte'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
 {$EXTERNALSYM SDL_imageFilterMultByByte}
 
 //  SDL_imageFilterShiftRightAndMultByByte: D = saturation255((S >> N) * C)
-function SDL_imageFilterShiftRightAndMultByByte(Src1 : PChar; Dest : PChar; length : integer;
-							     N : char; C : char ) : integer;
+function SDL_imageFilterShiftRightAndMultByByte(Src1 : PAnsiChar; Dest : PAnsiChar; length : integer;
+							     N : AnsiChar; C : AnsiChar ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterShiftRightAndMultByByte'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
 {$EXTERNALSYM SDL_imageFilterShiftRightAndMultByByte}
 
 //  SDL_imageFilterShiftLeftByte: D = (S << N)
-function SDL_imageFilterShiftLeftByte(Src1 : PChar; Dest : PChar; length : integer;
-						   N : char ) : integer;
+function SDL_imageFilterShiftLeftByte(Src1 : PAnsiChar; Dest : PAnsiChar; length : integer;
+						   N : AnsiChar ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterShiftLeftByte'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
 {$EXTERNALSYM SDL_imageFilterShiftLeftByte}
 
 //  SDL_imageFilterShiftLeftUint: D = ((uint)S << N)
-function SDL_imageFilterShiftLeftUint(Src1 : PChar; Dest : PChar; length : integer;
-						   N : char ) : integer;
+function SDL_imageFilterShiftLeftUint(Src1 : PAnsiChar; Dest : PAnsiChar; length : integer;
+						   N : AnsiChar ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterShiftLeftUint'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
 {$EXTERNALSYM SDL_imageFilterShiftLeftUint}
 
 //  SDL_imageFilterShiftLeft: D = saturation255(S << N)
-function SDL_imageFilterShiftLeft(Src1 : PChar; Dest : PChar; length : integer;  N : char ) : integer;
+function SDL_imageFilterShiftLeft(Src1 : PAnsiChar; Dest : PAnsiChar; length : integer;  N : AnsiChar ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterShiftLeft'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
 {$EXTERNALSYM SDL_imageFilterShiftLeft}
 
 //  SDL_imageFilterBinarizeUsingThreshold: D = S >= T ? 255:0
-function SDL_imageFilterBinarizeUsingThreshold(Src1 : PChar; Dest : PChar; length : integer;
-							   T : char ) : integer;
+function SDL_imageFilterBinarizeUsingThreshold(Src1 : PAnsiChar; Dest : PAnsiChar; length : integer;
+							   T : AnsiChar ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterBinarizeUsingThreshold'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
 {$EXTERNALSYM SDL_imageFilterBinarizeUsingThreshold}
 
 //  SDL_imageFilterClipToRange: D = (S >= Tmin) & (S <= Tmax) 255:0
-function SDL_imageFilterClipToRange(Src1 : PChar; Dest : PChar; length : integer;
+function SDL_imageFilterClipToRange(Src1 : PAnsiChar; Dest : PAnsiChar; length : integer;
 						Tmin : Byte; Tmax : Byte ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterClipToRange'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
 {$EXTERNALSYM SDL_imageFilterClipToRange}
 
 //  SDL_imageFilterNormalizeLinear: D = saturation255((Nmax - Nmin)/(Cmax - Cmin)*(S - Cmin) + Nmin)
-function SDL_imageFilterNormalizeLinear(Src1 : PChar; Dest : PChar; length : integer; Cmin : integer;
+function SDL_imageFilterNormalizeLinear(Src1 : PAnsiChar; Dest : PAnsiChar; length : integer; Cmin : integer;
 						    Cmax : integer; Nmin : integer; Nmax : integer ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterClipToRange'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
 {$EXTERNALSYM SDL_imageFilterClipToRange}
@@ -565,65 +565,65 @@ cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterClipToRange'{$ELSE} SDLgfxL
 { !!! NO C-ROUTINE FOR THESE FUNCTIONS YET !!! }
 
 //  SDL_imageFilterConvolveKernel3x3Divide: Dij = saturation0and255( ... )
-function SDL_imageFilterConvolveKernel3x3Divide(Src : PChar; Dest : PChar; rows : integer;
+function SDL_imageFilterConvolveKernel3x3Divide(Src : PAnsiChar; Dest : PAnsiChar; rows : integer;
 							    columns : integer; Kernel : PShortInt; Divisor : Byte ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterConvolveKernel3x3Divide'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
 {$EXTERNALSYM SDL_imageFilterConvolveKernel3x3Divide}
 
 //  SDL_imageFilterConvolveKernel5x5Divide: Dij = saturation0and255( ... )
-function SDL_imageFilterConvolveKernel5x5Divide(Src : PChar; Dest : PChar; rows : integer;
+function SDL_imageFilterConvolveKernel5x5Divide(Src : PAnsiChar; Dest : PAnsiChar; rows : integer;
 							    columns : integer; Kernel : PShortInt; Divisor : Byte ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterConvolveKernel5x5Divide'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
 {$EXTERNALSYM SDL_imageFilterConvolveKernel5x5Divide}
 
 //  SDL_imageFilterConvolveKernel7x7Divide: Dij = saturation0and255( ... )
-function SDL_imageFilterConvolveKernel7x7Divide(Src : PChar; Dest : PChar; rows : integer;
+function SDL_imageFilterConvolveKernel7x7Divide(Src : PAnsiChar; Dest : PAnsiChar; rows : integer;
 							    columns : integer; Kernel : PShortInt; Divisor : Byte ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterConvolveKernel7x7Divide'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
 {$EXTERNALSYM SDL_imageFilterConvolveKernel7x7Divide}
 
 //  SDL_imageFilterConvolveKernel9x9Divide: Dij = saturation0and255( ... )
-function SDL_imageFilterConvolveKernel9x9Divide(Src : PChar; Dest : PChar; rows : integer;
+function SDL_imageFilterConvolveKernel9x9Divide(Src : PAnsiChar; Dest : PAnsiChar; rows : integer;
 							    columns : integer; Kernel : PShortInt; Divisor : Byte ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterConvolveKernel9x9Divide'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
 {$EXTERNALSYM SDL_imageFilterConvolveKernel9x9Divide}
 
 //  SDL_imageFilterConvolveKernel3x3ShiftRight: Dij = saturation0and255( ... )
-function SDL_imageFilterConvolveKernel3x3ShiftRight(Src : PChar; Dest : PChar; rows : integer;
+function SDL_imageFilterConvolveKernel3x3ShiftRight(Src : PAnsiChar; Dest : PAnsiChar; rows : integer;
 								columns : integer; Kernel : PShortInt;
-								 NRightShift : char ) : integer;
+								 NRightShift : AnsiChar ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterConvolveKernel3x3ShiftRight'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
 {$EXTERNALSYM SDL_imageFilterConvolveKernel3x3ShiftRight}
 
 //  SDL_imageFilterConvolveKernel5x5ShiftRight: Dij = saturation0and255( ... )
-function SDL_imageFilterConvolveKernel5x5ShiftRight(Src : PChar; Dest : PChar; rows : integer;
+function SDL_imageFilterConvolveKernel5x5ShiftRight(Src : PAnsiChar; Dest : PAnsiChar; rows : integer;
 								columns : integer; Kernel : PShortInt;
-								 NRightShift : char ) : integer;
+								 NRightShift : AnsiChar ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterConvolveKernel5x5ShiftRight'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
 {$EXTERNALSYM SDL_imageFilterConvolveKernel5x5ShiftRight}
 
 //  SDL_imageFilterConvolveKernel7x7ShiftRight: Dij = saturation0and255( ... )
-function SDL_imageFilterConvolveKernel7x7ShiftRight(Src : PChar; Dest : PChar; rows : integer;
+function SDL_imageFilterConvolveKernel7x7ShiftRight(Src : PAnsiChar; Dest : PAnsiChar; rows : integer;
 								columns : integer; Kernel : PShortInt;
-								 NRightShift : char ) : integer;
+								 NRightShift : AnsiChar ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterConvolveKernel7x7ShiftRight'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
 {$EXTERNALSYM SDL_imageFilterConvolveKernel7x7ShiftRight}
 
 //  SDL_imageFilterConvolveKernel9x9ShiftRight: Dij = saturation0and255( ... )
-function SDL_imageFilterConvolveKernel9x9ShiftRight(Src : PChar; Dest : PChar; rows : integer;
+function SDL_imageFilterConvolveKernel9x9ShiftRight(Src : PAnsiChar; Dest : PAnsiChar; rows : integer;
 								columns : integer; Kernel : PShortInt;
-								 NRightShift : char ) : integer;
+								 NRightShift : AnsiChar ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterConvolveKernel9x9ShiftRight'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
 {$EXTERNALSYM SDL_imageFilterConvolveKernel9x9ShiftRight}
 
 //  SDL_imageFilterSobelX: Dij = saturation255( ... )
-function SDL_imageFilterSobelX(Src : PChar; Dest : PChar; rows : integer; columns : integer ) : integer;
+function SDL_imageFilterSobelX(Src : PAnsiChar; Dest : PAnsiChar; rows : integer; columns : integer ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterSobelX'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
 {$EXTERNALSYM SDL_imageFilterSobelX}
 
 //  SDL_imageFilterSobelXShiftRight: Dij = saturation255( ... )
-function SDL_imageFilterSobelXShiftRight(Src : PChar; Dest : PChar; rows : integer; columns : integer;
-						      NRightShift : char ) : integer;
+function SDL_imageFilterSobelXShiftRight(Src : PAnsiChar; Dest : PAnsiChar; rows : integer; columns : integer;
+						      NRightShift : AnsiChar ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterSobelXShiftRight'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
 {$EXTERNALSYM SDL_imageFilterSobelXShiftRight}
 

packages/sdl/src/sdl_image.pas

@@ -199,11 +199,11 @@ external {$IFDEF __GPC__}name 'IMG_Linked_Version'{$ELSE} SDL_ImageLibName{$ENDI
    surface afterwards by calling:
         SDL_SetColorKey(image, SDL_RLEACCEL, image.format.colorkey);
 }
-function IMG_LoadTyped_RW(src: PSDL_RWops; freesrc: Integer; _type: PChar): PSDL_Surface;
+function IMG_LoadTyped_RW(src: PSDL_RWops; freesrc: Integer; _type: PAnsiChar): PSDL_Surface;
 cdecl; external {$IFDEF __GPC__}name 'IMG_LoadTyped_RW'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
 {$EXTERNALSYM IMG_LoadTyped_RW}
 { Convenience functions }
-function IMG_Load(const _file: PChar): PSDL_Surface;
+function IMG_Load(const _file: PAnsiChar): PSDL_Surface;
 cdecl; external {$IFDEF __GPC__}name 'IMG_Load'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
 {$EXTERNALSYM IMG_Load}
 function IMG_Load_RW(src: PSDL_RWops; freesrc: Integer): PSDL_Surface;
@@ -311,7 +311,7 @@ function IMG_LoadXV_RW(src: PSDL_RWops): PSDL_Surface;
 cdecl; external {$IFDEF __GPC__}name 'IMG_LoadXV_RW'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
 {$EXTERNALSYM IMG_LoadXV_RW}
 
-function IMG_ReadXPMFromArray( xpm : PPChar ): PSDL_Surface;
+function IMG_ReadXPMFromArray( xpm : PPAnsiChar ): PSDL_Surface;
 cdecl; external {$IFDEF __GPC__}name 'IMG_ReadXPMFromArray'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
 {$EXTERNALSYM IMG_ReadXPMFromArray}
 
@@ -319,15 +319,15 @@ cdecl; external {$IFDEF __GPC__}name 'IMG_ReadXPMFromArray'{$ELSE} SDL_ImageLibN
 
 
 { used internally, NOT an exported function }
-//function IMG_string_equals( const str1 : PChar; const str2 : PChar ) : integer;
+//function IMG_string_equals( const str1 : PAnsiChar; const str2 : PAnsiChar ) : integer;
 //cdecl; external {$IFDEF __GPC__}name 'IMG_string_equals'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
 //{ $ EXTERNALSYM IMG_string_equals}
 
 { Error Macros }
 { We'll use SDL for reporting errors }
-procedure IMG_SetError( fmt : PChar );
+procedure IMG_SetError( fmt : PAnsiChar );
 
-function IMG_GetError : PChar;
+function IMG_GetError : PAnsiChar;
 
 implementation
 
@@ -342,12 +342,12 @@ begin
   X.patch := SDL_IMAGE_PATCHLEVEL;
 end;
 
-procedure IMG_SetError( fmt : PChar );
+procedure IMG_SetError( fmt : PAnsiChar );
 begin
   SDL_SetError( fmt );
 end;
 
-function IMG_GetError : PChar;
+function IMG_GetError : PAnsiChar;
 begin
   result := SDL_GetError;
 end;

packages/sdl/src/sdl_mixer.pas

@@ -244,8 +244,8 @@ type
   //music_cmd.h types
   PMusicCMD = ^TMusicCMD;
   TMusicCMD = record
-    filename : array[ 0..PATH_MAX - 1 ] of char;
-    cmd : array[ 0..PATH_MAX - 1 ] of char;
+    filename : array[ 0..PATH_MAX - 1 ] of AnsiChar;
+    cmd : array[ 0..PATH_MAX - 1 ] of AnsiChar;
     pid : TSYS_ThreadHandle;
   end;
 
@@ -362,9 +362,9 @@ type
   PMODULE = ^TMODULE;
   TMODULE = record
     (* general module information *)
-    //CHAR*       songname;    (* name of the song *)
-    //CHAR*       modtype;     (* string type of module loaded *)
-    //CHAR*       comment;     (* module comments *)
+    //AnsiChar*       songname;    (* name of the song *)
+    //AnsiChar*       modtype;     (* string type of module loaded *)
+    //AnsiChar*       comment;     (* module comments *)
     //UWORD       flags;       (* See module flags above *)
     //UBYTE       numchn;      (* number of module channels *)
     //UBYTE       numvoices;   (* max # voices used for full NNA playback *)
@@ -524,9 +524,9 @@ function Mix_LoadWAV_RW( src : PSDL_RWops; freesrc : integer ) : PMix_Chunk;
 cdecl; external {$IFDEF __GPC__}name 'Mix_LoadWAV_RW'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
 {$EXTERNALSYM Mix_LoadWAV_RW}
 
-function Mix_LoadWAV( filename : PChar ) : PMix_Chunk;
+function Mix_LoadWAV( filename : PAnsiChar ) : PMix_Chunk;
 
-function Mix_LoadMUS( const filename : PChar ) : PMix_Music;
+function Mix_LoadMUS( const filename : PAnsiChar ) : PMix_Music;
 cdecl; external {$IFDEF __GPC__}name 'Mix_LoadMUS'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
 {$EXTERNALSYM Mix_LoadMUS}
 
@@ -1067,7 +1067,7 @@ cdecl; external {$IFDEF __GPC__}name 'Mix_PlayingMusic'{$ELSE} SDL_MixerLibName{
 {$EXTERNALSYM Mix_PlayingMusic}
 
 { Stop music and set external music playback command }
-function Mix_SetMusicCMD( const command : PChar ) : integer;
+function Mix_SetMusicCMD( const command : PAnsiChar ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'Mix_SetMusicCMD'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
 {$EXTERNALSYM Mix_SetMusicCMD}
 
@@ -1096,9 +1096,9 @@ cdecl; external {$IFDEF __GPC__}name 'Mix_CloseAudio'{$ELSE} SDL_MixerLibName{$E
 {$ENDIF MORPHOS}
 
 { We'll use SDL for reporting errors }
-procedure Mix_SetError( fmt : PChar );
+procedure Mix_SetError( fmt : PAnsiChar );
 
-function Mix_GetError : PChar;
+function Mix_GetError : PAnsiChar;
 
 {------------------------------------------------------------------------------}
 { initialization                                                               }
@@ -1119,7 +1119,7 @@ begin
   X.patch := SDL_MIXER_PATCHLEVEL;
 end;
 
-function Mix_LoadWAV( filename : PChar ) : PMix_Chunk;
+function Mix_LoadWAV( filename : PAnsiChar ) : PMix_Chunk;
 begin
   result := Mix_LoadWAV_RW( SDL_RWFromFile( filename, 'rb' ), 1 );
 end;
@@ -1135,12 +1135,12 @@ begin
   result := Mix_FadeInChannelTimed( channel, chunk, loops, ms, -1 );
 end;
 
-procedure Mix_SetError( fmt : PChar );
+procedure Mix_SetError( fmt : PAnsiChar );
 begin
   SDL_SetError( fmt );
 end;
 
-function Mix_GetError : PChar;
+function Mix_GetError : PAnsiChar;
 begin
   result := SDL_GetError;
 end;

packages/sdl/src/sdl_mixer_nosmpeg.pas

@@ -93,8 +93,8 @@ type
   //music_cmd.h types
   PMusicCMD = ^TMusicCMD;
   TMusicCMD = record
-    filename : array[ 0..PATH_MAX - 1 ] of char;
-    cmd : array[ 0..PATH_MAX - 1 ] of char;
+    filename : array[ 0..PATH_MAX - 1 ] of AnsiChar;
+    cmd : array[ 0..PATH_MAX - 1 ] of AnsiChar;
     pid : TSYS_ThreadHandle;
   end;
 
@@ -211,9 +211,9 @@ type
   PMODULE = ^TMODULE;
   TMODULE = record
     (* general module information *)
-    //CHAR*       songname;    (* name of the song *)
-    //CHAR*       modtype;     (* string type of module loaded *)
-    //CHAR*       comment;     (* module comments *)
+    //AnsiChar*       songname;    (* name of the song *)
+    //AnsiChar*       modtype;     (* string type of module loaded *)
+    //AnsiChar*       comment;     (* module comments *)
     //UWORD       flags;       (* See module flags above *)
     //UBYTE       numchn;      (* number of module channels *)
     //UBYTE       numvoices;   (* max # voices used for full NNA playback *)
@@ -369,9 +369,9 @@ function Mix_LoadWAV_RW( src : PSDL_RWops; freesrc : integer ) : PMix_Chunk;
 cdecl; external {$IFDEF __GPC__}name 'Mix_LoadWAV_RW'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
 {$EXTERNALSYM Mix_LoadWAV_RW}
 
-function Mix_LoadWAV( filename : PChar ) : PMix_Chunk;
+function Mix_LoadWAV( filename : PAnsiChar ) : PMix_Chunk;
 
-function Mix_LoadMUS( const filename : PChar ) : PMix_Music;
+function Mix_LoadMUS( const filename : PAnsiChar ) : PMix_Music;
 cdecl; external {$IFDEF __GPC__}name 'Mix_LoadMUS'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
 {$EXTERNALSYM Mix_LoadMUS}
 
@@ -911,7 +911,7 @@ cdecl; external {$IFDEF __GPC__}name 'Mix_PlayingMusic'{$ELSE} SDL_MixerLibName{
 {$EXTERNALSYM Mix_PlayingMusic}
 
 { Stop music and set external music playback command }
-function Mix_SetMusicCMD( const command : PChar ) : integer;
+function Mix_SetMusicCMD( const command : PAnsiChar ) : integer;
 cdecl; external {$IFDEF __GPC__}name 'Mix_SetMusicCMD'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
 {$EXTERNALSYM Mix_SetMusicCMD}
 
@@ -940,9 +940,9 @@ cdecl; external {$IFDEF __GPC__}name 'Mix_CloseAudio'{$ELSE} SDL_MixerLibName{$E
 {$ENDIF MORPHOS}
 
 { We'll use SDL for reporting errors }
-procedure Mix_SetError( fmt : PChar );
+procedure Mix_SetError( fmt : PAnsiChar );
 
-function Mix_GetError : PChar;
+function Mix_GetError : PAnsiChar;
 
 {------------------------------------------------------------------------------}
 { initialization                                                               }
@@ -963,7 +963,7 @@ begin
   X.patch := SDL_MIXER_PATCHLEVEL;
 end;
 
-function Mix_LoadWAV( filename : PChar ) : PMix_Chunk;
+function Mix_LoadWAV( filename : PAnsiChar ) : PMix_Chunk;
 begin
   result := Mix_LoadWAV_RW( SDL_RWFromFile( filename, 'rb' ), 1 );
 end;
@@ -979,12 +979,12 @@ begin
   result := Mix_FadeInChannelTimed( channel, chunk, loops, ms, -1 );
 end;
 
-procedure Mix_SetError( fmt : PChar );
+procedure Mix_SetError( fmt : PAnsiChar );
 begin
   SDL_SetError( fmt );
 end;
 
-function Mix_GetError : PChar;
+function Mix_GetError : PAnsiChar;
 begin
   result := SDL_GetError;
 end;

packages/sdl/src/sdl_net.pas

@@ -299,7 +299,7 @@ cdecl; external{$IFDEF __GPC__}name 'SDLNet_Quit'{$ELSE}SDLNetLibName{$ENDIF __G
    address will be INADDR_NONE, and the function will return -1.
    If 'host' is NULL, the resolved host will be set to INADDR_ANY.
  *}
-function SDLNet_ResolveHost( var address : TIPaddress; host : PCHar; port : Uint16 ) : integer;
+function SDLNet_ResolveHost( var address : TIPaddress; host : PAnsiChar; port : Uint16 ) : integer;
 cdecl; external{$IFDEF __GPC__}name 'SDLNet_ResolveHost'{$ELSE}SDLNetLibName{$ENDIF __GPC__};
 {$EXTERNALSYM SDLNet_ResolveHost}
 
@@ -308,7 +308,7 @@ cdecl; external{$IFDEF __GPC__}name 'SDLNet_ResolveHost'{$ELSE}SDLNetLibName{$EN
    otherwise a pointer to a static buffer containing the hostname
    is returned.  Note that this function is not thread-safe.
 *}
-function SDLNet_ResolveIP( var ip : TIPaddress ) : PChar;
+function SDLNet_ResolveIP( var ip : TIPaddress ) : PAnsiChar;
 cdecl; external{$IFDEF __GPC__}name 'SDLNet_ResolveIP'{$ELSE}SDLNetLibName{$ENDIF __GPC__};
 {$EXTERNALSYM SDLNet_ResolveIP}
 
@@ -576,17 +576,17 @@ cdecl; external{$IFDEF __GPC__}name 'SDLNet_Read32'{$ELSE}SDLNetLibName{$ENDIF _
 {$ENDIF MORPHOS}
 
 {* We'll use SDL's functions for error reporting *}
-procedure SDLNet_SetError( fmt : PChar );
-function SDLNet_GetError : PChar;
+procedure SDLNet_SetError( fmt : PAnsiChar );
+function SDLNet_GetError : PAnsiChar;
 
 (* I'm eventually going to try to disentangle SDL_net from SDL, thus making
    SDL_net an independent X-platform networking toolkit.  Not today though....
 
-proceudre SDLNet_SetError(const char *fmt, ...);
+proceudre SDLNet_SetError(const AnsiChar *fmt, ...);
 cdecl; external {$IFDEF __GPC__}name 'SDLNet_SetError'{$ELSE} SDLNetLibName {$ENDIF __GPC__};
 {$EXTERNALSYM SDLNet_SetError}
 
-function SDLNet_GetError : PChar;
+function SDLNet_GetError : PAnsiChar;
 cdecl; external {$IFDEF __GPC__}name 'SDLNet_GetError'{$ELSE} SDLNetLibName {$ENDIF __GPC__};
 {$EXTERNALSYM SDLNet_GetError}
 *)
@@ -634,12 +634,12 @@ begin
   result := ( ( sock <> nil ) and ( sock^.ready = 1 ) );
 end;
 
-procedure SDLNet_SetError( fmt : PChar );
+procedure SDLNet_SetError( fmt : PAnsiChar );
 begin
   SDL_SetError( fmt );
 end;
 
-function SDLNet_GetError : PChar;
+function SDLNet_GetError : PAnsiChar;
 begin
   result := SDL_GetError;
 end;

packages/sdl/src/sdl_ttf.pas

@@ -269,11 +269,11 @@ cdecl; external {$IFDEF __GPC__}name 'TTF_Init'{$ELSE} SDLttfLibName{$ENDIF __GP
  point size becomes the index of choosing which size.  If the value
  is too high, the last indexed size will be the default.
 }
-function TTF_OpenFont( const filename : Pchar; ptsize : integer ) : PTTF_Font;
+function TTF_OpenFont( const filename : PAnsiChar; ptsize : integer ) : PTTF_Font;
 cdecl; external {$IFDEF __GPC__}name 'TTF_OpenFont'{$ELSE} SDLttfLibName{$ENDIF __GPC__};
 {$EXTERNALSYM TTF_OpenFont}
 
-function TTF_OpenFontIndex( const filename : Pchar; ptsize : integer; index : Longint ): PTTF_Font;
+function TTF_OpenFontIndex( const filename : PAnsiChar; ptsize : integer; index : Longint ): PTTF_Font;
 cdecl; external {$IFDEF __GPC__}name 'TTF_OpenFontIndex'{$ELSE} SDLttfLibName{$ENDIF __GPC__};
 {$EXTERNALSYM TTF_OpenFontIndex}
 
@@ -326,11 +326,11 @@ function TTF_FontFaceIsFixedWidth( font : PTTF_Font ): Integer;
 cdecl; external {$IFDEF __GPC__}name 'TTF_FontFaceIsFixedWidth'{$ELSE} SDLttfLibName{$ENDIF __GPC__};
 {$EXTERNALSYM TTF_FontFaceIsFixedWidth}
 
-function TTF_FontFaceFamilyName( font : PTTF_Font ): PChar;
+function TTF_FontFaceFamilyName( font : PTTF_Font ): PAnsiChar;
 cdecl; external {$IFDEF __GPC__}name 'TTF_FontFaceFamilyName'{$ELSE} SDLttfLibName{$ENDIF __GPC__};
 {$EXTERNALSYM TTF_FontFaceFamilyName}
 
-function TTF_FontFaceStyleName( font : PTTF_Font ): PChar;
+function TTF_FontFaceStyleName( font : PTTF_Font ): PAnsiChar;
 cdecl; external {$IFDEF __GPC__}name 'TTF_FontFaceStyleName'{$ELSE} SDLttfLibName{$ENDIF __GPC__};
 {$EXTERNALSYM TTF_FontFaceStyleName}
 
@@ -343,11 +343,11 @@ cdecl; external {$IFDEF __GPC__}name 'TTF_GlyphMetrics'{$ELSE} SDLttfLibName{$EN
 {$EXTERNALSYM TTF_GlyphMetrics}
 
 { Get the dimensions of a rendered string of text }
-function TTF_SizeText( font : PTTF_Font; const text : PChar; var w : integer; var y : integer ): Integer;
+function TTF_SizeText( font : PTTF_Font; const text : PAnsiChar; var w : integer; var y : integer ): Integer;
 cdecl; external {$IFDEF __GPC__}name 'TTF_SizeText'{$ELSE} SDLttfLibName{$ENDIF __GPC__};
 {$EXTERNALSYM TTF_SizeText}
 
-function TTF_SizeUTF8( font : PTTF_Font; const text : PChar; var w : integer; var y : integer): Integer;
+function TTF_SizeUTF8( font : PTTF_Font; const text : PAnsiChar; var w : integer; var y : integer): Integer;
 cdecl; external {$IFDEF __GPC__}name 'TTF_SizeUTF8'{$ELSE} SDLttfLibName{$ENDIF __GPC__};
 {$EXTERNALSYM TTF_SizeUTF8}
 
@@ -362,14 +362,14 @@ cdecl; external {$IFDEF __GPC__}name 'TTF_SizeUNICODE'{$ELSE} SDLttfLibName{$END
    This function returns the new surface, or NULL if there was an error.
 }
 function TTF_RenderText_Solid( font : PTTF_Font;
-				const text : PChar; fg : TSDL_Color ): PSDL_Surface;
+				const text : PAnsiChar; fg : TSDL_Color ): PSDL_Surface;
 {$IFNDEF Workaround_TTF_RenderText_Solid}
 cdecl; external {$IFDEF __GPC__}name 'TTF_RenderText_Solid'{$ELSE} SDLttfLibName{$ENDIF __GPC__};
 {$EXTERNALSYM TTF_RenderText_Solid}
 {$ENDIF}
 
 function TTF_RenderUTF8_Solid( font : PTTF_Font;
-				const text : PChar; fg : TSDL_Color ): PSDL_Surface;
+				const text : PAnsiChar; fg : TSDL_Color ): PSDL_Surface;
 cdecl; external {$IFDEF __GPC__}name 'TTF_RenderUTF8_Solid'{$ELSE} SDLttfLibName{$ENDIF __GPC__};
 {$EXTERNALSYM TTF_RenderUTF8_Solid}
 
@@ -397,11 +397,11 @@ cdecl; external {$IFDEF __GPC__}name 'TTF_RenderGlyph_Solid'{$ELSE} SDLttfLibNam
    This function returns the new surface, or NULL if there was an error.
 }
 function TTF_RenderText_Shaded( font : PTTF_Font;
-				const text : PChar; fg : TSDL_Color; bg : TSDL_Color ): PSDL_Surface;
+				const text : PAnsiChar; fg : TSDL_Color; bg : TSDL_Color ): PSDL_Surface;
 cdecl; external {$IFDEF __GPC__}name 'TTF_RenderText_Shaded'{$ELSE} SDLttfLibName{$ENDIF __GPC__};
 {$EXTERNALSYM TTF_RenderText_Shaded}
 function TTF_RenderUTF8_Shaded( font : PTTF_Font;
-				const text : PChar; fg : TSDL_Color; bg : TSDL_Color ): PSDL_Surface;
+				const text : PAnsiChar; fg : TSDL_Color; bg : TSDL_Color ): PSDL_Surface;
 cdecl; external {$IFDEF __GPC__}name 'TTF_RenderUTF8_Shaded'{$ELSE} SDLttfLibName{$ENDIF __GPC__};
 {$EXTERNALSYM TTF_RenderUTF8_Shaded}
 function TTF_RenderUNICODE_Shaded( font : PTTF_Font;
@@ -426,11 +426,11 @@ cdecl; external {$IFDEF __GPC__}name 'TTF_RenderGlyph_Shaded'{$ELSE} SDLttfLibNa
    This function returns the new surface, or NULL if there was an error.
 }
 function TTF_RenderText_Blended( font : PTTF_Font;
-				const text : PChar; fg : TSDL_Color ): PSDL_Surface;
+				const text : PAnsiChar; fg : TSDL_Color ): PSDL_Surface;
 cdecl; external {$IFDEF __GPC__}name 'TTF_RenderText_Blended'{$ELSE} SDLttfLibName{$ENDIF __GPC__};
 {$EXTERNALSYM TTF_RenderText_Blended}
 function TTF_RenderUTF8_Blended( font : PTTF_Font;
-				const text : PChar; fg : TSDL_Color ): PSDL_Surface;
+				const text : PAnsiChar; fg : TSDL_Color ): PSDL_Surface;
 cdecl; external {$IFDEF __GPC__}name 'TTF_RenderUTF8_Blended'{$ELSE} SDLttfLibName{$ENDIF __GPC__};
 {$EXTERNALSYM TTF_RenderUTF8_Blended}
 function TTF_RenderUNICODE_Blended( font : PTTF_Font;
@@ -474,9 +474,9 @@ cdecl; external {$IFDEF __GPC__}name 'TTF_WasInit'{$ELSE} SDLttfLibName{$ENDIF _
 {$ENDIF MORPHOS}
 
 // We'll use SDL for reporting errors
-procedure TTF_SetError( fmt : PChar );
+procedure TTF_SetError( fmt : PAnsiChar );
 
-function TTF_GetError : PChar;
+function TTF_GetError : PAnsiChar;
 
 implementation
 
@@ -491,19 +491,19 @@ begin
   X.patch := SDL_TTF_PATCHLEVEL;
 end;
 
-procedure TTF_SetError( fmt : PChar );
+procedure TTF_SetError( fmt : PAnsiChar );
 begin
   SDL_SetError( fmt );
 end;
 
-function TTF_GetError : PChar;
+function TTF_GetError : PAnsiChar;
 begin
   result := SDL_GetError;
 end;
 
 {$IFDEF Workaround_TTF_RenderText_Solid}
 function TTF_RenderText_Solid( font : PTTF_Font;
-  const text : PChar; fg : TSDL_Color ): PSDL_Surface;
+  const text : PAnsiChar; fg : TSDL_Color ): PSDL_Surface;
 const
   Black: TSDL_Color = (r: 0; g: 0; b: 0; unused: 0);
 begin

packages/sdl/src/smpeg.pas

@@ -248,7 +248,7 @@ type
     height: Integer;
     current_frame: Integer;
     current_fps: double;
-    audio_string: array[0..79] of char;
+    audio_string: array[0..79] of AnsiChar;
     audio_current_frame: Integer;
     current_offset: UInt32;
     total_size: UInt32;
@@ -290,7 +290,7 @@ type
   The sdl_audio parameter indicates if SMPEG should initialize the SDL audio
   subsystem. If not, you will have to use the SMPEG_playaudio() function below
   to extract the decoded data. }
-function SMPEG_new(const _file: PChar; info: PSMPEG_Info; sdl_audio: Integer): PSMPEG;
+function SMPEG_new(const _file: PAnsiChar; info: PSMPEG_Info; sdl_audio: Integer): PSMPEG;
 cdecl; external {$IFDEF __GPC__}name 'SMPEG_new'{$ELSE} SmpegLibName{$ENDIF __GPC__};
 
 { The same as above for a file descriptor }
@@ -394,7 +394,7 @@ cdecl; external {$IFDEF __GPC__}name 'SMPEG_filter'{$ELSE} SmpegLibName{$ENDIF _
 
 { Return NULL if there is no error in the MPEG stream, or an error message
    if there was a fatal error in the MPEG stream for the SMPEG object. }
-function SMPEG_error(mpeg: PSMPEG): PChar;
+function SMPEG_error(mpeg: PSMPEG): PAnsiChar;
 cdecl; external {$IFDEF __GPC__}name 'SMPEG_error'{$ELSE} SmpegLibName{$ENDIF __GPC__};
 
 { Exported callback function for audio playback.