paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 08:59:27 +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_my : longint;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_handler : TGpmHandler;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_Wgetch:longint;cdecl;external;
function Gpm_Getch:longint;}
function Gpm_GetLibVersion(var where:longint):pchar;cdecl;external name 'Gpm_GetLibVersion';
function Gpm_GetServerVersion(var where:longint):pchar;cdecl;external name 'Gpm_GetServerVersion';
function Gpm_GetLibVersion(var where:longint):PAnsiChar;cdecl;external name 'Gpm_GetLibVersion';
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(var ePtr:TGpmEvent):longint;cdecl;external name 'Gpm_GetSnapshot';
{$else}
@ -218,7 +218,7 @@ type Pgpm_stst=^Tgpm_stst;
Pmicetab=^Tmicetab;
Tmicetab=record
next:Pmicetab;
device,protocol,options:Pchar;
device,protocol,options:PAnsiChar;
end;
string63=string[63];
@ -227,7 +227,7 @@ type Pgpm_stst=^Tgpm_stst;
autodetect:longint;
mice_count:longint;
repeater:longint;
repeater_type:Pchar;
repeater_type:PAnsiChar;
run_status:longint;
micelist:Pmicetab;
progname,
@ -398,7 +398,7 @@ function gpm_open(var conn:Tgpmconnect;flag:longint):longint;
var tty:string;
flagstr:string[10];
term:Pchar;
term:PAnsiChar;
i:cardinal;
addr:Tunixsockaddr;
win:Twinsize;