paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 10:09:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

* PChar -> PAnsiChar

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-01-14 22:19:07 +01:00
parent f12605d210
commit 395ff00f9c
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/rtl-extra/src/unix/gpm.pp
View File

@ -137,7 +137,7 @@ var
gpm_mx : longint;cvar;external; gpm_mx : longint;cvar;external;
gpm_my : longint;cvar;external; gpm_my : longint;cvar;external;
gpm_timeout : TTimeVal;cvar;external; gpm_timeout : TTimeVal;cvar;external;
_gpm_buf : array[0..0] of char;cvar;external; _gpm_buf : array[0..0] of AnsiChar;cvar;external;
_gpm_arg : ^word;cvar;external; _gpm_arg : ^word;cvar;external;
gpm_handler : TGpmHandler;cvar;external; gpm_handler : TGpmHandler;cvar;external;
gpm_data : pointer;cvar;external; gpm_data : pointer;cvar;external;
@ -177,8 +177,8 @@ function Gpm_RaiseRoi(which:PGpmRoi; before:PGpmRoi):PGpmRoi;cdecl;external name
function Gpm_LowerRoi(which:PGpmRoi; after:PGpmRoi):PGpmRoi;cdecl;external name 'Gpm_LowerRoi'; function Gpm_LowerRoi(which:PGpmRoi; after:PGpmRoi):PGpmRoi;cdecl;external name 'Gpm_LowerRoi';
{function Gpm_Wgetch:longint;cdecl;external; {function Gpm_Wgetch:longint;cdecl;external;
function Gpm_Getch:longint;} function Gpm_Getch:longint;}
function Gpm_GetLibVersion(var where:longint):pchar;cdecl;external name 'Gpm_GetLibVersion'; function Gpm_GetLibVersion(var where:longint):PAnsiChar;cdecl;external name 'Gpm_GetLibVersion';
function Gpm_GetServerVersion(var where:longint):pchar;cdecl;external name 'Gpm_GetServerVersion'; function Gpm_GetServerVersion(var where:longint):PAnsiChar;cdecl;external name 'Gpm_GetServerVersion';
function gpm_getsnapshot(eptr:Pgpmevent):longint;cdecl;external name 'Gpm_GetSnapshot'; function gpm_getsnapshot(eptr:Pgpmevent):longint;cdecl;external name 'Gpm_GetSnapshot';
function Gpm_GetSnapshot(var ePtr:TGpmEvent):longint;cdecl;external name 'Gpm_GetSnapshot'; function Gpm_GetSnapshot(var ePtr:TGpmEvent):longint;cdecl;external name 'Gpm_GetSnapshot';
{$else} {$else}
@ -218,7 +218,7 @@ type Pgpm_stst=^Tgpm_stst;
Pmicetab=^Tmicetab; Pmicetab=^Tmicetab;
Tmicetab=record Tmicetab=record
next:Pmicetab; next:Pmicetab;
device,protocol,options:Pchar; device,protocol,options:PAnsiChar;
end; end;
string63=string[63]; string63=string[63];
@ -227,7 +227,7 @@ type Pgpm_stst=^Tgpm_stst;
autodetect:longint; autodetect:longint;
mice_count:longint; mice_count:longint;
repeater:longint; repeater:longint;
repeater_type:Pchar; repeater_type:PAnsiChar;
run_status:longint; run_status:longint;
micelist:Pmicetab; micelist:Pmicetab;
progname, progname,
@ -398,7 +398,7 @@ function gpm_open(var conn:Tgpmconnect;flag:longint):longint;
var tty:string; var tty:string;
flagstr:string[10]; flagstr:string[10];
term:Pchar; term:PAnsiChar;
i:cardinal; i:cardinal;
addr:Tunixsockaddr; addr:Tunixsockaddr;
win:Twinsize; win:Twinsize;