* Char -> AnsiChar

rtl/freebsd/aarch64/si_c.inc

@@ -3,9 +3,9 @@ Type
     TCleanup = procedure; cdecl;
 
 var
-  environ : ppchar; cvar; public  name '__environ';
-  progname: pchar = #0#0; cvar; public name '__progname';
-  dynamic : pchar;  external name '_DYNAMIC'; // #pragma weak
+  environ : PPAnsiChar; cvar; public  name '__environ';
+  progname: PAnsiChar = #0#0; cvar; public name '__progname';
+  dynamic : PAnsiChar;  external name '_DYNAMIC'; // #pragma weak
 
 procedure atexit(prc:TCleanup); cdecl external name 'atexit';
 procedure cleanup(prc:TCleanup); cdecl external name 'cleanup';
@@ -13,7 +13,7 @@ procedure init_tls; cdecl; external name 'init_tls';
 procedure fini; cdecl; external name '_fini';
 procedure init; cdecl; external name '_init';
 procedure libc_exit(exitcode:longint);cdecl; external name 'exit';
-function  main(nrarg:longint;pp:ppchar;env:ppchar):longint; cdecl; external name 'main';
+function  main(nrarg:longint;pp:PPAnsiChar;env:PPAnsiChar):longint; cdecl; external name 'main';
 
 {$ifdef gcrt}
  procedure cmcleanup; cdecl; external name '_mcleanup';
@@ -24,16 +24,16 @@ var
  etext:longint; external name 'etext';
 {$endif}
 
-procedure start(ap:ppchar;cleanup:TCleanup);
+procedure start(ap:PPAnsiChar;cleanup:TCleanup);
 
 var argc: longint;
-    argv: ppchar;
-    env : ppchar;
-    s   : pchar;
+    argv: PPAnsiChar;
+    env : PPAnsiChar;
+    s   : PAnsiChar;
 begin
   argc:=plongint(ap)^;
-  argv:=ppchar(ap[1]);
-  env:=	ppchar(ap[2+argc]);
+  argv:=PPAnsiChar(ap[1]);
+  env:=	PPAnsiChar(ap[2+argc]);
   environ:=env;
   if (argc>0) and (argv[0]<>#0) Then
    begin
@@ -46,7 +46,7 @@ begin
           inc(s);
 	end;
     end;
-  if assigned(pchar(@dynamic)) then // I suspect this is a trick to find
+  if assigned(PAnsiChar(@dynamic)) then // I suspect this is a trick to find
 				    // out runtime if we are shared
 				    // linking, so the same code can be used
 				    // for static and shared linking

rtl/freebsd/console.pp

@@ -32,7 +32,7 @@ interface
 to longint because INT is a standard function in TP/FPC}
 
 TYPE
-     uchar = char;
+     uchar = AnsiChar;
      uint  = dword;
      u_int = uint;
      ushort= word;
@@ -323,7 +323,7 @@ const
 type  video_adapter  = record
                         va_index                : longint;
                         va_type                 : longint;
-                        va_name                 : pchar;
+                        va_name                 : PAnsiChar;
                         va_unit                 : longint;
                         va_minor                : longint;
                         va_flags                : longint;
@@ -355,7 +355,7 @@ type  video_adapter  = record
        video_adapter_info = record
                         va_index                : longint;
                         va_type                 : longint;
-                        va_name                 : array[0..15] of char;
+                        va_name                 : array[0..15] of AnsiChar;
                         va_unit                 : longint;
                         va_flags                : longint;
                         va_io_base              : longint;
@@ -611,10 +611,10 @@ Function KDRASTER(fd:longint;var param1 : scr_size_t):boolean;
 
 type
 
-{ get/set screen char map }
+{ get/set screen AnsiChar map }
 
         scrmap   = record
-                    _scrmap : array[0..255] of char;
+                    _scrmap : array[0..255] of AnsiChar;
                     end;
         scrmap_t =  scrmap;
 
@@ -643,7 +643,7 @@ Function CONS_BLANKTIME(fd:longint;var param1 : longint):boolean;
 CONST        maxsaver=16;
 
 type ssaver =record
-                name : array[0..maxsaver-1] of char;
+                name : array[0..maxsaver-1] of AnsiChar;
                 num  : Longint;
                 time : Long;
                 end;
@@ -738,19 +738,19 @@ Function CONS_SAVERSTART(fd:longint;var param1 : longint):boolean;
 TYPE
 { set/get font data }
         fnt8        = record
-                        fnt8x8 : array[0..8*256-1] of char;
+                        fnt8x8 : array[0..8*256-1] of AnsiChar;
                       end;
 
         fnt8_t      = fnt8;
 
         fnt14       = record
