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

---
 rtl/beos/ossysc.inc |  2 +-
 rtl/beos/system.pp  | 16 ++++++++--------
 2 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/rtl/beos/ossysc.inc b/rtl/beos/ossysc.inc
index 705106423a..d512b40227 100644
--- a/rtl/beos/ossysc.inc
+++ b/rtl/beos/ossysc.inc
@@ -250,7 +250,7 @@ const
   myheaprealsize=$20000;
 var
   myheapstart:pointer;
-  s : string;
+  s : shortstring;
 begin
   WriteLn('fpmmap');
   Str(len, s);
diff --git a/rtl/beos/system.pp b/rtl/beos/system.pp
index 1b08c29fad..b8e39124d9 100644
--- a/rtl/beos/system.pp
+++ b/rtl/beos/system.pp
@@ -88,7 +88,7 @@ end ['EAX'];*)
 { must return the first address of new data space or nil if fail }
 (*function Sbrk(size : longint):pointer;
 var newsize,newrealsize:longint;
-  s : string;
+  s : shortstring;
 begin
   WriteLn('SBRK');
   Str(size, s);
@@ -133,7 +133,7 @@ function sys_resize_area (handle:cardinal; size:longint):longint; cdecl; externa
 { must return the first address of new data space or nil if fail }
 //function Sbrk(size : longint):pointer;
 //var newsize,newrealsize:longint;
-//  s : string;
+//  s : shortstring;
 //begin
 //  sbrk := sbrk2(size);
 (*  sbrk := nil;
@@ -202,7 +202,7 @@ function sys_resize_area (handle:cardinal; size:longint):longint; cdecl; externa
 
 Function ParamCount: Longint;
 var
-  s : string;
+  s : shortstring;
 Begin
   ParamCount := 0;
   Paramcount:=argc - 1;
@@ -240,7 +240,7 @@ var
  cookie: longint;
  image : image_info;
  index : byte;
- s : string;
+ s : shortstring;
 begin
   cookie:=0;
   fillchar(image, sizeof(image_info), 0);
@@ -260,10 +260,10 @@ begin
     end;
 end;
 
-function paramstr(l: longint) : string;
+function paramstr(l: longint) : shortstring;
 var
-  s: string;
-  s1: string;
+  s: shortstring;
+  s1: shortstring;
 begin
 
   { stricly conforming POSIX applications  }
@@ -370,7 +370,7 @@ begin
 end;
 
 var
-  s : string;
+  s : shortstring;
 begin
   IsConsole := TRUE;
   StackLength := CheckInitialStkLen(InitialStkLen);