* Char -> AnsiChar

rtl/bsd/bunxfunch.inc

@@ -45,17 +45,17 @@ Function GetITimer(Which : Longint;Var value : ItimerVal):Longint;
 //function FPgetpgrp : pid_t;
 //function FPsetsid : pid_t;
 //Function FPumask(cmask:mode_t):mode_t;
-//Function FPlink(existing:pchar;newone:pchar):cint;
-//Function FPmkfifo(path:pchar;mode:mode_t):cint;
-//Function FPchmod(path:pchar;mode:mode_t):cint;
-//Function FPchown(path:pchar;owner:uid_t;group:gid_t):cint;
-//Function FPUtime(path:pchar;times:putimbuf):cint;
+//Function FPlink(existing:PAnsiChar;newone:PAnsiChar):cint;
+//Function FPmkfifo(path:PAnsiChar;mode:mode_t):cint;
+//Function FPchmod(path:PAnsiChar;mode:mode_t):cint;
+//Function FPchown(path:PAnsiChar;owner:uid_t;group:gid_t):cint;
+//Function FPUtime(path:PAnsiChar;times:putimbuf):cint;
 //Function FPpipe(var fildes : tfildes):cint;
 //function FPfcntl(fildes:cint;Cmd:cint;Arg:cint):cint;
 //function FPfcntl(fildes:cint;Cmd:cint;var Arg:flock):cint;
 //function FPfcntl(fildes:cint;Cmd:cint):cint;
-//function FPexecve(path:pchar;argv:ppchar;envp:ppchar):cint;
-//function FPexecv(path:pchar;argv:ppchar):cint;
+//function FPexecve(path:PAnsiChar;argv:PPAnsiChar;envp:PPAnsiChar):cint;
+//function FPexecv(path:PAnsiChar;argv:PPAnsiChar):cint;
 function FPgetrusage(who:cint;var ru : rusage):cint;
 //function FPtimes(var buffer : tms):clock_t;
 

rtl/bsd/bunxsysc.inc

@@ -170,7 +170,7 @@ Var
         i    : longint;
         oerrno : cint;
 
-procedure Doone(pz:pchar;pzsize:cint;val1,val2:cint);
+procedure Doone(pz:PAnsiChar;pzsize:cint;val1,val2:cint);
 
 Begin
         mib[0] := val1;
@@ -203,7 +203,7 @@ Begin
         FPUname:=rval;
 end;
 
-function GetDomainName(Name:PChar; NameLen:Cint):cint; [public,alias:'FPC_SYSC_GETDOMAINNAME'];
+function GetDomainName(Name:PAnsiChar; NameLen:Cint):cint; [public,alias:'FPC_SYSC_GETDOMAINNAME'];
 
 Const Mib_GetDomainName : array[0..1] of cint=(CTL_KERN,{$ifdef OpenBSD}KERN_DOMAINNAME{$ELSE}KERN_NISDOMAINNAME{$endif});
 
@@ -217,7 +217,7 @@ begin
           GetDomainName:=0;
 end;
 
-function GetHostName(Name:PChar; NameLen:Cint):cint;[public,alias:'FPC_SYSC_GETHOSTNAME'];
+function GetHostName(Name:PAnsiChar; NameLen:Cint):cint;[public,alias:'FPC_SYSC_GETHOSTNAME'];
 
 Const Mib_GetHostName : array[0..1] of cint=(CTL_KERN,KERN_HOSTNAME);
 
@@ -328,7 +328,7 @@ begin
  FPumask:=Do_syscall(syscall_nr_umask,cmask);
 end;
 
