paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-21 23:41:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

* string -> shortstring

Browse Source
This commit is contained in:
Michael VAN CANNEYT 2023-01-06 10:56:49 +01:00 committed by Michaël Van Canneyt
parent 9bb9ec0fa2
commit 33ec5643c6
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/android/sysandroid.inc
View File

@ -178,7 +178,7 @@ var
function SystemApiLevel: shortint;
var
s: string;
s: shortstring;
c: integer;
begin
if _ApiLevel < 0 then
@ -307,7 +307,7 @@ begin
RedirectFile(StdErr);
end;
procedure SetDefaultSysLogTag(const Tag: string);
procedure SetDefaultSysLogTag(const Tag: shortstring);
var
len: longint;
begin
@ -330,7 +330,7 @@ end;
procedure InitAndroid;
var
i: integer;
s: string;
s: shortstring;
begin
if IsJniLibrary then
begin

2
rtl/android/sysandroidh.inc
View File

@ -26,7 +26,7 @@ const
var DefaultSysLogPriority: longint = ANDROID_LOG_DEBUG;
// Set default tag for syslog messages. Initially the tag is set to the current module name.
procedure SetDefaultSysLogTag(const Tag: string);
procedure SetDefaultSysLogTag(const Tag: Shortstring);
// Write a message to the Android system log.
procedure SysLogWrite(Priority: longint; Tag, Msg: PAnsiChar); overload;