* Char -> AnsiChar

rtl/netbsd/errnostr.inc

@@ -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 }

rtl/netbsd/pmutext.inc

@@ -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};

rtl/netbsd/pthread.inc

@@ -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';

rtl/netbsd/ptypes.inc

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

rtl/netbsd/signal.inc

@@ -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

rtl/netbsd/sysctlh.inc

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

rtl/netbsd/systypes.inc

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

rtl/netbsd/termios.inc

@@ -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);

rtl/netbsd/unxsysc.inc

@@ -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))