* PChar -> PAnsiChar

packages/qlunits/examples/mtinf.pas

@@ -15,14 +15,14 @@ uses
   qdos;
 
 type
-  Tver = array[0..3] of char;
+  Tver = array[0..3] of AnsiChar;
 
 var
   job_id: longint;
   ver_ascii: longint;
   system_vars: pSystemVariables;
 
-function get_id_str(const id: dword): string;
+function get_id_str(const id: dword): AnsiString;
 begin
   case id of
     SYSID_QL: get_id_str:='QDOS';

packages/qlunits/examples/sms_info.pas

@@ -15,14 +15,14 @@ uses
   sms;
 
 type
-  Tver = array[0..3] of char;
+  Tver = array[0..3] of AnsiChar;
 
 var
   job_id: longint;
   ver_ascii: longint;
   system_vars: pSystemVariables;
 
-function get_id_str(const id: dword): string;
+function get_id_str(const id: dword): AnsiString;
 begin
   case id of
     SYSID_QL: get_id_str:='QDOS';

packages/qlunits/src/qdos.pas

@@ -29,7 +29,7 @@ type
   Pqlstr = ^Tqlstr;
   Tqlstr = record
     qs_strlen: word;
-    qs_str: array[0..0] of char;
+    qs_str: array[0..0] of AnsiChar;
   end;
 
 const
@@ -154,10 +154,10 @@ type
   Pqdos_queue = ^Tqdos_queue;
   Tqdos_queue = record
     q_nextq: Pqdos_queue;
-    q_end: pchar;
-    q_nextin: pchar;
-    q_nxtout: pchar;
-    q_queue: array[0..1] of char;
+    q_end: PAnsiChar;
+    q_nextin: PAnsiChar;
+    q_nxtout: PAnsiChar;
+    q_queue: array[0..1] of AnsiChar;
   end;
 
 const

packages/qlunits/src/qdosfuncs.inc

@@ -15,7 +15,7 @@
 
 
 procedure mt_frjob(jobID: Tjobid; exitCode: longint); external name '_mt_frjob';
-function mt_inf(sys_vars: ppchar; ver_ascii: plongint): Tjobid; external name '_mt_inf';
+function mt_inf(sys_vars: PPAnsiChar; ver_ascii: plongint): Tjobid; external name '_mt_inf';
 
 procedure mt_dmode(s_mode: pword; d_type: pword); external name '_mt_dmode';
 
@@ -23,21 +23,21 @@ function mt_alchp(size: dword; sizegot: pdword; jobid: Tjobid): pointer; externa
 procedure mt_rechp(area: pointer); external name '_mt_rechp';
 
 function io_open_qlstr(name_qlstr: pointer; mode: longint): Tchanid; external name '_io_open_qlstr';
-function io_open(name: pchar; mode: longint): Tchanid; external name '_io_open';
+function io_open(name: PAnsiChar; mode: longint): Tchanid; external name '_io_open';
 function io_close(chan: Tchanid): longint; external name '_io_close';
-function io_delet(name: pchar): longint; external name '_io_delet';
+function io_delet(name: PAnsiChar): longint; external name '_io_delet';
 
 function io_fbyte(chan: Tchanid; timeout: Ttimeout): longint; external name '_io_fbyte';
 function io_fline(chan: Tchanid; timeout: Ttimeout; buf: pointer; len: word): longint; external name '_io_fline';
 function io_fstrg(chan: Tchanid; timeout: Ttimeout; buf: pointer; len: word): longint; external name '_io_fstrg';
-function io_sbyte(chan: Tchanid; timeout: Ttimeout; c: char): longint; external name '_io_sbyte';
+function io_sbyte(chan: Tchanid; timeout: Ttimeout; c: AnsiChar): longint; external name '_io_sbyte';
 function io_sstrg(chan: Tchanid; timeout: Ttimeout; buf: pointer; len: word): longint; external name '_io_sstrg';
 
 function fs_posab(chan: Tchanid; var new_pos: longint): longint; external name '_fs_posab';
 function fs_posre(chan: Tchanid; var new_pos: longint): longint; external name '_fs_posre';
 function fs_headr(chan: Tchanid; buf: pointer; buf_size: word): longint; external name '_fs_headr';
 function fs_rename_qlstr(chan: Tchanid; new_name_as_qlstr: pointer): longint; external name '_fs_rename_qlstr';
-function fs_rename(chan: Tchanid; new_name: pchar): longint; external name '_fs_rename';
+function fs_rename(chan: Tchanid; new_name: PAnsiChar): longint; external name '_fs_rename';
 function fs_truncate(chan: Tchanid): longint; external name '_fs_truncate';
 function fs_mkdir(chan: Tchanid): longint; external name '_iof_mkdr'; { SMS }
 

packages/qlunits/src/smsfuncs.inc

@@ -13,6 +13,6 @@
 
  **********************************************************************}
 
-function sms_info(sys_vars: ppchar; ver_ascii: plongint): Tjobid; external name '_mt_inf';
+function sms_info(sys_vars: PPAnsiChar; ver_ascii: plongint): Tjobid; external name '_mt_inf';
 function iob_fbyt(chan: Tchanid; timeout: Ttimeout): longint; external name '_io_fbyte';
 function iof_mkdr(chan: Tchanid): longint; external name '_iof_mkdr';