-Function FPlink(existing:pchar;newone:pchar):cint;
+Function FPlink(existing:PAnsiChar;newone:PAnsiChar):cint;
 {
   Proceduces a hard link from new to old.
   In effect, new will be the same file as old.
@@ -337,25 +337,25 @@ begin
   FPLink:=Do_Syscall(syscall_nr_link,TSysParam(existing),TSysParam(newone));
 end;
 
-Function FPmkfifo(path:pchar;mode:mode_t):cint;
+Function FPmkfifo(path:PAnsiChar;mode:mode_t):cint;
 
 begin
   FPmkfifo:=do_syscall(syscall_nr_mkfifo,TSysParam(path),TSysParam(mode));
 end;
 
-Function FPchmod(path:pchar;mode:mode_t):cint;
+Function FPchmod(path:PAnsiChar;mode:mode_t):cint;
 
 begin
   FPchmod:=do_syscall(syscall_nr_chmod,TSysParam(path),TSysParam(mode));
 end;
 
-Function FPchown(path:pchar;owner:uid_t;group:gid_t):cint;
+Function FPchown(path:PAnsiChar;owner:uid_t;group:gid_t):cint;
 
 begin
   FPChOwn:=do_syscall(syscall_nr_chown,TSysParam(path),TSysParam(owner),TSysParam(group));
 end;
 
-Function FPUtime(path:pchar;times:putimbuf):cint;
+Function FPUtime(path:PAnsiChar;times:putimbuf):cint;
 
 var tv  : array[0..1] of timeval;
     tvp : ^timeval;
@@ -434,13 +434,13 @@ begin
  FPfcntl:=do_syscall(syscall_nr_fcntl,fildes,cmd);
 end;
 
-function FPexecve(path:pchar;argv:ppchar;envp:ppchar):cint;
+function FPexecve(path:PAnsiChar;argv:PPAnsiChar;envp:PPAnsiChar):cint;
 
 Begin
   FPexecve:=do_syscall(syscall_nr_Execve,TSysParam(path),TSysParam(argv),TSysParam(envp));
 End;
 
-function FPexecv(path:pchar;argv:ppchar):cint;
+function FPexecv(path:PAnsiChar;argv:PPAnsiChar):cint;
 
 Begin
   FPexecv:=do_syscall(syscall_nr_Execve,TSysParam(path),TSysParam(argv),TSysParam(envp));
@@ -501,7 +501,7 @@ begin
   fpPoll:=do_syscall(syscall_nr_poll,tsysparam(fds),tsysparam(nfds),tsysparam(timeout));
 end;
 
-Function fpLstat(path:pchar;Info:pstat):cint;
+Function fpLstat(path:PAnsiChar;Info:pstat):cint;
 {
   Get all information on a link (the link itself), and return it in info.
 }
@@ -586,7 +586,7 @@ begin
    end;
 end;
 
-Function fpSymlink(oldname,newname:pchar):cint;
+Function fpSymlink(oldname,newname:PAnsiChar):cint;
 {
   We need this for erase
 }
@@ -595,7 +595,7 @@ begin
  fpsymlink:=do_syscall(syscall_nr_symlink,TSysParam(oldname),TSysParam(newname));
 end;
 
-function Fppread(fd: cint; buf: pchar; nbytes : size_t; offset:Toff): ssize_t; [public, alias : 'FPC_SYSC_PREAD'];
+function Fppread(fd: cint; buf: PAnsiChar; nbytes : size_t; offset:Toff): ssize_t; [public, alias : 'FPC_SYSC_PREAD'];
 
 begin
 
@@ -614,7 +614,7 @@ begin
         {$endif}
 end;
 
-function Fppwrite(fd: cint;buf:pchar; nbytes : size_t; offset:Toff): ssize_t; [public, alias : 'FPC_SYSC_PWRITE'];
+function Fppwrite(fd: cint;buf:PAnsiChar; nbytes : size_t; offset:Toff): ssize_t; [public, alias : 'FPC_SYSC_PWRITE'];
 
 begin
  	{$ifdef CPU64}

rtl/bsd/ossysc.inc

@@ -38,7 +38,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'];
 
 Begin
  Fpopen:=do_syscall(syscall_nr_open,TSysParam(path),TSysParam(flags),TSysParam(mode));
@@ -140,39 +140,39 @@ 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'];
 
 begin
   Fpread:=do_syscall(syscall_nr_read,Fd,TSysParam(buf),nbytes);
 end;
 
-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'];
 
 begin
  Fpwrite:=do_syscall(syscall_nr_write,Fd,TSysParam(buf),nbytes);
 end;
 
-function Fpunlink(const path: pchar): cint; [public, alias : 'FPC_SYSC_UNLINK'];
+function Fpunlink(const path: PAnsiChar): cint; [public, alias : 'FPC_SYSC_UNLINK'];
 
 begin
   Fpunlink:=do_syscall(syscall_nr_unlink,TSysParam(path));
 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'];
 
 begin
   Fprename:=do_syscall(syscall_nr_rename,TSysParam(old),TSysParam(newpath));
 end;
 
 {$ifdef freebsd}
-Function fpFstatat(fd: cint; path: pchar; var sb: stat; flag: cint):cint;
+Function fpFstatat(fd: cint; path: PAnsiChar; var sb: stat; flag: cint):cint;
 
 begin
   fpFStatat:=do_syscall(syscall_nr_fstatat,fd,TSysParam(path),TSysParam(@sb),flag);
 end;
 {$endif}
 
-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'];
 
 const
  AT_FDCWD=-100;
@@ -188,19 +188,19 @@ 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'];
 
 begin
  Fpchdir:=do_syscall(syscall_nr_chdir,TSysParam(path));
 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'];
 
 begin {Mode is 16-bit on F-BSD 4!}
   Fpmkdir:=do_syscall(syscall_nr_mkdir,TSysParam(path),mode);
 end;
 
-function Fprmdir(path : pchar): cint;  [public, alias : 'FPC_SYSC_RMDIR'];
+function Fprmdir(path : PAnsiChar): cint;  [public, alias : 'FPC_SYSC_RMDIR'];
 
 begin
  Fprmdir:=do_syscall(syscall_nr_rmdir,TSysParam(path));
@@ -211,7 +211,7 @@ end;
 const DIRBLKSIZ=1024;
 
 {$ifdef freebsd}
-function FpGetdirentries(fd : cint; buf : pchar; nbytes : clong) : cint;
+function FpGetdirentries(fd : cint; buf : PAnsiChar; nbytes : clong) : cint;
 
 begin
   FpGetdirentries:=do_syscall(syscall_nr_getdirentries,fd,TSysParam(buf),nbytes,TSysParam(0));
@@ -220,7 +220,7 @@ end;
 
 function Fpfstat(fd : cint; var sb : stat): cint; forward;
 
-function Fpopendir(dirname : pchar): pdir;  [public, alias : 'FPC_SYSC_OPENDIR'];
+function Fpopendir(dirname : PAnsiChar): pdir;  [public, alias : 'FPC_SYSC_OPENDIR'];
 
 var
   fd:longint;
@@ -422,7 +422,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,
@@ -437,7 +437,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,
@@ -461,7 +461,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.
@@ -596,11 +596,11 @@ begin
   FpNanoSleep:=Do_SysCall(syscall_nr_nanosleep,TSysParam(req),TSysParam(rem));
 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'];
 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
@@ -647,7 +647,7 @@ begin
       end
 {$if defined(openbsd) or defined (netbsd)}
    { At least for openbsd, a positive return value is
-     the length of the returned pchar }
+     the length of the returned PAnsiChar }
    else if (ret<0) then
 {$else not opensd}
    else
