* Char -> AnsiChar

rtl/beos/errnostr.inc

@@ -16,7 +16,7 @@
 const
   // TODO : check against BeOS real values...
   sys_errn=125;
-  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/beos/ossysc.inc

@@ -33,29 +33,29 @@ const netlib = 'net';
      Errno : cint; external name 'errno';
 
     function Fptime(tloc:ptime_t): time_t; cdecl; external name 'time';
-    function Fpopen(const path: pchar; flags : cint; mode: mode_t):cint; cdecl; external name 'open';
+    function Fpopen(const path: PAnsiChar; flags : cint; mode: mode_t):cint; cdecl; external name 'open';
     function Fpclose(fd : cint): cint; cdecl; external name 'close';
     function Fplseek(fd : cint; offset : off_t; whence : cint): off_t; cdecl; external name 'lseek';
-    function Fpread(fd: cint; buf: pchar; nbytes : size_t): ssize_t; cdecl; external name 'read';
-    function Fpwrite(fd: cint;const buf:pchar; nbytes : size_t): ssize_t; cdecl; external name 'write';
-    function Fpunlink(const path: pchar): cint; cdecl; external name 'unlink';
-    function Fprename(const old : pchar; const newpath: pchar): cint; cdecl;external name 'rename';
-    function Fpstat(const path: pchar; var buf : stat): cint; cdecl; external name 'stat';
-    function Fpchdir(const path : pchar): cint; cdecl; external name 'chdir';
-    function Fpmkdir(const path : pchar; mode: mode_t):cint; cdecl; external name 'mkdir';
-    function Fprmdir(const path : pchar): cint; cdecl; external name 'rmdir';
-    function Fpopendir(const dirname : pchar): pdir; cdecl; external name 'opendir';
+    function Fpread(fd: cint; buf: PAnsiChar; nbytes : size_t): ssize_t; cdecl; external name 'read';
+    function Fpwrite(fd: cint;const buf:PAnsiChar; nbytes : size_t): ssize_t; cdecl; external name 'write';
+    function Fpunlink(const path: PAnsiChar): cint; cdecl; external name 'unlink';
+    function Fprename(const old : PAnsiChar; const newpath: PAnsiChar): cint; cdecl;external name 'rename';
+    function Fpstat(const path: PAnsiChar; var buf : stat): cint; cdecl; external name 'stat';
+    function Fpchdir(const path : PAnsiChar): cint; cdecl; external name 'chdir';
+    function Fpmkdir(const path : PAnsiChar; mode: mode_t):cint; cdecl; external name 'mkdir';
+    function Fprmdir(const path : PAnsiChar): cint; cdecl; external name 'rmdir';
+    function Fpopendir(const dirname : PAnsiChar): pdir; cdecl; external name 'opendir';
     function Fpreaddir(var dirp : dir) : pdirent;cdecl; external name 'readdir';
     function Fpclosedir(var dirp : dir): cint; cdecl; external name 'closedir';
     procedure Fpexit(status : cint); cdecl; external name '_exit';
     function Fpsigaction(sig: cint; var act : sigactionrec; var oact : sigactionrec): cint; cdecl; external name 'sigaction';
     function Fpftruncate(fd : cint; flength : off_t): cint; cdecl; external name 'ftruncate';
-    function Fprename(const old : pchar; const newpath: pchar): cint; cdecl;external name 'rename';
+    function Fprename(const old : PAnsiChar; const newpath: PAnsiChar): cint; cdecl;external name 'rename';
     function Fpfstat(fd : cint; var sb : stat): cint; cdecl; external name 'fstat';
     function Fpfork : pid_t; cdecl; external name 'fork';
-    function Fpexecve(const path : pchar; const argv : ppchar; const envp: ppchar): cint; cdecl; external name 'execve';
+    function Fpexecve(const path : PAnsiChar; const argv : PPAnsiChar; const envp: PPAnsiChar): cint; cdecl; external name 'execve';
     function Fpwaitpid(pid : pid_t; tat_loc : pcint; options: cint): pid_t; cdecl; external name 'waitpid';
-    function Fpaccess(const pathname : pchar; amode : cint): cint; cdecl; external name 'access';
+    function Fpaccess(const pathname : PAnsiChar; amode : cint): cint; cdecl; external name 'access';
 
     function Fpuname(var name: utsname): cint; cdecl; external name 'uname';
 
@@ -109,7 +109,7 @@ End;
                --- File:File handling related calls ---
 *****************************************************************************}
 
