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

---
 rtl/wii/system.pp | 2 +-
 rtl/wii/wiih.inc  | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/rtl/wii/system.pp b/rtl/wii/system.pp
index 5116f90660..17172ad332 100644
--- a/rtl/wii/system.pp
+++ b/rtl/wii/system.pp
@@ -120,7 +120,7 @@ End;
 var
  execpathstr : shortstring;
 
-function paramstr(l: longint) : string;
+function paramstr(l: longint) : shortstring;
  begin
    { stricly conforming POSIX applications  }
    { have the executing filename as argv[0] }
diff --git a/rtl/wii/wiih.inc b/rtl/wii/wiih.inc
index 946286da67..2fa6e86edc 100644
--- a/rtl/wii/wiih.inc
+++ b/rtl/wii/wiih.inc
@@ -44,9 +44,9 @@ type
   end;
   PFileIO = ^TFileIO;
 
-  TDoMkdir  = procedure (const s: string);
-  TDoRmdir  = procedure (const s: string);
-  TDoChdir  = procedure (const s: string);
+  TDoMkdir  = procedure (const s: shortstring);
+  TDoRmdir  = procedure (const s: shortstring);
+  TDoChdir  = procedure (const s: shortstring);
   TDoGetdir = procedure (DriveNr: byte; var Dir: ShortString);
 
   TDirIO = packed record