@@ -659,7 +659,7 @@ begin
  Fpgetcwd:=pt;
 end;
 
-Function fpReadLink(name,linkname:pchar;maxlen:size_t):cint; [public, alias : 'FPC_SYSC_READLINK'];
+Function fpReadLink(name,linkname:PAnsiChar;maxlen:size_t):cint; [public, alias : 'FPC_SYSC_READLINK'];
 
 begin
   fpreadlink:=do_syscall(syscall_nr_readlink, TSysParam(name),TSysParam(linkname),maxlen);

rtl/bsd/ostypes.inc

@@ -52,11 +52,11 @@ CONST                           // OS specific parameters for general<fd,sig>set
 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;
@@ -227,7 +227,7 @@ TYPE
         d_reclen      : cuint16;                        // length of this record
         d_namlen      : cuint16;                        // length of string in d_name
         d_type        : cuint8;                         // file type, see below
-        d_name        : array[0..PATH_MAX-1] of char;        // name must be no longer than this
+        d_name        : array[0..PATH_MAX-1] of AnsiChar;        // name must be no longer than this
    end;
    {$packrecords c}
 {$elseif defined(dragonfly)}
@@ -237,7 +237,7 @@ TYPE
         d_type        : cuint8;                         // file type, see below
         d_unused1     : cuint8;                         // padding, reserved
         d_unused2     : cuint32;                        // reserved
