* Char -> AnsiChar

rtl/amiga/doslibd.inc

@@ -73,18 +73,18 @@ type
   TFileInfoBlock = record
     fib_DiskKey     : LongInt;
     fib_DirEntryType: LongInt;
-    fib_FileName    : Array[0..107] Of Char;
+    fib_FileName    : Array[0..107] Of AnsiChar;
     fib_Protection  : LongInt;
     fib_EntryType   : LongInt;
     fib_Size        : LongInt;
     fib_NumBlocks   : LongInt;
     fib_Date        : TDateStamp;
-    fib_Comment     : Array[0..79] Of Char;
+    fib_Comment     : Array[0..79] Of AnsiChar;
 
     fib_OwnerUID    : Word;
     fib_OwnerGID    : Word;
 
-    fib_Reserved    : Array[0..31] Of Char;
+    fib_Reserved    : Array[0..31] Of AnsiChar;
   end;
 
 const
@@ -327,7 +327,7 @@ type
     pr_Flags         : LongInt;
     pr_ExitCode      : Pointer;  { Procedure }
     pr_ExitData      : LongInt;
-    pr_Arguments     : PChar;
+    pr_Arguments     : PAnsiChar;
     pr_LocalVars     : TMinList;
     pr_ShellPrivate  : DWord;
     pr_CES           : DWord;    { BPTR }
@@ -653,7 +653,7 @@ type
          end;
        );
     2: ( dol_assign : record
-           dol_AssignName: PChar;
+           dol_AssignName: PAnsiChar;
            dol_List      : PAssignList;
          end;
        );
@@ -765,7 +765,7 @@ type
     an_Lock  : DWord;   { BPTR }
     an_Info  : TFileInfoBlock;
     an_Flags : ShortInt;
-    an_String: Array[0..0] Of Char;
+    an_String: Array[0..0] Of AnsiChar;
     { * an_String continues * }
   end;
 
@@ -784,7 +784,7 @@ type
           ap_Reserved  : ShortInt;
           ap_Strlen    : SmallInt;
           ap_Info      : TFileInfoBlock;
-          ap_Buf       : Array[0..0] of Char;
+          ap_Buf       : Array[0..0] of AnsiChar;
           { * an_Buf continues * }
         );
   end;
@@ -967,14 +967,14 @@ type
   PExAllData = ^TExAllData;
   TExAllData = record
     ed_Next    : PExAllData;
-    ed_Name    : PChar;
+    ed_Name    : PAnsiChar;
     ed_Type    : LongInt;
     ed_Size    : Cardinal;
     ed_Prot    : Cardinal;
     ed_Days    : Cardinal;
     ed_Mins    : Cardinal;
     ed_Ticks   : Cardinal;
-    ed_Comment : PChar;
+    ed_Comment : PAnsiChar;
     ed_OwnerUID: Word;
     ed_OwnerGID: Word;
   end;
@@ -984,7 +984,7 @@ type
   TexAllControl = record
     eac_Entries    : Cardinal;
     eac_LastKey    : Cardinal;
-    eac_MatchString: PChar;
+    eac_MatchString: PAnsiChar;
     eac_MatchFunc  : PHook;
 
   end;
@@ -1126,7 +1126,7 @@ type
   TLocalVar = record
     lv_Node : TNode;
     lv_Flags: Word;
-    lv_Value: PChar;
+    lv_Value: PAnsiChar;
     lv_Len  : Cardinal;
   end;
 
@@ -1164,7 +1164,7 @@ const
 type
   PCSource = ^TCSource;
   TCSource = record
-    CS_Buffer: PChar;
+    CS_Buffer: PAnsiChar;
     CS_Length: LongInt;
     CS_CurChr: LongInt;
   end;
@@ -1174,9 +1174,9 @@ type
   TRDArgs = record
     RDA_Source : TCSource;
     RDA_DAList : LongInt;
-    RDA_Buffer : PChar;
+    RDA_Buffer : PAnsiChar;
     RDA_BufSiz : LongInt;
-    RDA_ExtHelp: PChar;
+    RDA_ExtHelp: PAnsiChar;
     RDA_Flags  : LongInt;
   end;
 
@@ -1292,8 +1292,8 @@ const
 type
   PNotifyRequest = ^TNotifyRequest;
   TNotifyRequest = record
-    nr_Name    : PChar;
-    nr_FullName: PChar;
+    nr_Name    : PAnsiChar;
+    nr_FullName: PAnsiChar;
     nr_UserData: Cardinal;
     nr_Flags   : Cardinal;
     nr_stuff : record
@@ -1373,7 +1373,7 @@ type
   PSegNode = ^TSegNode;
   TSegNode = record
     seg_Node : TMinNode;
-    seg_Name : PChar;
+    seg_Name : PAnsiChar;
     seg_Array: Array[0..0] Of TSegArray;
   end;
 

rtl/amiga/m68k/doslibf.inc

@@ -16,7 +16,7 @@
 
 { dos.library functions }
 