-function Fpopen(path: pchar; flags : cint; mode: mode_t):cint; [public, alias : 'FPC_SYSC_OPEN'];
+function Fpopen(path: PAnsiChar; flags : cint; mode: mode_t):cint; [public, alias : 'FPC_SYSC_OPEN'];
 var
   args: SysCallArgs;
 begin
@@ -227,7 +227,7 @@ const
 type
   area_id   = Longint;
   
-function create_area(name : pchar; var addr : longint;
+function create_area(name : PAnsiChar; var addr : longint;
   addr_typ : longint; size : longint; lock_type: longint; protection : longint): area_id;
 var
  args : SysCallArgs;
@@ -276,7 +276,7 @@ end;
 {$endif}
 
 
-function Fpread(fd: cint; buf: pchar; nbytes : size_t): ssize_t; [public, alias : 'FPC_SYSC_READ'];
+function Fpread(fd: cint; buf: PAnsiChar; nbytes : size_t): ssize_t; [public, alias : 'FPC_SYSC_READ'];
 var
   args : SysCallArgs;
   funcresult: ssize_t;
@@ -302,9 +302,9 @@ begin
 }
 end;
 
-//function Fpmywrite(fd: cint;const buf:pchar; nbytes : size_t): ssize_t; cdecl; external name 'write';
+//function Fpmywrite(fd: cint;const buf:PAnsiChar; nbytes : size_t): ssize_t; cdecl; external name 'write';
 
-function Fpwrite(fd: cint;buf:pchar; nbytes : size_t): ssize_t; [public, alias : 'FPC_SYSC_WRITE'];
+function Fpwrite(fd: cint;buf:PAnsiChar; nbytes : size_t): ssize_t; [public, alias : 'FPC_SYSC_WRITE'];
 var
   args : SysCallArgs;
   funcresult : ssize_t;
@@ -336,7 +336,7 @@ begin
 }
 end;
 
-function Fpunlink(const path: pchar): cint; [public, alias : 'FPC_SYSC_UNLINK'];
+function Fpunlink(const path: PAnsiChar): cint; [public, alias : 'FPC_SYSC_UNLINK'];
 var
   args :SysCallArgs;
 begin
@@ -348,7 +348,7 @@ begin
 }
 end;
 
-function Fprename(old : pchar; newpath: pchar): cint; [public, alias : 'FPC_SYSC_RENAME'];
+function Fprename(old : PAnsiChar; newpath: PAnsiChar): cint; [public, alias : 'FPC_SYSC_RENAME'];
 var
   args: SysCallArgs;
 begin
@@ -362,7 +362,7 @@ begin
 }
 end;
 
-function Fpstat(const path: pchar; var buf : stat):cint; [public, alias : 'FPC_SYSC_STAT'];
+function Fpstat(const path: PAnsiChar; var buf : stat):cint; [public, alias : 'FPC_SYSC_STAT'];
 var
   args : SysCallArgs;
 begin
@@ -381,7 +381,7 @@ end;
                --- Directory:Directory related calls ---
 *****************************************************************************}
 
-function Fpchdir(path : pchar): cint; [public, alias : 'FPC_SYSC_CHDIR'];
+function Fpchdir(path : PAnsiChar): cint; [public, alias : 'FPC_SYSC_CHDIR'];
 var
   args: SysCallArgs;
 begin
@@ -393,7 +393,7 @@ begin
 }
 end;
 
-function Fpmkdir(path : pchar; mode: mode_t):cint; [public, alias : 'FPC_SYSC_MKDIR'];
+function Fpmkdir(path : PAnsiChar; mode: mode_t):cint; [public, alias : 'FPC_SYSC_MKDIR'];
 var
   args :SysCallArgs;
 begin
@@ -406,7 +406,7 @@ begin
 *)
 end;
 
-function Fprmdir(path : pchar): cint;  [public, alias : 'FPC_SYSC_RMDIR'];
+function Fprmdir(path : PAnsiChar): cint;  [public, alias : 'FPC_SYSC_RMDIR'];
 var
   args: SysCallArgs;
 begin
@@ -423,7 +423,7 @@ end;
 const DIRBLKSIZ=1024;
 
 
-function Fpopendir(dirname : pchar): pdir;  [public, alias : 'FPC_SYSC_OPENDIR'];
+function Fpopendir(dirname : PAnsiChar): pdir;  [public, alias : 'FPC_SYSC_OPENDIR'];
 var
   args : SysCallArgs;
   dirp: pdir;