-        d_name        : array[0..255] of char;          // name, null terminated
+        d_name        : array[0..255] of AnsiChar;          // name, null terminated
    end;
 {$elseif defined(openbsd)}
    dirent  = record
@@ -247,7 +247,7 @@ TYPE
         d_type        : cuint8;                         // file type, see below
         d_namlen      : cuint8;                         // length of string in d_name
         d_padding     : array[0..3] of cuint8;
-        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;
 {$elseif defined(freebsd)}
    dirent  = record
@@ -258,7 +258,7 @@ TYPE
 	d_pad0        : cuint8;
         d_namlen      : cuint16;                        // length of string in d_name
 	d_pad1        : cuint16;
-        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;
 {$else}
    dirent  = record
@@ -266,7 +266,7 @@ TYPE
         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;
 {$endif}
    TDirent = dirent;
@@ -276,7 +276,7 @@ TYPE
         dd_fd     : cint;         // file descriptor associated with directory
         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 openbsd}
         dd_curpos : off_t;

rtl/bsd/sysctl.pp

@@ -82,20 +82,20 @@ TYPE    CtlNameRec = Record
 
 {$ifdef FPC_USE_LIBC}
 {$if defined(VER3_0_0) or defined(VER3_0_2)}
-function FPsysctl (Name: pchar; namelen:cuint; oldp:pointer;oldlenp:psize_t; newp:pointer;newlen:size_t):cint; cdecl; external name 'sysctl';
+function FPsysctl (Name: PAnsiChar; namelen:cuint; oldp:pointer;oldlenp:psize_t; newp:pointer;newlen:size_t):cint; cdecl; external name 'sysctl';
 {$else}
 function FPsysctl (Name: pcint; namelen:cuint; oldp:pointer;oldlenp:psize_t; newp:pointer;newlen:size_t):cint; cdecl; external name 'sysctl';
 {$endif}
-function FPsysctlbyname (Name: pchar; oldp:pointer;oldlenp:psize_t; newp:pointer;newlen:size_t):cint; cdecl; external name 'sysctlbyname';
-function FPsysctlnametomib (Name: pchar;mibp:pcint;sizep:psize_t):cint; cdecl; external name 'sysctlnametomib';
+function FPsysctlbyname (Name: PAnsiChar; oldp:pointer;oldlenp:psize_t; newp:pointer;newlen:size_t):cint; cdecl; external name 'sysctlbyname';
+function FPsysctlnametomib (Name: PAnsiChar;mibp:pcint;sizep:psize_t):cint; cdecl; external name 'sysctlnametomib';
 {$else}
 {$if defined(VER3_0_0) or defined(VER3_0_2)}
-function FPsysctl (Name: pchar; namelen:cuint; oldp:pointer;oldlenp:psize_t; newp:pointer;newlen:size_t):cint;
+function FPsysctl (Name: PAnsiChar; namelen:cuint; oldp:pointer;oldlenp:psize_t; newp:pointer;newlen:size_t):cint;
 {$else}
 function FPsysctl (Name: pcint; namelen:cuint; oldp:pointer;oldlenp:psize_t; newp:pointer;newlen:size_t):cint;
 {$endif}
-function FPsysctlbyname (Name: pchar; oldp:pointer;oldlenp:psize_t; newp:pointer;newlen:size_t):cint;
-function FPsysctlnametomib (Name: pchar; mibp:pcint;sizep:psize_t):cint;
+function FPsysctlbyname (Name: PAnsiChar; oldp:pointer;oldlenp:psize_t; newp:pointer;newlen:size_t):cint;
+function FPsysctlnametomib (Name: PAnsiChar; mibp:pcint;sizep:psize_t):cint;
 {$endif}
 
 Implementation
