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: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;

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

@ -14,7 +14,7 @@
***********************************************************************}
{ 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;
begin
If fpstat(path,info)<0 then
@ -60,12 +60,12 @@ begin
end;
Function shmat (shmid:cint; shmaddr:pointer; shmflg:cint):pointer;
Var raddr : pchar;
Var raddr : PAnsiChar;
error : ptrint;
begin
error:=ipccall(CALL_SHMAT,shmid,shmflg,cint(@raddr),shmaddr,0);
If Error<0 then
shmat:=pchar(error)
shmat:=PAnsiChar(error)
else
shmat:=raddr;
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;
begin
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 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
@ -477,11 +477,11 @@ type
msg_next : PMSG;
msg_attr : TMsg_Hdr;
msg_ts : cuint;
msg_spot : pchar;
msg_spot : PAnsiChar;
{$else}
msg_next : PMSG;
msg_type : Longint;
msg_spot : PChar;
msg_spot : PAnsiChar;
msg_stime : Longint;
msg_ts : Integer;
{$endif}
@ -618,7 +618,7 @@ type
PMSGbuf = ^TMSGbuf;
TMSGbuf = record // called mymsg on freebsd and SVID manual
mtype : clong;
mtext : array[0..0] of char;
mtext : array[0..0] of AnsiChar;
end;
{$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 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;