-                        fnt8x14: array[0..14*256-1] of char;
+                        fnt8x14: array[0..14*256-1] of AnsiChar;
                       end;
 
         fnt14_t     = fnt14;
 
         fnt16       = record
-                        fnt8x16: array[0..16*256-1] of char;
+                        fnt8x16: array[0..16*256-1] of AnsiChar;
                        end;
         fnt16_t     = fnt16;
 
@@ -764,8 +764,8 @@ Function GIO_FONT8x16(fd:longint;var param1 : fnt16_t):boolean;
 
 { get video mode information }
 type        colors = record
-                       fore : char;
-                       back : char;
+                       fore : AnsiChar;
+                       back : AnsiChar;
                       end;
 
             vid_info = record
@@ -846,8 +846,8 @@ const
 
 TYPE
         vt_mode    = record
-                       mode     :   Char;
-                       waitv    :   char;    { not implemented yet  SOS }
+                       mode     :   AnsiChar;
+                       waitv    :   AnsiChar;    { not implemented yet  SOS }
                        relsig   :   short;
                        acqsig   :   short;
                        frsig    :   short;   { not implemented yet  SOS }
@@ -1060,7 +1060,7 @@ TYPE
 { get keyboard information}
   keyboard_info = Record
                         kb_index : longint;     { kbdio index#}
-                        kb_name  : array[0..15] of char;        { driver name}
+                        kb_name  : array[0..15] of AnsiChar;        { driver name}
                         kb_unit  : longint;     { unit#}
                         kb_type  : longint;     { KB_84, KB_101, KB_OTHER,...}
                         kb_config: longint;     { device configuration flags}
@@ -1203,8 +1203,8 @@ type acc_t           = record
 
              fkeyarg =record
                         keynum : ushort;
-                        keydef : array[0..MAXFK-1] of char;
-                        flen :char;
+                        keydef : array[0..MAXFK-1] of AnsiChar;
+                        flen :AnsiChar;
                         end;
 
          fkeyarg_t       = fkeyarg;

rtl/freebsd/csucommon/ignore_init.inc

@@ -40,10 +40,10 @@ Translated into Pascal by Marco van de Voort
 //#include "notes.h"
 
 // replaced by pascalmain in si_c.pp
-//function cmain(argc:longint;argv:ppchar;env:ppchar):longint; cdecl; external name '_main';
+//function cmain(argc:longint;argv:PPAnsiChar;env:PPAnsiChar):longint; cdecl; external name '_main';
 
 
-Type TInitProc     = procedure(argc:longint;argv:ppchar;env:ppchar); cdecl;
+Type TInitProc     = procedure(argc:longint;argv:PPAnsiChar;env:PPAnsiChar); cdecl;
      PInitProc     = ^TInitProc;
      TCleanupProc  = procedure; cdecl;
      PCleanupProc  = ^TCleanupProc;
@@ -52,7 +52,7 @@ procedure atexit(prc:TCleanupProc); cdecl external name 'atexit';
 procedure cleanup(prc:TCleanupProc); cdecl external name 'cleanup';
 
 var
-  environ : ppchar; cvar; public  name '__environ';
+  environ : PPAnsiChar; cvar; public  name '__environ';
   _Dynamic  : longint; weakexternal name '_DYNAMIC';
 
 var
@@ -143,7 +143,7 @@ begin
  _fini();
 end;
 
-procedure handle_static_init(argc:longint;argv:ppchar;env:ppchar);  cdecl;
+procedure handle_static_init(argc:longint;argv:PPAnsiChar;env:PPAnsiChar);  cdecl;
 var fn : TInitProc;
     n,array_size : ptruint; // actually: size_t;
 begin
@@ -170,9 +170,9 @@ begin
      end;
 end;
 
-procedure handle_argv(argc:longint;argv:ppchar;env:ppchar); inline;
+procedure handle_argv(argc:longint;argv:PPAnsiChar;env:PPAnsiChar); inline;
 var
-  s: pchar;
+  s: PAnsiChar;
 begin
    if assigned(environ) then
       environ:=env;
@@ -194,7 +194,7 @@ static const struct {
 	int32_t	namesz;
 	int32_t	descsz;
 	int32_t	type;
-	char	name[sizeof(NOTE_FREEBSD_VENDOR)];
+	AnsiChar	name[sizeof(NOTE_FREEBSD_VENDOR)];
 	uint32_t desc;
 } crt_noinit_tag __attribute__ ((section (NOTE_SECTION),
     aligned(4))) __used = {

rtl/freebsd/errnostr.inc

@@ -15,7 +15,7 @@
 
 const
   sys_errn=93;
-  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/freebsd/freebsd.pas

@@ -79,10 +79,10 @@ Type
   
   kld_file_stat = record
     Version: cInt;            {* set to sizeof(linker_file_stat) *}
-    Name: array[0..MAXPATHLEN-1] of Char;
+    Name: array[0..MAXPATHLEN-1] of AnsiChar;
     Refs: cInt;
     ID: cInt;
-    Address: pChar;           {* load address *}
+    Address: PAnsiChar;           {* load address *}
     Size: size_t;             {* size in bytes *}
   end;
   tkld_file_stat = kld_file_stat;
@@ -92,7 +92,7 @@ Type
   
   kld_sym_lookup = record
     Version: cInt;            {* sizeof(struct kld_sym_lookup) *}
-    SymName: pChar;           {* Symbol name we are looking up *}
+    SymName: PAnsiChar;           {* Symbol name we are looking up *}
     SymValue: culong;
     SymSize: size_t;
   end;
@@ -162,11 +162,11 @@ Type
                       
   // Kernel modules support
                     
-  function kldload(FileName: pChar): cInt; extdecl;
+  function kldload(FileName: PAnsiChar): cInt; extdecl;
 
   function kldunload(fileid: cInt): cInt; extdecl;
 
-  function kldfind(FileName: pChar): cInt; extdecl;
+  function kldfind(FileName: PAnsiChar): cInt; extdecl;
 
   function kldnext(fileid: cInt): cInt; extdecl;
 
@@ -259,7 +259,7 @@ end;
 
 // kernel modules
 
-function kldload(FileName: pChar): cInt;
+function kldload(FileName: PAnsiChar): cInt;
 begin
   kldload:=do_sysCall(syscall_nr_kldload, TSysParam(FileName));
 end;
@@ -269,7 +269,7 @@ begin
   kldunload:=do_sysCall(syscall_nr_kldunload, TSysParam(fileid));
 end;
 
-function kldfind(FileName: pChar): cInt;
+function kldfind(FileName: PAnsiChar): cInt;
 begin
   kldfind:=do_sysCall(syscall_nr_kldfind, TSysParam(FileName));
 end;

rtl/freebsd/i386/si_crt.inc

@@ -34,7 +34,7 @@
 
 var
   libc_fpc_ret, libc_fpc_ret_ebx, libc_fpc_ret_ebp: ptrint; { return address to libc }
-  __progname : pchar; cvar;
+  __progname : PAnsiChar; cvar;
 
 procedure get_rtld_cleanup; external name 'get_rtld_cleanup';
 procedure atexit; external name 'atexit';
@@ -43,7 +43,7 @@ procedure libc_start_main; external name '__libc_start_main';
 
 procedure PASCALMAIN; external name 'PASCALMAIN';
 
-var progname : pchar cvar; // = '';
+var progname : PAnsiChar cvar; // = '';
     __fpucw  : word; cvar; // = 0x1332;
 
 {******************************************************************************

rtl/freebsd/i386/x86.inc

@@ -42,12 +42,12 @@ type
 
     i386_vm86_args = record
         sub_op   : longint;             { sub-operation to perform }
-        sub_args : pchar;               { args }
+        sub_args : PAnsiChar;               { args }
         end;
 
    sysarch_args     = record
                         op    : longint;
-                        parms : pchar;
+                        parms : PAnsiChar;
                        end;
 
 {

rtl/freebsd/pthread.inc

@@ -68,7 +68,7 @@ struct sem {
        sysse   : cint;
        entry   : psem_t;
        backpointer : ppsem_t;
-       spare   : array[0..SEM_SAFE] of char;
+       spare   : array[0..SEM_SAFE] of AnsiChar;
 
     end;
 
@@ -106,7 +106,7 @@ function pthread_sigmask(how: cint; nset: psigset; oset: psigset): cint; cdecl;
 function sem_init(__sem:Psem_t; __pshared:cint;__value:dword):cint;cdecl; external;
 function sem_destroy(__sem:Psem_t):cint;cdecl;external ;
 function sem_close(__sem:Psem_t):cint;cdecl;external ;
-function sem_unlink(__name:Pchar):cint;cdecl;external ;
+function sem_unlink(__name:PAnsiChar):cint;cdecl;external ;
 function sem_wait(__sem:Psem_t):cint;cdecl;external ;
 function sem_trywait(__sem:Psem_t):cint;cdecl;external ;
 function sem_post(__sem:Psem_t):cint;cdecl;external ;

rtl/freebsd/ptypes.inc

@@ -147,7 +147,7 @@ type
        sysse   : cint;
        entry   : psem_t;
        backpointer : ppsem_t;
-       spare   : array[0..SEM_SAFE] of char;
+       spare   : array[0..SEM_SAFE] of AnsiChar;
 
     end;
 
@@ -259,12 +259,12 @@ Type TStatFS =  {?} Record
     fflags         : cint; {copy of mount flags}
     fsyncwrites,
     fasyncwrites   : clong;
-    fstypename     : array[0..OMFSNamLen-1] of char;
-    mountpoint     : array[0..OMNAMLEN-1] of char;
+    fstypename     : array[0..OMFSNamLen-1] of AnsiChar;
+    mountpoint     : array[0..OMNAMLEN-1] of AnsiChar;
     fsyncreads,            { count of sync reads since mount }
     fasyncreads    : clong;
     fspares1       : cshort;
-    mnfromname     : array[0..OMNAMLEN-1] of char;
+    mnfromname     : array[0..OMNAMLEN-1] of AnsiChar;
     fspares2       : cshort;
     fspare3        : array[0..1] of clong;
   end;
@@ -273,7 +273,7 @@ Type TStatFS =  {?} Record
 
   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;

rtl/freebsd/si_intf.inc

@@ -2,8 +2,8 @@
 
 var
   initialstkptr: pointer; public name '__stkptr';
-  operatingsystem_parameter_envp: ppchar; public name 'operatingsystem_parameter_envp';
+  operatingsystem_parameter_envp: PPAnsiChar; public name 'operatingsystem_parameter_envp';
   operatingsystem_parameter_argc: ptruint; public name 'operatingsystem_parameter_argc';
-  operatingsystem_parameter_argv: ppchar; public name 'operatingsystem_parameter_argv';
-  progname: pchar = ''; cvar; public name '__progname';
+  operatingsystem_parameter_argv: PPAnsiChar; public name 'operatingsystem_parameter_argv';
+  progname: PAnsiChar = ''; cvar; public name '__progname';
 

rtl/freebsd/signal.inc

@@ -117,9 +117,9 @@ type sigset_t = array[0..3] of Longint;
        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 def x86}
 
@@ -189,7 +189,7 @@ type sigset_t = array[0..3] of Longint;
 
   pstack_t = ^stack_t;
   stack_t = record
-    ss_sp: pChar;                       {* signal stack base *}
+    ss_sp: PAnsiChar;                       {* signal stack base *}
     ss_size: size_t;                    {* signal stack length *}
     ss_flags: cInt;                     {* SS_DISABLE and/or SS_ONSTACK *}
   end;

rtl/freebsd/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/freebsd/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,
@@ -91,7 +91,7 @@ CONST
         ICRNL           =     $100;     { map CR to NL (ala CRMOD) }
         IXON            =     $200;     { enable output flow control }
         IXOFF           =     $400;     { enable input flow control }
-        IXANY           =     $800;     { any char will restart after stop }
+        IXANY           =     $800;     { any AnsiChar will restart after stop }
         IMAXBEL         =    $2000;     { ring bell on input queue full }
 
 {
@@ -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 ^(AnsiChar) }
         ISIG            =      $80;     { enable signals INTR, QUIT, [D]SUSP }
         ICANON          =     $100;     { canonicalize input lines }
         ALTWERASE       =     $200;     { use alternate WERASE algorithm }
@@ -368,7 +368,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/freebsd/unxsysc.inc

@@ -66,7 +66,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))

rtl/freebsd/x86_64/si_c.inc

@@ -2,7 +2,7 @@
 {$define CRT_IRELOC_RELA}
 
 procedure init_tls; cdecl; external name 'init_tls';
-function  cmain(nrarg:longint;pp:ppchar;env:ppchar):longint; cdecl; external name 'main';
+function  cmain(nrarg:longint;pp:PPAnsiChar;env:PPAnsiChar):longint; cdecl; external name 'main';
 
 {$ifdef gcrt}
  procedure cmcleanup; cdecl; external name '_mcleanup';
@@ -14,19 +14,19 @@ var
 {$endif}
 
 {$i ignore_init.inc}
-procedure start(ap:ppchar;cleanup:TCleanupProc);
+procedure start(ap:PPAnsiChar;cleanup:TCleanupProc);
 
 var argc: longint;
-    argv: ppchar;
-    env : ppchar;
-    s   : pchar;
+    argv: PPAnsiChar;
+    env : PPAnsiChar;
+    s   : PAnsiChar;
 begin
   argc:=pptrint(ap)^;
-  argv:=ppchar(ap[1]);
-  env:=	ppchar(ap[2+argc]);
+  argv:=PPAnsiChar(ap[1]);
+  env:=	PPAnsiChar(ap[2+argc]);
   environ:=env;
   handle_argv(argc,argv,env);
-  if assigned(pchar(@_dynamic)) then // I suspect this is a trick to find
+  if assigned(PAnsiChar(@_dynamic)) then // I suspect this is a trick to find
 				    // out runtime if we are shared
 				    // linking, so the same code can be used
 				    // for static and shared linking