paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 10:11:29 +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:17:44 +01:00
parent 02db58c182
commit f12605d210
5 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/rtl-extra/src/bsd/ipcbsd.inc
View File

@ -14,7 +14,7 @@
**********************************************************************} **********************************************************************}
function ftok(path:Pchar; id:cint):key_t; function ftok(path:PAnsiChar; id:cint):key_t;
var st:stat; var st:stat;

6
packages/rtl-extra/src/linux/ipccall.inc
View File

@ -14,7 +14,7 @@
***********************************************************************} ***********************************************************************}
{ The following definitions come from linux/ipc.h } { The following definitions come from linux/ipc.h }
Function ftok (Path : pchar; ID : cint) : TKey; Function ftok (Path : PAnsiChar; ID : cint) : TKey;
Var Info : TStat; Var Info : TStat;
begin begin
If fpstat(path,info)<0 then If fpstat(path,info)<0 then
@ -60,12 +60,12 @@ begin
end; end;
Function shmat (shmid:cint; shmaddr:pointer; shmflg:cint):pointer; Function shmat (shmid:cint; shmaddr:pointer; shmflg:cint):pointer;
Var raddr : pchar; Var raddr : PAnsiChar;
error : ptrint; error : ptrint;
begin begin
error:=ipccall(CALL_SHMAT,shmid,shmflg,cint(@raddr),shmaddr,0); error:=ipccall(CALL_SHMAT,shmid,shmflg,cint(@raddr),shmaddr,0);
If Error<0 then If Error<0 then
shmat:=pchar(error) shmat:=PAnsiChar(error)
else else
shmat:=raddr; shmat:=raddr;
end; end;

2
packages/rtl-extra/src/linux/ipcsys.inc
View File

@ -14,7 +14,7 @@
***********************************************************************} ***********************************************************************}
Function ftok (Path : pchar; ID : cint) : TKey; Function ftok (Path : PAnsiChar; ID : cint) : TKey;
Var Info : TStat; Var Info : TStat;
begin begin
If fpstat(path,info)<0 then If fpstat(path,info)<0 then

8
packages/rtl-extra/src/unix/ipc.pp
View File

@ -205,7 +205,7 @@ type
{ Function to generate a IPC key. } { Function to generate a IPC key. }
Function ftok (Path : pchar; ID : cint) : TKey; {$ifdef FPC_USE_LIBC} cdecl; external clib name 'ftok'; {$endif} Function ftok (Path : PAnsiChar; ID : cint) : TKey; {$ifdef FPC_USE_LIBC} cdecl; external clib name 'ftok'; {$endif}
{ ---------------------------------------------------------------------- { ----------------------------------------------------------------------
Sys V Shared memory stuff Sys V Shared memory stuff
@ -477,11 +477,11 @@ type
msg_next : PMSG; msg_next : PMSG;
msg_attr : TMsg_Hdr; msg_attr : TMsg_Hdr;
msg_ts : cuint; msg_ts : cuint;
msg_spot : pchar; msg_spot : PAnsiChar;
{$else} {$else}
msg_next : PMSG; msg_next : PMSG;
msg_type : Longint; msg_type : Longint;
msg_spot : PChar; msg_spot : PAnsiChar;
msg_stime : Longint; msg_stime : Longint;
msg_ts : Integer; msg_ts : Integer;
{$endif} {$endif}
@ -618,7 +618,7 @@ type
PMSGbuf = ^TMSGbuf; PMSGbuf = ^TMSGbuf;
TMSGbuf = record // called mymsg on freebsd and SVID manual TMSGbuf = record // called mymsg on freebsd and SVID manual
mtype : clong; mtype : clong;
mtext : array[0..0] of char; mtext : array[0..0] of AnsiChar;
end; end;
{$if defined(linux)} {$if defined(linux)}

4
packages/rtl-extra/src/unix/ipccdecl.inc
View File

@ -27,9 +27,9 @@ Function cmsgsnd(msqid:cint; msgp: PMSGBuf; msgsz: size_t; msgflg:cint): cint;
Function cmsgrcv(msqid:cint; msgp: PMSGBuf; msgsz: size_t; msgtyp:cint; msgflg:cint):cint; cdecl; external; Function cmsgrcv(msqid:cint; msgp: PMSGBuf; msgsz: size_t; msgtyp:cint; msgflg:cint):cint; cdecl; external;
Function cmsgctl(msqid:cint; cmd: cint; buf: PMSQid_ds): cint; cdecl; external; Function cmsgctl(msqid:cint; cmd: cint; buf: PMSQid_ds): cint; cdecl; external;
function cftok(path:Pchar; id:cint):key_t; cdecl; external; function cftok(path:PAnsiChar; id:cint):key_t; cdecl; external;
function ftok(path:Pchar; id:cint):key_t; function ftok(path:PAnsiChar; id:cint):key_t;
var st:stat; var st:stat;