@@ -110,7 +110,7 @@ CONST  syscall_nr___sysctl                    = 202;
 {$endif}
 
 {$if defined(VER3_0_0) or defined(VER3_0_2)}
-function FPsysctl (Name: pchar; namelen:cuint; oldp:pointer;oldlenp:psize_t; newp:pointer;newlen:size_t):cint;
+function FPsysctl (Name: PAnsiChar; namelen:cuint; oldp:pointer;oldlenp:psize_t; newp:pointer;newlen:size_t):cint;
 {$else}
 function FPsysctl (Name: pcint; namelen:cuint; oldp:pointer;oldlenp:psize_t; newp:pointer;newlen:size_t):cint;
 {$endif}
@@ -127,7 +127,7 @@ Begin
          Exit(0);
 End;
 
-function FPsysctlbyname (Name: pchar; oldp:pointer;oldlenp:psize_t; newp:pointer;newlen:size_t):cint;
+function FPsysctlbyname (Name: PAnsiChar; oldp:pointer;oldlenp:psize_t; newp:pointer;newlen:size_t):cint;
 Var
         name2oid_oid    : array[0..1] of cint;
         real_oid        : array[0..CTL_MAXNAME+1] of cint;
@@ -147,7 +147,7 @@ Begin
         exit(error);
 End;
 
-function FPsysctlnametomib (Name: pchar; mibp:pcint;sizep:psize_t):cint;
+function FPsysctlnametomib (Name: PAnsiChar; mibp:pcint;sizep:psize_t):cint;
 Var     oid   : array[0..1] OF cint;
         error : cint;
 

rtl/bsd/sysosh.inc

@@ -31,8 +31,8 @@ type
 {$define HAS_ENTRYINFORMATION_OS}
   TEntryInformationOS = record
     argc: longint;
-    argv: ppchar;
-    envp: ppchar;
+    argv: PPAnsiChar;
+    envp: PPAnsiChar;
     stklen: sizeuint;
   end;
 {$endif}

rtl/bsd/system.pp

@@ -38,8 +38,8 @@ Interface
 
 {$ifdef Darwin}
 var argc:longint;
-    argv:PPchar;
-    envp:PPchar;
+    argv:PPAnsiChar;
+    envp:PPAnsiChar;
 {$endif}
 
 CONST SIGSTKSZ = 40960;
@@ -132,7 +132,7 @@ Begin
 End;
 
 
-function BackPos(c:char; const s: shortstring): integer;
+function BackPos(c:AnsiChar; const s: shortstring): integer;
 var
  i: integer;
 Begin
@@ -250,7 +250,7 @@ var
   len,j,
   size,i : longint;
   found  : boolean;
-  buf    : pchar;
+  buf    : PAnsiChar;
 
   procedure AddBuf;
   begin
@@ -330,7 +330,7 @@ end;
 
 procedure pascalmain;external name '_PASCALMAIN';
 
-procedure FPC_SYSTEMMAIN(argcparam: Longint; argvparam: ppchar; envpparam: ppchar); cdecl; [public];
+procedure FPC_SYSTEMMAIN(argcparam: Longint; argvparam: PPAnsiChar; envpparam: PPAnsiChar); cdecl; [public];
 
 begin
   argc:= argcparam;

rtl/bsd/unxsysch.inc

@@ -15,7 +15,7 @@
 function fpgettimeofday(tp: ptimeval;tzp:ptimezone):cint; external name 'FPC_SYSC_GETTIMEOFDAY';
 
 function  fpfStatFS (Fd: cint; Info:pstatfs):cint;
-function  fpStatFS  (Path:pchar; Info:pstatfs):cint;
+function  fpStatFS  (Path:PAnsiChar; Info:pstatfs):cint;
 function  fpfsync (fd : cint) : cint;
 Function  fpFlock   (fd,mode : cint)   : cint ;