* string -> shortstring

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

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;