@@ -678,7 +678,7 @@ Begin
 End;
 
 {
-function Fpexecve(const path : pathstr; const argv : ppchar; const envp: ppchar): cint;
+function Fpexecve(const path : pathstr; const argv : PPAnsiChar; const envp: PPAnsiChar): cint;
 }
 {
   Replaces the current program by the program specified in path,
@@ -693,7 +693,7 @@ Begin
 End;
 }
 {
-function Fpexecve(const path : pchar; const argv : ppchar; const envp: ppchar): cint;  [public, alias : 'FPC_SYSC_EXECVE'];
+function Fpexecve(const path : PAnsiChar; const argv : PPAnsiChar; const envp: PPAnsiChar): cint;  [public, alias : 'FPC_SYSC_EXECVE'];
 }
 {
   Replaces the current program by the program specified in path,
@@ -719,7 +719,7 @@ begin // actually a wait4() call with 4th arg 0.
 // FpWaitPID:=do_syscall(syscall_nr_WaitPID,PID,TSysParam(Stat_loc),options,0);
 end;
 
-function Fpaccess(const pathname : pchar; amode : cint): cint; [public, alias : 'FPC_SYSC_ACCESS'];
+function Fpaccess(const pathname : PAnsiChar; amode : cint): cint; [public, alias : 'FPC_SYSC_ACCESS'];
 {
   Test users access rights on the specified file.
   Mode is a mask xosisting of one or more of R_OK, W_OK, X_OK, F_OK.
@@ -855,12 +855,12 @@ begin
 {$endif not darwin}
 end;
 
-function Fpgetcwd(pt:pchar; _size:size_t):pchar;[public, alias :'FPC_SYSC_GETCWD'];
+function Fpgetcwd(pt:PAnsiChar; _size:size_t):PAnsiChar;[public, alias :'FPC_SYSC_GETCWD'];
 {$ifndef darwin}
 const intpathmax = 1024-4;      // didn't use POSIX data in libc
                                 // implementation.
-var ept,bpt : pchar;
-    c       : char;
+var ept,bpt : PAnsiChar;
+    c       : AnsiChar;
     ret     : cint;
 
 begin
@@ -995,7 +995,7 @@ end;
        get_next_image_info := SysCall(syscall_nr_get_next_image_info, args);
    end;       
 
-    function load_image(argc : longint; argv : ppchar; envp : ppchar): thread_id;
+    function load_image(argc : longint; argv : PPAnsiChar; envp : PPAnsiChar): thread_id;
      var
       args: SysCallArgs;
       i: longint;
@@ -1016,7 +1016,7 @@ end;
        get_system_info := i;
      end;
 
-    function dev_for_path(const pathname : pchar): dev_t;
+    function dev_for_path(const pathname : PAnsiChar): dev_t;
      var
       args: SysCallArgs;
       buffer: array[1..15] of longint;

rtl/beos/ostypes.inc

@@ -85,11 +85,11 @@ CONST                		// OS specific parameters for general<fd,sig>set behaviou
 TYPE
    { system information services }
    utsname = record
-              sysname : Array[0..SYS_NMLN-1] OF Char;   // Name of this OS
-              nodename: Array[0..SYS_NMLN-1] OF Char;   // Name of this network node.
-              release : Array[0..SYS_NMLN-1] OF Char;   // Release level.
-              version : Array[0..SYS_NMLN-1] OF Char;   // Version level.
-              machine : Array[0..SYS_NMLN-1] OF Char;   // Hardware type.
+              sysname : Array[0..SYS_NMLN-1] OF AnsiChar;   // Name of this OS
+              nodename: Array[0..SYS_NMLN-1] OF AnsiChar;   // Name of this network node.
+              release : Array[0..SYS_NMLN-1] OF AnsiChar;   // Release level.
+              version : Array[0..SYS_NMLN-1] OF AnsiChar;   // Version level.
+              machine : Array[0..SYS_NMLN-1] OF AnsiChar;   // Hardware type.
              end;
   TUtsName= utsname;
   pUtsName= ^utsname;
@@ -152,7 +152,7 @@ TYPE
         d_ino:int64;
         d_pino:int64;
         d_reclen:word;
-        d_name:array[0..255] of char;
+        d_name:array[0..255] of AnsiChar;
    end;
 (*   dirent  = record
      d_dev : dev_t;
@@ -160,12 +160,12 @@ TYPE
      d_ino : ino_t;
      d_pino : ino_t;
      d_reclen : word;
-     d_name : Char;
+     d_name : AnsiChar;
 //        d_fileno      : cuint32;                        // file number of entry
 //        d_reclen      : cuint16;                        // length of this record
 //        d_type        : cuint8;                         // file type, see below
 //        d_namlen      : cuint8;                         // length of string in d_name
-//        d_name        : array[0..(255 + 1)-1] of char;  // name must be no longer than this
+//        d_name        : array[0..(255 + 1)-1] of AnsiChar;  // name must be no longer than this
    end;*)
    TDirent = dirent;
    pDirent = ^dirent;
@@ -175,7 +175,7 @@ TYPE
         ent : dirent;
 //        dd_loc    : clong;        // offset in current buffer
 //        dd_size   : clong;        // amount of data returned by getdirentries
-//        dd_buf    : pchar;        // data buffer
+//        dd_buf    : PAnsiChar;        // data buffer
 //        dd_len    : cint;         // size of data buffer
 {$ifdef netbsdpowerpc}
 //	dd_pad1   : cint;
@@ -342,7 +342,7 @@ type
      term_routine: pointer;
      device: dev_t;
      node: ino_t;
-     name: array[0..1024{MAXPATHLEN}-1] of char;
+     name: array[0..1024{MAXPATHLEN}-1] of AnsiChar;
 {     name: string[255];
      name2: string[255];
      name3: string[255];

rtl/beos/pthread.inc

@@ -74,7 +74,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/beos/signal.inc

@@ -257,9 +257,9 @@ type
        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;
        
   SignalHandler   = Procedure(Sig : Longint);cdecl;

rtl/beos/system.pp

@@ -21,7 +21,7 @@ var
   heap_handle : longint;
 implementation
 
-procedure debugger(s : PChar); cdecl; external 'root' name 'debugger';
+procedure debugger(s : PAnsiChar); cdecl; external 'root' name 'debugger';
 
 function disable_debugger(state : integer): integer; external 'root' name 'disable_debugger';
 //begin

rtl/beos/termios.inc

@@ -51,11 +51,11 @@ Type
   TWinSize=winsize;
 
 // typedef unsigned long tcflag_t;
-// typedef unsigned char speed_t;
-// typedef unsigned char cc_t;
+// typedef unsigned AnsiChar speed_t;
+// typedef unsigned AnsiChar cc_t;
  tcflag_t = Cardinal;
  speed_t = byte;
- cc_t = char;
+ cc_t = AnsiChar;
 
 type
   Termios = packed record
@@ -63,7 +63,7 @@ type
     c_oflag,
     c_cflag,
     c_lflag  : tcflag_t;
-    c_line   : char;
+    c_line   : AnsiChar;
     c_ixxxxx : speed_t;
     c_oxxxxx : speed_t;
     c_cc     : array[0..NCCS-1] of speed_t;
@@ -93,7 +93,7 @@ CONST
         IUCLC			=	  $200;		{ maps all upper case to lower }
         IXON            =     $400;     { enable output flow control }
         IXANY           =     $800;     { enable input flow control }
-        IXOFF           =    $1000;	    { any char will restart after stop }
+        IXOFF           =    $1000;	    { any AnsiChar will restart after stop }
 
 {
  * Output flags - software output processing
@@ -411,7 +411,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 =(
         Chr(VINTR), Chr(VQUIT), Chr(VERASE), Chr(VKILL), Chr(VEOF), Chr(VEOL),
         Chr(VEOL2), Chr(VSWTCH), Chr(VSTART), Chr(VSTOP), Chr(VSUSP));
 

rtl/beos/tthread.inc

@@ -404,7 +404,7 @@ end;
 function ThreadFunc(parameter: Pointer): LongInt; // cdecl;
 var
   LThread: TThread;
-  c: char;
+  c: AnsiChar;
 begin
   WRITE_DEBUG('ThreadFunc is here...');
   LThread := TThread(parameter);

rtl/beos/unxfunc.inc

@@ -65,7 +65,7 @@ begin
  AssignPipe:=ret;
 end;
 
-(*function intGetDomainName(Name:PChar; NameLen:Cint):cint;
+(*function intGetDomainName(Name:PAnsiChar; NameLen:Cint):cint;
 {$ifndef FPC_USE_LIBC}
  external name 'FPC_SYSC_GETDOMAINNAME';
 {$else FPC_USE_LIBC}