* Char -> AnsiChar

rtl/symbian/dos.pp

@@ -93,7 +93,7 @@ procedure DeleteExtIO ();
 begin
 end;
 
-function Createport(name : PChar; pri : longint): integer;
+function Createport(name : PAnsiChar; pri : longint): integer;
 begin
   result := -1;
 end;
@@ -256,7 +256,7 @@ procedure AddDevice(str : String);
 begin
 end;
 
-function MakeDeviceName(str : pchar): string;
+function MakeDeviceName(str : PAnsiChar): string;
 begin
   result := '';
 end;

rtl/symbian/symbian.pas

@@ -31,7 +31,7 @@ uses ctypes;
 
 { User class }
 
-function User_InfoPrint(aString: PChar): TInt; cdecl; external;
+function User_InfoPrint(aString: PAnsiChar): TInt; cdecl; external;
 
 implementation
 

rtl/symbian/symbianinc/e32def.inc

@@ -516,7 +516,7 @@ type TInt8 = Byte;
 8-bit unsigned integer type; used in Symbian OS to mean an 8-bit
 unsigned integer, independent of the implementation.
 }
-type TUint8 = Char;
+type TUint8 = AnsiChar;
 
 
 
@@ -690,7 +690,7 @@ their limited precision is acceptable.
 
 8-bit unsigned character.
 
-Use instead of C++ built-in char type because it is guaranteed to be unsigned.
+Use instead of C++ built-in AnsiChar type because it is guaranteed to be unsigned.
 Use instead of TInt8 where the application is really for text rather than
 8-bit arithmetic or binary quantities.
 
@@ -700,7 +700,7 @@ variant is being built. Use TText8 only when you are dealing explicitly with
 8-bit text, regardless of build.
 
 @see TText }
-type TText8 = Char;
+type TText8 = AnsiChar;
 
 
 
@@ -2748,7 +2748,7 @@ Asserts that a condition is true at compilation time.
 {
 @internalComponent
 }
-//static const char* const KSuppressPlatSecDiagnosticMagicValue = (const char*)1;
+//static const AnsiChar* const KSuppressPlatSecDiagnosticMagicValue = (const AnsiChar*)1;
 
 //#ifndef __REMOVE_PLATSEC_DIAGNOSTIC_STRINGS__
 {
@@ -2811,7 +2811,7 @@ argument, these APIs will not emit any form of diagnostic message.
 @publishedPartner
 @released
 }
-//static const char* const KSuppressPlatSecDiagnostic = KSuppressPlatSecDiagnosticMagicValue;
+//static const AnsiChar* const KSuppressPlatSecDiagnostic = KSuppressPlatSecDiagnosticMagicValue;
 
 //#else /* __REMOVE_PLATSEC_DIAGNOSTIC_STRINGS__ }
 

rtl/symbian/symbianinc/e32std.inc

@@ -4,5 +4,5 @@
 
 { User class }
 
-function User_InfoPrint(aString: PChar): TInt; cdecl; external;
+function User_InfoPrint(aString: PAnsiChar): TInt; cdecl; external;
 

rtl/symbian/sysfile.inc

@@ -31,13 +31,13 @@ begin
 end;
 
 
-procedure do_erase(p : pchar; pchangeable: boolean);
+procedure do_erase(p : PAnsiChar; pchangeable: boolean);
 begin
 
 end;
 
 
-procedure do_rename(p1,p2 : pchar; p1changeable, p2changeable: boolean);
+procedure do_rename(p1,p2 : PAnsiChar; p1changeable, p2changeable: boolean);
 begin
 
 end;
@@ -85,7 +85,7 @@ begin
 end;
 
 
-procedure do_open(var f;p:pchar;flags:longint; pchangeable: boolean);
+procedure do_open(var f;p:PAnsiChar;flags:longint; pchangeable: boolean);
 begin
 
 end;

rtl/symbian/system.pp

@@ -35,8 +35,8 @@ const
   DriveSeparator = ':';
   ExtensionSeparator = '.';
   PathSeparator = ';';
-  AllowDirectorySeparators : set of char = ['\','/'];
-  AllowDriveSeparators : set of char = [':'];
+  AllowDirectorySeparators : set of AnsiChar = ['\','/'];
+  AllowDriveSeparators : set of AnsiChar = [':'];
   { FileNameCaseSensitive and FileNameCasePreserving are defined separately below }
   maxExitCode = 65535;
   MaxPathLen = 260;
@@ -90,7 +90,7 @@ type
 var
 { C compatible arguments }
   argc : longint;
-  argv : ppchar;
+  argv : PPAnsiChar;
 { Win32 Info }
   startupinfo : tstartupinfo;
   hprevinst,
@@ -125,9 +125,9 @@ const KErrNone=0;
 *****************************************************************************}
 
 var
-  ModuleName : array[0..255] of char;
+  ModuleName : array[0..255] of AnsiChar;
 
-function GetCommandFile:pchar;
+function GetCommandFile:PAnsiChar;
 begin
 
 end;

rtl/symbian/uiqclasses.pas

@@ -31,7 +31,7 @@ uses ctypes;
 
 { User class }
 
-function User_InfoPrint(aString: PChar): TInt; cdecl; external;
+function User_InfoPrint(aString: PAnsiChar): TInt; cdecl; external;
 
 implementation
 

rtl/symbian/uiqinc/qikapplication.inc

@@ -31,7 +31,7 @@ uses ctypes;
 
 { User class }
 
-function User_InfoPrint(aString: PChar): TInt; cdecl; external;
+function User_InfoPrint(aString: PAnsiChar): TInt; cdecl; external;
 
 implementation
 

rtl/symbian/uiqinc/qikapplicationoo.inc

@@ -31,7 +31,7 @@ uses ctypes;
 
 { User class }
 
-function User_InfoPrint(aString: PChar): TInt; cdecl; external;
+function User_InfoPrint(aString: PAnsiChar): TInt; cdecl; external;
 
 implementation