-function Open(fname     : PChar   location 'd1';
+function Open(fname     : PAnsiChar   location 'd1';
               accessMode: LongInt location 'd2'): LongInt;
 SysCall AOS_DOSBase 30;
 
@@ -44,14 +44,14 @@ function dosSeek(fileh   : LongInt location 'd1';
                  posmode : LongInt location 'd3'): LongInt;
 SysCall AOS_DOSBase 66;
 
-function dosDeleteFile(fname: PChar location 'd1'): LongBool;
+function dosDeleteFile(fname: PAnsiChar location 'd1'): LongBool;
 SysCall AOS_DOSBase 72;
 
-function dosRename(oldName: PChar location 'd1';
-                   newName: PChar location 'd2'): LongInt;
+function dosRename(oldName: PAnsiChar location 'd1';
+                   newName: PAnsiChar location 'd2'): LongInt;
 SysCall AOS_DOSBase 78;
 
-function Lock(lname     : PChar   location 'd1';
+function Lock(lname     : PAnsiChar   location 'd1';
               accessMode: LongInt location 'd2'): LongInt;
 SysCall AOS_DOSBase 84;
 
@@ -73,7 +73,7 @@ function Info(lock          : LongInt   location 'd1';
               parameterBlock: PInfoData location 'd2'): LongInt;
 SysCall AOS_DOSBase 114;
 
-function dosCreateDir(dname: PChar location 'd1'): LongInt;
+function dosCreateDir(dname: PAnsiChar location 'd1'): LongInt;
 SysCall AOS_DOSBase 120;
 
 function CurrentDir(lock: LongInt location 'd1'): LongInt;
@@ -82,7 +82,7 @@ SysCall AOS_DOSBase 126;
 function IoErr: LongInt;
 SysCall AOS_DOSBase 132;
 
-function CreateProc(name     : PChar   location 'd1';
+function CreateProc(name     : PAnsiChar   location 'd1';
                     pri      : LongInt location 'd2';
                     segList  : LongInt location 'd3';
                     stackSize: LongInt location 'd4'): PMsgPort;
@@ -91,20 +91,20 @@ SysCall AOS_DOSBase 138;
 procedure dosExit(returnCode: LongInt location 'd1');
 SysCall AOS_DOSBase 144;
 
-function LoadSeg(name: PChar location 'd1'): LongInt;
+function LoadSeg(name: PAnsiChar location 'd1'): LongInt;
 SysCall AOS_DOSBase 150;
 
 procedure UnLoadSeg(seglist: LongInt location 'd1');
 SysCall AOS_DOSBase 156;
 
-function DeviceProc(name: PChar location 'd1'): PMsgPort;
+function DeviceProc(name: PAnsiChar location 'd1'): PMsgPort;
 SysCall AOS_DOSBase 174;
 
-function SetComment(name   : PChar location 'd1';
-                    comment: PChar location 'd2'): LongBool;
+function SetComment(name   : PAnsiChar location 'd1';
+                    comment: PAnsiChar location 'd2'): LongBool;
 SysCall AOS_DOSBase 180;
 
-function SetProtection(name: PChar   location 'd1';
+function SetProtection(name: PAnsiChar   location 'd1';
                        mask: LongInt location 'd2'): LongInt;
 SysCall AOS_DOSBase 186;
 
@@ -124,7 +124,7 @@ SysCall AOS_DOSBase 210;
 function IsInteractive(file1: LongInt location 'd1'): LongBool;
 SysCall AOS_DOSBase 216;
 
-function Execute(string1: PChar   location 'd1';
+function Execute(string1: PAnsiChar   location 'd1';
                  file1  : LongInt location 'd2';
                  file2  : LongInt location 'd3'): LongBool;
 SysCall AOS_DOSBase 222;
@@ -250,21 +250,21 @@ function FWrite(fh      : LongInt  location 'd1';
 SysCall AOS_DOSBase 330;
 
 function FGets(fh    : LongInt  location 'd1';
-               buf   : PChar    location 'd2';
-               buflen: Cardinal location 'd3'): PChar;
+               buf   : PAnsiChar    location 'd2';
+               buflen: Cardinal location 'd3'): PAnsiChar;
 SysCall AOS_DOSBase 336;
 
 function FPuts(fh : LongInt location 'd1';
-               str: PChar   location 'd2'): LongInt;
+               str: PAnsiChar   location 'd2'): LongInt;
 SysCall AOS_DOSBase 342;
 
 procedure VFWritef(fh      : LongInt location 'd1';
-                   format  : PChar   location 'd2';
+                   format  : PAnsiChar   location 'd2';
                    argarray: Pointer location 'd3');
 SysCall AOS_DOSBase 348;
 
 function VFPrintf(fh      : LongInt location 'd1';
-                  format  : PChar   location 'd2';
+                  format  : PAnsiChar   location 'd2';
                   argarray: Pointer location 'd3'): LongInt;
 SysCall AOS_DOSBase 354;
 
@@ -272,7 +272,7 @@ function dosFlush(fh: LongInt location 'd1'): LongInt;
 SysCall AOS_DOSBase 360;
 
 function SetVBuf(fh   : LongInt location 'd1';
-                 buff : PChar   location 'd2';
+                 buff : PAnsiChar   location 'd2';
                  type1: LongInt location 'd3';
                  size : LongInt location 'd4'): LongInt;
 SysCall AOS_DOSBase 366;
@@ -290,23 +290,23 @@ function ExamineFH(fh : BPTR           location 'd1';
                    fib: PFileInfoBlock location 'd2'): LongBool;
 SysCall AOS_DOSBase 390;
 
-function SetFileDate(name: PChar      location 'd1';
+function SetFileDate(name: PAnsiChar      location 'd1';
                      date: PDateStamp location 'd2'): LongBool;
 SysCall AOS_DOSBase 396;
 
 function NameFromLock(lock  : LongInt location 'd1';
-                      buffer: PChar   location 'd2';
+                      buffer: PAnsiChar   location 'd2';
                       len   : LongInt location 'd3'): LongBool;
 SysCall AOS_DOSBase 402;
 
 function NameFromFH(fh    : BPTR    location 'd1';
-                    buffer: PChar   location 'd2';
+                    buffer: PAnsiChar   location 'd2';
                     len   : LongInt location 'd3'): LongBool;
 SysCall AOS_DOSBase 408;
 
-function SplitName(name     : PChar    location 'd1';
+function SplitName(name     : PAnsiChar    location 'd1';
                    separator: Cardinal location 'd2';
-                   buf      : PChar    location 'd3';
+                   buf      : PAnsiChar    location 'd3';
                    oldpos   : LongInt  location 'd4';
                    size     : LongInt  location 'd5'): SmallInt;
 SysCall AOS_DOSBase 414;
@@ -328,12 +328,12 @@ SysCall AOS_DOSBase 432;
 
 function ReadLink(port  : PMsgPort location 'd1';
                   lock  : LongInt  location 'd2';
-                  path  : PChar    location 'd3';
-                  buffer: PChar    location 'd4';
+                  path  : PAnsiChar    location 'd3';
+                  buffer: PAnsiChar    location 'd4';
                   size  : Cardinal location 'd5'): LongBool;
 SysCall AOS_DOSBase 438;
 
-function MakeLink(name: PChar   location 'd1';
+function MakeLink(name: PAnsiChar   location 'd1';
                   dest: LongInt location 'd2';
                   soft: LongInt location 'd3'): LongBool;
 SysCall AOS_DOSBase 444;
@@ -352,13 +352,13 @@ function SetIoErr(result: LongInt location 'd1'): LongInt;
 SysCall AOS_DOSBase 462;
 
 function Fault(code  : LongInt location 'd1';
-               header: PChar   location 'd2';
-               buffer: PChar   location 'd3';
+               header: PAnsiChar   location 'd2';
+               buffer: PAnsiChar   location 'd3';
                len   : LongInt location 'd4'): LongBool;
 SysCall AOS_DOSBase 468;
 
 function PrintFault(code  : LongInt location 'd1';
-                    header: PChar   location 'd2'): LongBool;
+                    header: PAnsiChar   location 'd2'): LongBool;
 SysCall AOS_DOSBase 474;
 
 function ErrorReport(code  : LongInt  location 'd1';
@@ -378,7 +378,7 @@ SysCall AOS_DOSBase 498;
 
 function RunCommand(seg     : LongInt location 'd1';
                     stack   : LongInt location 'd2';
-                    paramptr: PChar   location 'd3';
+                    paramptr: PAnsiChar   location 'd3';
                     paramlen: LongInt location 'd4'): LongInt;
 SysCall AOS_DOSBase 504;
 
@@ -394,10 +394,10 @@ SysCall AOS_DOSBase 522;
 function SetFileSysTask(task: PMsgPort location 'd1'): PMsgPort;
 SysCall AOS_DOSBase 528;
 
-function GetArgStr: PChar;
+function GetArgStr: PAnsiChar;
 SysCall AOS_DOSBase 534;
 
-function SetArgStr(str: PChar location 'd1'): LongBool;
+function SetArgStr(str: PAnsiChar location 'd1'): LongBool;
 SysCall AOS_DOSBase 540;
 
 function FindCliProc(num: Cardinal location 'd1'): PProcess;
@@ -406,24 +406,24 @@ SysCall AOS_DOSBase 546;
 function MaxCli: Cardinal;
 SysCall AOS_DOSBase 552;
 
-function SetCurrentDirName(name: PChar location 'd1'): LongBool;
+function SetCurrentDirName(name: PAnsiChar location 'd1'): LongBool;
 SysCall AOS_DOSBase 558;
 
-function GetCurrentDirName(buf: PChar   location 'd1';
+function GetCurrentDirName(buf: PAnsiChar   location 'd1';
                            len: LongInt location 'd2'): LongBool;
 SysCall AOS_DOSBase 564;
 
-function SetProgramName(name: PChar location 'd1'): LongBool;
+function SetProgramName(name: PAnsiChar location 'd1'): LongBool;
 SysCall AOS_DOSBase 570;
 
-function GetProgramName(buf: PChar   location 'd1';
+function GetProgramName(buf: PAnsiChar   location 'd1';
                         len: LongInt location 'd2'): LongBool;
 SysCall AOS_DOSBase 576;
 
-function SetPrompt(name: PChar location 'd1'): LongBool;
+function SetPrompt(name: PAnsiChar location 'd1'): LongBool;
 SysCall AOS_DOSBase 582;
 
-function GetPrompt(buf: PChar   location 'd1';
+function GetPrompt(buf: PAnsiChar   location 'd1';
                    len: LongInt location 'd2'): LongBool;
 SysCall AOS_DOSBase 588;
 
@@ -433,35 +433,35 @@ SysCall AOS_DOSBase 594;
 function GetProgramDir: LongInt;
 SysCall AOS_DOSBase 600;
 
-function SystemTagList(command: PChar    location 'd1';
+function SystemTagList(command: PAnsiChar    location 'd1';
                        tags   : PTagItem location 'd2'): LongInt;
 SysCall AOS_DOSBase 606;
 
-function dosSystem(command: PChar    location 'd1';
+function dosSystem(command: PAnsiChar    location 'd1';
                    tags   : PTagItem location 'd2'): LongInt;
 SysCall AOS_DOSBase 606;
 
-function AssignLock(name: PChar   location 'd1';
+function AssignLock(name: PAnsiChar   location 'd1';
                     lock: LongInt location 'd2'): LongBool;
 SysCall AOS_DOSBase 612;
 
-function AssignLate(name: PChar location 'd1';
-                    path: PChar location 'd2'): LongBool;
+function AssignLate(name: PAnsiChar location 'd1';
+                    path: PAnsiChar location 'd2'): LongBool;
 SysCall AOS_DOSBase 618;
 
-function AssignPath(name: PChar location 'd1';
-                    path: PChar location 'd2'): LongBool;
+function AssignPath(name: PAnsiChar location 'd1';
+                    path: PAnsiChar location 'd2'): LongBool;
 SysCall AOS_DOSBase 624;
 
-function AssignAdd(name: PChar   location 'd1';
+function AssignAdd(name: PAnsiChar   location 'd1';
                    lock: LongInt location 'd2'): LongBool;
 SysCall AOS_DOSBase 630;
 
-function RemAssignList(name: PChar   location 'd1';
+function RemAssignList(name: PAnsiChar   location 'd1';
                        lock: LongInt location 'd2'): LongBool;
 SysCall AOS_DOSBase 636;
 
-function GetDeviceProc(name: PChar    location 'd1';
+function GetDeviceProc(name: PAnsiChar    location 'd1';
                        dp  : PDevProc location 'd2'): PDevProc;
 SysCall AOS_DOSBase 642;
 
@@ -484,7 +484,7 @@ function AddDosEntry(dlist: PDosList location 'd1'): LongInt;
 SysCall AOS_DOSBase 678;
 
 function FindDosEntry(dlist: PDosList location 'd1';
-                      name : PChar    location 'd2';
+                      name : PAnsiChar    location 'd2';
                       flags: Cardinal location 'd3'): PDosList;
 SysCall AOS_DOSBase 684;
 
@@ -492,30 +492,30 @@ function NextDosEntry(dlist: PDosList location 'd1';
                       flags: Cardinal location 'd2'): PDosList;
 SysCall AOS_DOSBase 690;
 
-function MakeDosEntry(name : PChar   location 'd1';
+function MakeDosEntry(name : PAnsiChar   location 'd1';
                       type1: LongInt location 'd2'): PDosList;
 SysCall AOS_DOSBase 696;
 
 procedure FreeDosEntry(dlist: PDosList location 'd1');
 SysCall AOS_DOSBase 702;
 
-function IsFileSystem(name: PChar location 'd1'): LongBool;
+function IsFileSystem(name: PAnsiChar location 'd1'): LongBool;
 SysCall AOS_DOSBase 708;
 
-function Format(filesystem: PChar    location 'd1';
-                volumename: PChar    location 'd2';
+function Format(filesystem: PAnsiChar    location 'd1';
+                volumename: PAnsiChar    location 'd2';
                 dostype   : Cardinal location 'd3'): LongBool;
 SysCall AOS_DOSBase 714;
 
-function Relabel(drive  : PChar location 'd1';
-                 newname: PChar location 'd2'): LongBool;
+function Relabel(drive  : PAnsiChar location 'd1';
+                 newname: PAnsiChar location 'd2'): LongBool;
 SysCall AOS_DOSBase 720;
 
-function Inhibit(name : PChar   location 'd1';
+function Inhibit(name : PAnsiChar   location 'd1';
                  onoff: LongInt location 'd2'): LongBool;
 SysCall AOS_DOSBase 726;
 
-function AddBuffers(name  : PChar   location 'd1';
+function AddBuffers(name  : PAnsiChar   location 'd1';
                     number: LongInt location 'd2'): LongBool;
 SysCall AOS_DOSBase 732;
 
@@ -535,20 +535,20 @@ function InternalLoadSeg(fh           : LongInt location 'd0';
                          var stack    : LongInt location 'a2'): LongInt;
 SysCall AOS_DOSBase 756;
 
-function NewLoadSeg(file1: PChar    location 'd1';
+function NewLoadSeg(file1: PAnsiChar    location 'd1';
                     tags : PTagItem location 'd2'): LongInt;
 SysCall AOS_DOSBase 768;
 
-function NewLoadSegTagList(file1: PChar    location 'd1';
+function NewLoadSegTagList(file1: PAnsiChar    location 'd1';
                            tags : PTagItem location 'd2'): LongInt;
 SysCall AOS_DOSBase 768;
 
-function AddSegment(name  : PChar   location 'd1';
+function AddSegment(name  : PAnsiChar   location 'd1';
                     seg   : LongInt location 'd2';
                     system: LongInt location 'd3'): LongBool;
 SysCall AOS_DOSBase 774;
 
-function FindSegment(name  : PChar    location 'd1';
+function FindSegment(name  : PAnsiChar    location 'd1';
                      seg   : PSegment location 'd2';
                      system: LongInt  location 'd3'): PSegment;
 SysCall AOS_DOSBase 780;
@@ -559,25 +559,25 @@ SysCall AOS_DOSBase 786;
 function CheckSignal(mask: LongInt location 'd1'): LongInt;
 SysCall AOS_DOSBase 792;
 
-function ReadArgs(arg_template: PChar   location 'd1';
+function ReadArgs(arg_template: PAnsiChar   location 'd1';
                   var array1  : LongInt location 'd2';
                   args        : PRDArgs location 'd3'): PRDArgs;
 SysCall AOS_DOSBase 798;
 
-function FindArg(keyword     : PChar location 'd1';
-                 arg_template: PChar location 'd2'): LongInt;
+function FindArg(keyword     : PAnsiChar location 'd1';
+                 arg_template: PAnsiChar location 'd2'): LongInt;
 SysCall AOS_DOSBase 804;
 
-function ReadItem(name    : PChar    location 'd1';
+function ReadItem(name    : PAnsiChar    location 'd1';
                   maxchars: LongInt  location 'd2';
                   cSource : PCSource location 'd3'): LongInt;
 SysCall AOS_DOSBase 810;
 
-function StrToLong(string1  : PChar   location 'd1';
+function StrToLong(string1  : PAnsiChar   location 'd1';
                    var value: LongInt location 'd2'): LongInt;
 SysCall AOS_DOSBase 816;
 
-function MatchFirst(pat   : PChar       location 'd1';
+function MatchFirst(pat   : PAnsiChar       location 'd1';
                     anchor: PAnchorPath location 'd2'): LongInt;
 SysCall AOS_DOSBase 822;
 
@@ -587,26 +587,26 @@ SysCall AOS_DOSBase 828;
 procedure MatchEnd(anchor: PAnchorPath location 'd1');
 SysCall AOS_DOSBase 834;
 
-function ParsePattern(pat   : PChar   location 'd1';
-                      buf   : PChar   location 'd2';
+function ParsePattern(pat   : PAnsiChar   location 'd1';
+                      buf   : PAnsiChar   location 'd2';
                       buflen: LongInt location 'd3'): LongInt;
 SysCall AOS_DOSBase 840;
 
-function MatchPattern(pat: PChar location 'd1';
-                      str: PChar location 'd2'): LongBool;
+function MatchPattern(pat: PAnsiChar location 'd1';
+                      str: PAnsiChar location 'd2'): LongBool;
 SysCall AOS_DOSBase 846;
 
 procedure FreeArgs(args: pRDArgs location 'd1');
 SysCall AOS_DOSBase 858;
 
-function FilePart(path: PChar location 'd1'): PChar;
+function FilePart(path: PAnsiChar location 'd1'): PAnsiChar;
 SysCall AOS_DOSBase 870;
 
-function PathPart(path: PChar location 'd1'): PChar;
+function PathPart(path: PAnsiChar location 'd1'): PAnsiChar;
 SysCall AOS_DOSBase 876;
 
-function AddPart(dirname: PChar    location 'd1';
-                filename: PChar    location 'd2';
+function AddPart(dirname: PAnsiChar    location 'd1';
+                filename: PAnsiChar    location 'd2';
                 size    : Cardinal location 'd3'): LongBool;
 SysCall AOS_DOSBase 882;
 
@@ -616,23 +616,23 @@ SysCall AOS_DOSBase 888;
 procedure EndNotify(notify: PNotifyRequest location 'd1');
 SysCall AOS_DOSBase 894;
 
-function SetVar(name  : PChar   location 'd1';
-                buffer: PChar   location 'd2';
+function SetVar(name  : PAnsiChar   location 'd1';
+                buffer: PAnsiChar   location 'd2';
                 size  : LongInt location 'd3';
                 flags : LongInt location 'd4'): LongBool;
 SysCall AOS_DOSBase 900;
 
-function GetVar(name  : PChar   location 'd1';
-                buffer: PChar   location 'd2';
+function GetVar(name  : PAnsiChar   location 'd1';
+                buffer: PAnsiChar   location 'd2';
                 size  : LongInt location 'd3';
                 flags : LongInt location 'd4'): LongInt;
 SysCall AOS_DOSBase 906;
 
-function DeleteVar(name : PChar    location 'd1';
+function DeleteVar(name : PAnsiChar    location 'd1';
                    flags: Cardinal location 'd2'): LongBool;
 SysCall AOS_DOSBase 912;
 
-function FindVar(name : PChar    location 'd1';
+function FindVar(name : PAnsiChar    location 'd1';
                  type1: Cardinal location 'd2'): PLocalVar;
 SysCall AOS_DOSBase 918;
 
@@ -642,24 +642,24 @@ SysCall AOS_DOSBase 930;
 function CliInitRun(dp: PDosPacket location 'a0'): LongInt;
 SysCall AOS_DOSBase 936;
 
-function WriteChars(buf   : PChar    location 'd1';
+function WriteChars(buf   : PAnsiChar    location 'd1';
                     buflen: Cardinal location 'd2'): LongInt;
 SysCall AOS_DOSBase 942;
 
-function PutStr(str: PChar location 'd1'): LongInt;
+function PutStr(str: PAnsiChar location 'd1'): LongInt;
 SysCall AOS_DOSBase 948;
 
-function VPrintf(format  : PChar   location 'd1';
+function VPrintf(format  : PAnsiChar   location 'd1';
                  argarray: Pointer location 'd2'): LongInt;
 SysCall AOS_DOSBase 954;
 
-function ParsePatternNoCase(pat   : PChar   location 'd1';
-                            buf   : PChar   location 'd2';
+function ParsePatternNoCase(pat   : PAnsiChar   location 'd1';
+                            buf   : PAnsiChar   location 'd2';
                             buflen: LongInt location 'd3'): LongInt;
 SysCall AOS_DOSBase 966;
 
-function MatchPatternNoCase(pat: PChar location 'd1';
-                            str: PChar location 'd2'): LongBool;
+function MatchPatternNoCase(pat: PAnsiChar location 'd1';
+                            str: PAnsiChar location 'd2'): LongBool;
 SysCall AOS_DOSBase 972;
 
 function SameDevice(lock1: LongInt location 'd1';
@@ -676,7 +676,7 @@ procedure ExAllEnd(lock   : LongInt       location 'd1';
                    control: PExAllControl location 'd5');
 SysCall AOS_DOSBase 990;
 
-function SetOwner(name      : PChar   location 'd1';
+function SetOwner(name      : PAnsiChar   location 'd1';
                   owner_info: LongInt location 'd2'): LongBool;
 SysCall AOS_DOSBase 996;
 

rtl/amiga/m68k/execd.inc

@@ -32,7 +32,7 @@ type
     ln_Pred: PNode;
     ln_Type: Byte;
     ln_Pri : ShortInt;
-    ln_Name: PChar;
+    ln_Name: PAnsiChar;
   end;
 
 type
@@ -431,8 +431,8 @@ type
     rt_Version  : Byte;
     rt_Type     : Byte;
     rt_Pri      : Byte;
-    rt_Name     : PChar;
-    rt_IdString : PChar;
+    rt_Name     : PAnsiChar;
+    rt_IdString : PAnsiChar;
     rt_Init     : Pointer;
     { * Only valid when RTF_EXTENDED is set
       * }
@@ -1088,7 +1088,7 @@ type
     lib_PosSize : Word;
     lib_Version : Word;
     lib_Revision: Word;
-    lib_IdString: PChar;
+    lib_IdString: PAnsiChar;
     lib_Sum     : DWord;
     lib_OpenCnt : Word;
   end;

rtl/amiga/m68k/execf.inc

@@ -37,7 +37,7 @@ procedure MakeFunctions(target       : Pointer location 'a0';
                         funcDispBase : Pointer location 'a2');
 SysCall AOS_ExecBase 090;
 
-function FindResident(name: PChar location 'a1'): PResident;
+function FindResident(name: PAnsiChar location 'a1'): PResident;
 SysCall AOS_ExecBase 096;
 
 function InitResident(resident: PResident location 'a1';
@@ -147,7 +147,7 @@ procedure Enqueue(list: PList location 'a0';
 SysCall AOS_ExecBase 270;
 
 function FindName(list: PList location 'a0';
-                  name: PChar location 'a1'): PNode;
+                  name: PAnsiChar location 'a1'): PNode;
 SysCall AOS_ExecBase 276;
 
 function AddTask(task   : PTask   location 'a1';
@@ -158,7 +158,7 @@ SysCall AOS_ExecBase 282;
 procedure RemTask(task: PTask location 'a1');
 SysCall AOS_ExecBase 288;
 
-function FindTask(name: PChar location 'a1'): PTask;
+function FindTask(name: PAnsiChar location 'a1'): PTask;
 SysCall AOS_ExecBase 294;
 
 function SetTaskPri(task    : PTask   location 'a1';
@@ -211,7 +211,7 @@ SysCall AOS_ExecBase 378;
 function WaitPort(port: PMsgPort location 'a0'): PMessage;
 SysCall AOS_ExecBase 384;
 
-function FindPort(name: PChar location 'a1'): PMsgPort;
+function FindPort(name: PAnsiChar location 'a1'): PMsgPort;
 SysCall AOS_ExecBase 390;
 
 procedure AddLibrary(libHandle: PLibrary location 'a1');
@@ -220,7 +220,7 @@ SysCall AOS_ExecBase 396;
 procedure RemLibrary(libHandle: PLibrary location 'a1');
 SysCall AOS_ExecBase 402;
 
-function OldOpenLibrary(libName: PChar location 'a1'): PLibrary;
+function OldOpenLibrary(libName: PAnsiChar location 'a1'): PLibrary;
 SysCall AOS_ExecBase 408;
 
 procedure CloseLibrary(libHandle: PLibrary location 'a1');
@@ -240,7 +240,7 @@ SysCall AOS_ExecBase 432;
 procedure RemDevice(device: PDevice location 'a1');
 SysCall AOS_ExecBase 438;
 
-function OpenDevice(devName  : PChar      location 'a0';
+function OpenDevice(devName  : PAnsiChar      location 'a0';
                     numunit  : Cardinal   location 'd0';
                     ioRequest: pIORequest location 'a1';
                     flags    : Cardinal   location 'd1'): ShortInt;
@@ -270,19 +270,19 @@ SysCall AOS_ExecBase 486;
 procedure RemResource(resource: Pointer location 'a1');
 SysCall AOS_ExecBase 492;
 
-function OpenResource(resName: PChar location 'a1'): Pointer;
+function OpenResource(resName: PAnsiChar location 'a1'): Pointer;
 SysCall AOS_ExecBase 498;
 
 procedure RawIOInit;
 SysCall AOS_ExecBase 504;
 
-function RawMayGetChar: Char;
+function RawMayGetChar: AnsiChar;
 SysCall AOS_ExecBase 510;
 
-procedure RawPutChar(d0arg: Char location 'd0');
+procedure RawPutChar(d0arg: AnsiChar location 'd0');
 SysCall AOS_ExecBase 516;
 
-function RawDoFmt(formatString: PChar   location 'a0';
+function RawDoFmt(formatString: PAnsiChar   location 'a0';
                   dataStream  : Pointer location 'a1';
                   putChProc   : Pointer location 'a2';
                   putChData   : Pointer location 'a3'): Pointer;
@@ -302,7 +302,7 @@ procedure Vacate(sigSem: PSignalSemaphore  location 'a0';
                  bidMsg: PSemaphoreMessage location 'a1');
 SysCall AOS_ExecBase 546;
 
-function OpenLibrary(libname: PChar    location 'a1';
+function OpenLibrary(libname: PAnsiChar    location 'a1';
                      libver : Cardinal location 'd0'): Pointer;
 SysCall AOS_ExecBase 552;
 
@@ -327,7 +327,7 @@ SysCall AOS_ExecBase 582;
 procedure ReleaseSemaphoreList(sigSem: PList location 'a0');
 SysCall AOS_ExecBase 588;
 
-function FindSemaphore(sigSem: PChar location 'a1'): PSignalSemaphore;
+function FindSemaphore(sigSem: PAnsiChar location 'a1'): PSignalSemaphore;
 SysCall AOS_ExecBase 594;
 
 procedure AddSemaphore(sigSem: PSignalSemaphore location 'a1');
@@ -343,7 +343,7 @@ procedure AddMemList(size      : Cardinal location 'd0';
                      attributes: Cardinal location 'd1';
                      pri       : LongInt  location 'd2';
                      base      : Pointer  location 'a0';
-                     name      : PChar    location 'a1');
+                     name      : PAnsiChar    location 'a1');
 SysCall AOS_ExecBase 618;
 
 procedure CopyMem(source: Pointer  location 'a0';

rtl/amiga/m68k/legacydos.inc

@@ -58,7 +58,7 @@ var
 function CreateNewProc(tags: PTagItem): PProcess; public name '_fpc_amiga_createproc';
 var
   seglistbptr: dword;
-  name: pchar;
+  name: PAnsiChar;
   entryfunc: pointer;
   stacksize: dword;
   m: pmsgport;
@@ -120,7 +120,7 @@ begin
 end;
 
 function NameFromLock(lock  : LongInt;
-                      buffer: PChar;
+                      buffer: PAnsiChar;
                       len   : LongInt): LongBool; public name '_fpc_amiga_namefromlock';
 var
   fib_area: array[1..sizeof(TFileInfoBlock) + sizeof(longint)] of byte;
@@ -171,7 +171,7 @@ begin
 end;
 
 function NameFromFH(fh    : BPTR;
-                    buffer: PChar;
+                    buffer: PAnsiChar;
                     len   : LongInt): LongBool; public name '_fpc_amiga_namefromfh';
 begin
 {$warning NameFromFH unimplemented!}
@@ -258,12 +258,12 @@ begin
   end;
 end;
 
-function MatchFirst(pat   : PChar;
+function MatchFirst(pat   : PAnsiChar;
                     anchor: PAnchorPath): LongInt; public name '_fpc_amiga_matchfirst';
 var
   fib_area: array[1..sizeof(TFileInfoBlock) + sizeof(longint)] of byte;
   fib: pfileinfoblock;
-  p: PChar;
+  p: PAnsiChar;
   len: LongInt;
   Path,FileN: AnsiString;
   LastSeparatorPos: Integer;
@@ -310,7 +310,7 @@ begin
   else
   begin
     newLock := True;
-    DirLock := Lock(PChar(Path), ACCESS_READ);
+    DirLock := Lock(PAnsiChar(Path), ACCESS_READ);
   end;
   //
   // no dirlock found -> dir not found
@@ -417,7 +417,7 @@ begin
 end;
 
 // we emulate that by the old execute command, should be enough for most cases
-function SystemTagList(command: PChar;
+function SystemTagList(command: PAnsiChar;
                        tags   : PTagItem): LongInt; public name '_fpc_amiga_systemtaglist';
 var
   I,O: BPTR; // in / ouput handles
@@ -442,8 +442,8 @@ begin
     SystemTagList := -1;
 end;
 
-function GetVar(name  : PChar;
-                buffer: PChar;
+function GetVar(name  : PAnsiChar;
+                buffer: PAnsiChar;
                 size  : LongInt;
                 flags : LongInt): LongInt; public name '_fpc_amiga_getvar';
 begin
@@ -451,7 +451,7 @@ begin
   GetVar:=-1;
 end;
 
-function SetFileDate(name: PChar;
+function SetFileDate(name: PAnsiChar;
                      date: PDateStamp): LongBool; public name '_fpc_amiga_setfiledate';
 begin
 {$warning SetFileDate unimplemented!}
@@ -470,11 +470,11 @@ begin
   SetFileSize:=-1;
 end;
 
-function GetProgramName(buf: PChar;
+function GetProgramName(buf: PAnsiChar;
                         len: LongInt): LongBool; public name '_fpc_amiga_getprogramname';
 var
   pr: PProcess;
-  pn: PChar;
+  pn: PAnsiChar;
   pl: longint;
   pcli: PCommandLineInterface;
 begin
@@ -487,7 +487,7 @@ begin
       pcli:=PCommandLineInterface(pr^.pr_CLI shl 2);
       if (pcli <> nil) and (pcli^.cli_CommandName <> 0) then
         begin
-          pn:=PChar(pcli^.cli_CommandName shl 2) + 1;
+          pn:=PAnsiChar(pcli^.cli_CommandName shl 2) + 1;
           pl:=Byte(pn[-1]);
           if pl > len-1 then
             pl:=len-1;
@@ -500,7 +500,7 @@ end;
 
 function GetProgramDir: LongInt; public name '_fpc_amiga_getprogramdir';
 var
-  cmd: array[0..255] of char;
+  cmd: array[0..255] of AnsiChar;
   prglock: LongInt;
 begin
   { this is quite minimalistic and only covers the simplest cases }
@@ -515,11 +515,11 @@ begin
 end;
 
 var
-  __fpc_global_args: pchar; external name '__fpc_args';
+  __fpc_global_args: PAnsiChar; external name '__fpc_args';
   __fpc_global_arglen: dword; external name '__fpc_arglen';
-  __fpc_args_buffer: pchar;
+  __fpc_args_buffer: PAnsiChar;
 
-function GetArgStr: PChar; public name '_fpc_amiga_getargstr';
+function GetArgStr: PAnsiChar; public name '_fpc_amiga_getargstr';
 var
   len: dword;
 begin

rtl/amiga/m68k/legacydosh.inc

@@ -18,10 +18,10 @@
 
 function CreateNewProc(tags: PTagItem): PProcess; external name '_fpc_amiga_createproc';
 function NameFromLock(lock  : LongInt;
-                      buffer: PChar;
+                      buffer: PAnsiChar;
                       len   : LongInt): LongBool; external name '_fpc_amiga_namefromlock';
 function NameFromFH(fh    : BPTR;
-                    buffer: PChar;
+                    buffer: PAnsiChar;
                     len   : LongInt): LongBool; external name '_fpc_amiga_namefromfh';
 function ExamineFH(fh : BPTR;
                    fib: PFileInfoBlock): LongBool; external name '_fpc_amiga_examinefh';
@@ -29,22 +29,22 @@ function LockDosList(flags: Cardinal): PDosList; external name '_fpc_amiga_lockd
 procedure UnLockDosList(flags: Cardinal); external name '_fpc_amiga_unlockdoslist';
 function NextDosEntry(dlist: PDosList;
                       flags: Cardinal): PDosList; external name '_fpc_amiga_nextdosentry';
-function MatchFirst(pat   : PChar;
+function MatchFirst(pat   : PAnsiChar;
                     anchor: PAnchorPath): LongInt; external name '_fpc_amiga_matchfirst';
 function MatchNext(anchor: PAnchorPath): LongInt; external name '_fpc_amiga_matchnext';
 procedure MatchEnd(anchor: PAnchorPath); external name '_fpc_amiga_matchend';
-function SystemTagList(command: PChar;
+function SystemTagList(command: PAnsiChar;
                        tags   : PTagItem): LongInt; external name '_fpc_amiga_systemtaglist';
-function GetVar(name  : PChar;
-                buffer: PChar;
+function GetVar(name  : PAnsiChar;
+                buffer: PAnsiChar;
                 size  : LongInt;
                 flags : LongInt): LongInt; external name '_fpc_amiga_getvar';
-function SetFileDate(name: PChar;
+function SetFileDate(name: PAnsiChar;
                      date: PDateStamp): LongBool; external name '_fpc_amiga_setfiledate';
 function SetFileSize(fh  : LongInt;
                      pos : LongInt;
                      mode: LongInt): LongInt; external name '_fpc_amiga_setfilesize';
-function GetProgramName(buf: PChar;
+function GetProgramName(buf: PAnsiChar;
                         len: LongInt): LongBool; external name '_fpc_amiga_getprogramname';
 function GetProgramDir: LongInt; external name '_fpc_amiga_getprogramdir';
-function GetArgStr: PChar; external name '_fpc_amiga_getargstr';
+function GetArgStr: PAnsiChar; external name '_fpc_amiga_getargstr';

rtl/amiga/m68k/si_prc.pp

@@ -85,7 +85,7 @@ begin
       AOS_DOSBase:=OpenLibrary('dos.library',0);
       if AOS_DOSBase <> nil then
         begin
-          dosWrite(dosOutput,PChar(NEEDS_NEWER_OS),length(NEEDS_NEWER_OS));
+          dosWrite(dosOutput,PAnsiChar(NEEDS_NEWER_OS),length(NEEDS_NEWER_OS));
           CloseLibrary(AOS_DOSBase);
         end;
       exit(20);

rtl/amiga/m68k/utilf.inc

@@ -97,19 +97,19 @@ function UDivMod32(dividend: Cardinal location 'd0';
                    divisor : Cardinal location 'd1'): Cardinal;
 SysCall AOS_UtilityBase 156;
 
-function Stricmp(string1: PChar location 'a0';
-                 string2: PChar location 'a1'): LongInt;
+function Stricmp(string1: PAnsiChar location 'a0';
+                 string2: PAnsiChar location 'a1'): LongInt;
 SysCall AOS_UtilityBase 162;
 
-function Strnicmp(string1: PChar   location 'a0';
-                  string2: PChar   location 'a1';
+function Strnicmp(string1: PAnsiChar   location 'a0';
+                  string2: PAnsiChar   location 'a1';
                   length : LongInt location 'd0'): LongInt;
 SysCall AOS_UtilityBase 168;
 
-function ToUpper(character: Cardinal location 'd0'): Char;
+function ToUpper(character: Cardinal location 'd0'): AnsiChar;
 SysCall AOS_UtilityBase 174;
 
-function ToLower(character: Cardinal location 'd0'): Char;
+function ToLower(character: Cardinal location 'd0'): AnsiChar;
 SysCall AOS_UtilityBase 180;
 
 procedure ApplyTagChanges(list      : PTagItem location 'a0';
@@ -138,7 +138,7 @@ function AddNamedObject(nameSpace: PNamedObject location 'a0';
                         nobject  : PNamedObject location 'a1'): LongBool;
 SysCall AOS_UtilityBase 222;
 
-function AllocNamedObjectA(name   : PChar    location 'a0';
+function AllocNamedObjectA(name   : PAnsiChar    location 'a0';
                            tagList: PTagItem location 'a1'): PNamedObject;
 SysCall AOS_UtilityBase 228;
 
@@ -146,14 +146,14 @@ function AttemptRemNamedObject(nobject: PNamedObject location 'a0'): LongInt;
 SysCall AOS_UtilityBase 234;
 
 function FindNamedObject(nameSpace : PNamedObject location 'a0';
-                         name      : PChar        location 'a1';
+                         name      : PAnsiChar        location 'a1';
                          lastObject: PNamedObject location 'a2'): PNamedObject;
 SysCall AOS_UtilityBase 240;
 
 procedure FreeNamedObject(nobject: PNamedObject location 'a0');
 SysCall AOS_UtilityBase 246;
 
-function NamedObjectName(nobject: PNamedObject location 'a0'): PChar;
+function NamedObjectName(nobject: PNamedObject location 'a0'): PAnsiChar;
 SysCall AOS_UtilityBase 252;
 
 procedure ReleaseNamedObject(nobject: pNamedObject location 'a0');

rtl/amiga/powerpc/doslibf.inc

@@ -13,26 +13,26 @@
 
  **********************************************************************}
 
-function Open(name: PChar; accessMode: longint): longint; syscall IDOS 76;
+function Open(name: PAnsiChar; accessMode: longint): longint; syscall IDOS 76;
 function dosClose(_file: longint): LongBool; syscall IDOS 80;
 function dosRead(_file: longint; buffer: Pointer; length: longint): longint; syscall IDOS 84;
 function dosWrite(_file: longint; buffer: Pointer; length: longint): longint; syscall IDOS 88;
 function dosInput: longint; syscall IDOS 92;
 function dosOutput: longint; syscall IDOS 96;
 function dosSeek(_file: longint;position: longint;offset: longint): longint; syscall IDOS 100;
-function dosDeleteFile(name: PChar): LongBool; syscall IDOS 104;
-function dosRename(oldName: PChar;newName: PChar): longint; syscall IDOS 108;
-function Lock(name: PChar;_type: longint): longint; syscall IDOS 112;
+function dosDeleteFile(name: PAnsiChar): LongBool; syscall IDOS 104;
+function dosRename(oldName: PAnsiChar;newName: PAnsiChar): longint; syscall IDOS 108;
+function Lock(name: PAnsiChar;_type: longint): longint; syscall IDOS 112;
 procedure UnLock(lock: longint); syscall IDOS 116;
 
 function Examine(lock: longint; fileInfoBlock: PFileInfoBlock): LongInt; syscall IDOS 124;
 
 function Info(lock: longint; parameterBlock: PInfoData): LongInt; syscall IDOS 132;
-function dosCreateDir(name: PChar): longint; syscall IDOS 136;
+function dosCreateDir(name: PAnsiChar): longint; syscall IDOS 136;
 function CurrentDir(lock: longint): longint; syscall IDOS 140;
 function IoErr: longint; syscall IDOS 144;
 
-function SetProtection(name: PChar; protect: longword): LongInt; syscall IDOS 180;
+function SetProtection(name: PAnsiChar; protect: longword): LongInt; syscall IDOS 180;
 function DateStamp(date: PDateStamp): PDateStamp; syscall IDOS 184;
 procedure DOSDelay(timeout: LongInt); syscall IDOS 188;
 
@@ -40,31 +40,31 @@ function AllocDosObject(type1: Cardinal; tags : PTagItem): Pointer; syscall IDOS
 procedure FreeDosObject(type1: Cardinal; ptr  : Pointer); syscall IDOS 220;
 
 function ExamineFH(fh : BPTR; fib: PFileInfoBlock): LongBool; syscall IDOS 352;
-function SetFileDate(name: PChar; date: PDateStamp): LongBool; syscall IDOS 356; { Seems this got renamed to SetDate() in OS4? }
-function NameFromLock(lock: longint; buffer: PChar; len: longint): LongBool; syscall IDOS 360;
-function NameFromFH(fh: longint; buffer: PChar; len: longint): LongBool; syscall IDOS 364;
+function SetFileDate(name: PAnsiChar; date: PDateStamp): LongBool; syscall IDOS 356; { Seems this got renamed to SetDate() in OS4? }
+function NameFromLock(lock: longint; buffer: PAnsiChar; len: longint): LongBool; syscall IDOS 360;
+function NameFromFH(fh: longint; buffer: PAnsiChar; len: longint): LongBool; syscall IDOS 364;
 
 function SetFileSize(fh: longint; pos: longint; mode: longint): longint; syscall IDOS 396;
 
 function CreateNewProc(tags: PTagItem): PProcess; syscall IDOS 424;
 
-function GetArgStr: PChar; syscall IDOS 456;
-function SetArgStr(_string: PChar): PChar; syscall IDOS 460;
+function GetArgStr: PAnsiChar; syscall IDOS 456;
+function SetArgStr(_string: PAnsiChar): PAnsiChar; syscall IDOS 460;
 
-function GetCurrentDirName(buf: PChar; len: longint): LongBool; syscall IDOS 476;
+function GetCurrentDirName(buf: PAnsiChar; len: longint): LongBool; syscall IDOS 476;
 
-function GetProgramName(buf: PChar; len: longint): LongBool; syscall IDOS 484;
+function GetProgramName(buf: PAnsiChar; len: longint): LongBool; syscall IDOS 484;
 
 function GetProgramDir: longint; syscall IDOS 500;
-function SystemTagList(command: PChar; tags: PTagItem): longint; syscall IDOS 504;
+function SystemTagList(command: PAnsiChar; tags: PTagItem): longint; syscall IDOS 504;
 
 function LockDosList(flags: longword): PDosList; syscall IDOS 544;
 procedure UnLockDosList(flags: longword); syscall IDOS 548;
 
 function NextDosEntry(dlist: PDosList; flags: longword): PDosList; syscall IDOS 568;
 
-function MatchFirst(pat: PChar; anchor: PAnchorPath): longint; syscall IDOS 664;
+function MatchFirst(pat: PAnsiChar; anchor: PAnchorPath): longint; syscall IDOS 664;
 function MatchNext(anchor: PAnchorPath): longint; syscall IDOS 668;
 procedure MatchEnd(anchor: PAnchorPath); syscall IDOS 672;
 
-function GetVar(name: PChar; buffer: PChar; size: longint; flags: longword): longint; syscall IDOS 720;
+function GetVar(name: PAnsiChar; buffer: PAnsiChar; size: longint; flags: longword): longint; syscall IDOS 720;

rtl/amiga/powerpc/execd.inc

@@ -22,8 +22,8 @@
 //       Initializers.h - Macros needed?
 
 type
-  STRPTR   = PChar;
-  PSTRPTR  = PPChar;
+  STRPTR   = PAnsiChar;
+  PSTRPTR  = PPAnsiChar;
   ULONG    = Longword;
   LONG     = LongInt;
   APTR     = Pointer;

rtl/amiga/powerpc/execf.inc

@@ -26,7 +26,7 @@ procedure FreePooled(poolHeader: Pointer;memory: Pointer;memSize: longword); sys
 
 procedure Permit; syscall IExec 200;
 
-function FindTask(name: PChar): PTask; syscall IExec 260;
+function FindTask(name: PAnsiChar): PTask; syscall IExec 260;
 
 function AllocSignal(signalNum: shortint): shortint; syscall IExec 276;
 procedure FreeSignal(signalNum: shortint); syscall IExec 280;
@@ -53,18 +53,18 @@ procedure ObtainSemaphoreShared(sigSem: PSignalSemaphore); syscall IExec 376;
 
 procedure ReleaseSemaphore(sigSem: PSignalSemaphore); syscall IExec 384;
 
-function OpenLibrary(name: PChar; version: longword): PLibrary; syscall IExec 424;
+function OpenLibrary(name: PAnsiChar; version: longword): PLibrary; syscall IExec 424;
 function CloseLibrary(_library: PLibrary): Pointer; syscall IExec 428;
 
-function GetInterface(_library: PLibrary;name: PChar;version: longword;taglist: PTagItem): POS4Interface; syscall IExec 448;
-function GetInterfaceTags(_library: PLibrary;name: PChar;version: longword): POS4Interface; {varargs;} syscall IExec 452; {$WARNING varargs should be possible with syscalls too on OS4}
+function GetInterface(_library: PLibrary;name: PAnsiChar;version: longword;taglist: PTagItem): POS4Interface; syscall IExec 448;
+function GetInterfaceTags(_library: PLibrary;name: PAnsiChar;version: longword): POS4Interface; {varargs;} syscall IExec 452; {$WARNING varargs should be possible with syscalls too on OS4}
 procedure DropInterface(_interface: POS4Interface); syscall IExec 456;
 
-function OpenDevice(devName: PChar; unitNumber: longword;ioRequest: PIORequest; flags: longword): longint; syscall IExec 504;
+function OpenDevice(devName: PAnsiChar; unitNumber: longword;ioRequest: PIORequest; flags: longword): longint; syscall IExec 504;
 function CloseDevice(ioRequest: PIORequest): Pointer; syscall IExec 508;
 function CreateIORequest(const IOReplyPort: PMsgPort; Size: LongWord): PIORequest; syscall IExec 512;
 procedure DeleteIORequest(IORequest: PIORequest); syscall IExec 516;
 
 function DoIO(ioRequest: PIORequest): shortint; syscall IExec 528;
 
-procedure RawPutChar(c: Char); syscall IExec 760;
+procedure RawPutChar(c: AnsiChar); syscall IExec 760;

rtl/amiga/system.pp

@@ -73,8 +73,8 @@ const
   DriveSeparator = ':';
   ExtensionSeparator = '.';
   PathSeparator = ';';
-  AllowDirectorySeparators : set of char = ['\','/'];
-  AllowDriveSeparators : set of char = [':'];
+  AllowDirectorySeparators : set of AnsiChar = ['\','/'];
+  AllowDriveSeparators : set of AnsiChar = [':'];
   maxExitCode = 255;
   MaxPathLen = 256;
   AllFilesMask = '#?';
@@ -119,12 +119,12 @@ var
   ASYS_origDir  : LongInt; { original directory on startup }
   AOS_wbMsg    : Pointer; public name '_WBenchMsg'; { the "public" part is amunits compatibility kludge }
   _WBenchMsg   : Pointer; external name '_WBenchMsg'; { amunits compatibility kludge }
-  AOS_ConName  : PChar ='CON:10/30/620/100/FPC Console Output/AUTO/CLOSE/WAIT';
+  AOS_ConName  : PAnsiChar ='CON:10/30/620/100/FPC Console Output/AUTO/CLOSE/WAIT';
   AOS_ConHandle: LongInt;
 
   argc: LongInt;
-  argv: PPChar;
-  envp: PPChar;
+  argv: PPAnsiChar;
+  envp: PPAnsiChar;
 
 
 implementation
@@ -185,7 +185,7 @@ type
     PWBArg = ^TWBArg;
     TWBArg = record
         wa_Lock         : LongInt;      { a lock descriptor }
-        wa_Name         : PChar;       { a string relative to that lock }
+        wa_Name         : PAnsiChar;       { a string relative to that lock }
     end;
 
     WBArgList = array[1..MaxInt] of TWBArg; { Only 1..smNumArgs are valid }