paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 22:20:19 +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 begin
end; end;
function Createport(name : PChar; pri : longint): integer; function Createport(name : PAnsiChar; pri : longint): integer;
begin begin
result := -1; result := -1;
end; end;
@ -256,7 +256,7 @@ procedure AddDevice(str : String);
begin begin
end; end;
function MakeDeviceName(str : pchar): string; function MakeDeviceName(str : PAnsiChar): string;
begin begin
result := ''; result := '';
end; end;

2
rtl/symbian/symbian.pas
View File

@ -31,7 +31,7 @@ uses ctypes;
{ User class } { User class }
function User_InfoPrint(aString: PChar): TInt; cdecl; external; function User_InfoPrint(aString: PAnsiChar): TInt; cdecl; external;
implementation 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 8-bit unsigned integer type; used in Symbian OS to mean an 8-bit
unsigned integer, independent of the implementation. 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. 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 Use instead of TInt8 where the application is really for text rather than
8-bit arithmetic or binary quantities. 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. 8-bit text, regardless of build.
@see TText } @see TText }
type TText8 = Char; type TText8 = AnsiChar;
@ -2748,7 +2748,7 @@ Asserts that a condition is true at compilation time.
{ {
@internalComponent @internalComponent
} }
//static const char* const KSuppressPlatSecDiagnosticMagicValue = (const char*)1; //static const AnsiChar* const KSuppressPlatSecDiagnosticMagicValue = (const AnsiChar*)1;
//#ifndef __REMOVE_PLATSEC_DIAGNOSTIC_STRINGS__ //#ifndef __REMOVE_PLATSEC_DIAGNOSTIC_STRINGS__
{ {
@ -2811,7 +2811,7 @@ argument, these APIs will not emit any form of diagnostic message.
@publishedPartner @publishedPartner
@released @released
} }
//static const char* const KSuppressPlatSecDiagnostic = KSuppressPlatSecDiagnosticMagicValue; //static const AnsiChar* const KSuppressPlatSecDiagnostic = KSuppressPlatSecDiagnosticMagicValue;
//#else /* __REMOVE_PLATSEC_DIAGNOSTIC_STRINGS__ } //#else /* __REMOVE_PLATSEC_DIAGNOSTIC_STRINGS__ }

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

@ -4,5 +4,5 @@
{ User class } { 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; end;
procedure do_erase(p : pchar; pchangeable: boolean); procedure do_erase(p : PAnsiChar; pchangeable: boolean);
begin begin
end; end;
procedure do_rename(p1,p2 : pchar; p1changeable, p2changeable: boolean); procedure do_rename(p1,p2 : PAnsiChar; p1changeable, p2changeable: boolean);
begin begin
end; end;
@ -85,7 +85,7 @@ begin
end; end;
procedure do_open(var f;p:pchar;flags:longint; pchangeable: boolean); procedure do_open(var f;p:PAnsiChar;flags:longint; pchangeable: boolean);
begin begin
end; end;

10
rtl/symbian/system.pp
View File

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

2
rtl/symbian/uiqclasses.pas
View File

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

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

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

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

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