paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 07:34:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Char -> AnsiChar

Browse Source
This commit is contained in:
Michael VAN CANNEYT 2022-12-22 09:19:38 +01:00 committed by Michaël Van Canneyt
parent 810f54ac07
commit 45b5f58c4a
9 changed files with 26 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/netbsd/errnostr.inc
View File

@ -16,7 +16,7 @@
{ Checked using ../unix/scipts/check_errnostr.sh }
const
sys_errn=97;
sys_errlist:array[0..sys_errn-1] of pchar = (
sys_errlist:array[0..sys_errn-1] of PAnsiChar = (
'Success', { 0 }
'Operation not permitted', { EPERM }
'No such file or directory', { ENOENT }

8
rtl/netbsd/pmutext.inc
View File

@ -40,13 +40,13 @@ struct __pthread_mutex_st {
{$endif}
record
ptm_magic : dword { should be cuint};
ptm_errorcheck : char { should be pthread_spin_t};
ptm_errorcheck : AnsiChar { should be pthread_spin_t};
{$ifdef __CPU_SIMPLE_LOCK_PAD}
ptm_pad : array[0..2] of char;
ptm_pad : array[0..2] of AnsiChar;
{$endif _CPU_SIMPLE_LOCK_PAD}
ptm_interlock : char { should be pthread_spinn_t};
ptm_interlock : AnsiChar { should be pthread_spinn_t};
{$ifdef __CPU_SIMPLE_LOCK_PAD}
ptm_pad2 : array[0..2] of char;
ptm_pad2 : array[0..2] of AnsiChar;
{$endif _CPU_SIMPLE_LOCK_PAD}
ptm_owner : pointer { should be pthread_t};
ptm_waiter : pointer { should be ppthread_t};

4
rtl/netbsd/pthread.inc
View File

@ -72,10 +72,10 @@ function pthread_sigmask(how: cint; nset: psigset; oset: psigset): cint; cdecl;
// not yet implemented in Mac OS X 10.4.8!
function sem_init(__sem:Psem_t; __pshared:cint;__value:cuint):cint;cdecl; external 'c' name 'sem_init';
function sem_open(name: pchar; oflag: cint): Psem_t; cdecl; varargs; external 'c' name 'sem_open';
function sem_open(name: PAnsiChar; oflag: cint): Psem_t; cdecl; varargs; external 'c' name 'sem_open';
function sem_destroy(__sem:Psem_t):cint;cdecl;external 'c' name 'sem_destroy';
function sem_close(__sem:Psem_t):cint;cdecl;external 'c' name 'sem_close';
function sem_unlink(__name:Pchar):cint;cdecl;external 'c' name 'sem_unlink';
function sem_unlink(__name:PAnsiChar):cint;cdecl;external 'c' name 'sem_unlink';
function sem_wait(__sem:Psem_t):cint;cdecl;external 'c' name 'sem_wait';
function sem_trywait(__sem:Psem_t):cint;cdecl;external 'c' name 'sem_trywait';
function sem_post(__sem:Psem_t):cint;cdecl;external 'c' name 'sem_post';

16
rtl/netbsd/ptypes.inc
View File

@ -122,9 +122,9 @@ struct statfs12 {
long f_syncwrites; /* count of sync writes since mount */
long f_asyncwrites; /* count of async writes since mount */
long f_spare[1]; /* spare for later */
char f_fstypename[MFSNAMELEN]; /* fs type name */
char f_mntonname[MNAMELEN]; /* directory on which mounted */
char f_mntfromname[MNAMELEN]; /* mounted file system */
AnsiChar f_fstypename[MFSNAMELEN]; /* fs type name */
AnsiChar f_mntonname[MNAMELEN]; /* directory on which mounted */
AnsiChar f_mntfromname[MNAMELEN]; /* mounted file system */
};
*)
TStatfs12 = record
@ -143,9 +143,9 @@ struct statfs12 {
fsyncwrites,
fasyncwrites : clong;
fspare0 : array [0..0] of clong;
fstypename : array[0..MFSNamLen-1] of char;
mountpoint : array[0..MNAMLEN-1] of char;
mnfromname : array[0..MNAMLEN-1] of char;
fstypename : array[0..MFSNamLen-1] of AnsiChar;
mountpoint : array[0..MNAMLEN-1] of AnsiChar;
mnfromname : array[0..MNAMLEN-1] of AnsiChar;
end;
TStatFS = TStatFS12;
PStatFS=^TStatFS;
@ -165,7 +165,7 @@ struct statfs12 {
mbstate_t = record
case byte of
0: (__mbstate8: array[0..127] of char);
0: (__mbstate8: array[0..127] of AnsiChar);
1: (_mbstateL: cint64); { for alignment }
end;
pmbstate_t = ^mbstate_t;
@ -182,7 +182,7 @@ struct statfs12 {
ptma_magic : cint;
ptma_private : pointer;
end;
pthread_spin_t = char;
pthread_spin_t = AnsiChar;
pthread_queue_t = record
first, last : pointer;
end;

6
rtl/netbsd/signal.inc
View File

@ -122,7 +122,7 @@ type
psiginfo = ^tsiginfo;
tsiginfo = record
case longint of
0 : ( _pad : array[0..(SI_PAD_SIZE)-1] of char );
0 : ( _pad : array[0..(SI_PAD_SIZE)-1] of AnsiChar );
1 : ( _info : ksiginfo);
{ end; }
end;
@ -202,9 +202,9 @@ struct sigcontext {
en_opcode : word; { opcode last executed (11 bits ) }
en_foo : cardinal; { floating operand offset }
en_fos : cardinal; { floating operand segment selector }
fpr_acc : array[0..79] of char;
fpr_acc : array[0..79] of AnsiChar;
fpr_ex_sw : cardinal;
fpr_pad : array[0..63] of char; *)
fpr_pad : array[0..63] of AnsiChar; *)
end;
{$endif}
(* From amd64 /usr/include/machine/frame_regs.h

2
rtl/netbsd/sysctlh.inc
View File

@ -37,7 +37,7 @@ CONST
Type
ctlname = record
ctl_name : pchar; { subsystem name }
ctl_name : PAnsiChar; { subsystem name }
ctl_type : cint { type of name }
End;

6
rtl/netbsd/systypes.inc
View File

@ -27,9 +27,9 @@ type
ftype : longint;
fflags : longint; {copy of mount flags}
spare : array [0..1] of longint; { For later use }
fstypename : array[0..15] of char;
mountpoint : array[0..89] of char;
mnfromname : array[0..89] of char;
fstypename : array[0..15] of AnsiChar;
mountpoint : array[0..89] of AnsiChar;
mnfromname : array[0..89] of AnsiChar;
end;
PStatFS=^TStatFS;

6
rtl/netbsd/termios.inc
View File

@ -60,7 +60,7 @@ type
c_oflag,
c_cflag,
c_lflag : longint;
c_line : char;
c_line : AnsiChar;
c_cc : array[0..NCCS-1] of byte;
{$IFDEF BSD}
c_ispeed,
@ -139,7 +139,7 @@ CONST
ECHO = $8; { enable echoing }
ECHONL = $10; { echo NL even if ECHO is off }
ECHOPRT = $20; { visual erase mode for hardcopy }
ECHOCTL = $40; { echo control chars as ^(Char) }
ECHOCTL = $40; { echo control chars as ^(char) }
ISIG = $80; { enable signals INTR, QUIT, [D]SUSP }
ICANON = $100; { canonicalize input lines }
ALTWERASE = $200; { use alternate WERASE algorithm }
@ -357,7 +357,7 @@ struct winsize {
{
* TTYDEFCHARS to include an array of default control characters.
}
ttydefchars : array[0..NCCS-1] OF char =(
ttydefchars : array[0..NCCS-1] OF AnsiChar =(
CEOF, CEOL, CEOL, CERASE, CWERASE, CKILL, CREPRINT,
POSIX_VDISABLE, CINTR, CQUIT, CSUSP, CDSUSP, CSTART, CSTOP, CLNEXT,
CDISCARD, CMIN, CTIME, CSTATUS, POSIX_VDISABLE);

2
rtl/netbsd/unxsysc.inc
View File

@ -73,7 +73,7 @@ begin
fpfstatfs:=do_SysCall(SysCall_nr_fstatfs,fd,TSysParam(info))
end;
Function fpStatFS (Path:pchar; Info:pstatfs):cint;
Function fpStatFS (Path:PAnsiChar; Info:pstatfs):cint;
begin
fpstatfs:=do_SysCall(SysCall_nr_statfs,TSysParam(path),TSysParam(Info))