paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 15:39:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Char -> AnsiChar

Browse Source
This commit is contained in:
Michael VAN CANNEYT 2022-12-21 17:00:55 +01:00 committed by Michaël Van Canneyt
parent 2ce2bab2a6
commit 7cba4bffa1
9 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/symbian/dos.pp
View File

@ -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;

2
rtl/symbian/symbian.pas
View File

@ -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

10
rtl/symbian/symbianinc/e32def.inc
View File

@ -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__ }

2
rtl/symbian/symbianinc/e32std.inc
View File

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

6
rtl/symbian/sysfile.inc
View File

@ -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;

10
rtl/symbian/system.pp
View File

@ -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;

2
rtl/symbian/uiqclasses.pas
View File

@ -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

2
rtl/symbian/uiqinc/qikapplication.inc
View File

@ -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

2
rtl/symbian/uiqinc/qikapplicationoo.inc
View File

@ -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