From 33ec5643c6b899d2a378a80f93b2041949c055f8 Mon Sep 17 00:00:00 2001
From: Michael VAN CANNEYT <mvancanneyt@tixeo.com>
Date: Fri, 6 Jan 2023 10:56:49 +0100
Subject: [PATCH] * string -> shortstring

---
 rtl/android/sysandroid.inc  | 6 +++---
 rtl/android/sysandroidh.inc | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/rtl/android/sysandroid.inc b/rtl/android/sysandroid.inc
index 1e80cd0e61..5c3ba30047 100644
--- a/rtl/android/sysandroid.inc
+++ b/rtl/android/sysandroid.inc
@@ -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
diff --git a/rtl/android/sysandroidh.inc b/rtl/android/sysandroidh.inc
index 5a9572bf6c..06a97ed290 100644
--- a/rtl/android/sysandroidh.inc
+++ b/rtl/android/sysandroidh.inc
@@ -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;