From 50397328a2863a718140795967b94dacda76d124 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Thu, 13 Jul 2023 10:48:46 +0200
Subject: [PATCH] * Replace string -> shortstring

---
 rtl/go32v2/dpmiexcp.pp | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/rtl/go32v2/dpmiexcp.pp b/rtl/go32v2/dpmiexcp.pp
index 9ae5234f91..4caaed230f 100644
--- a/rtl/go32v2/dpmiexcp.pp
+++ b/rtl/go32v2/dpmiexcp.pp
@@ -14,6 +14,7 @@
  **********************************************************************}
 
 {$ifndef IN_SYSTEM}
+
 {$GOTO ON}
 {$define IN_DPMIEXCP_UNIT}
 {$ifndef NO_EXCEPTIONS_IN_SYSTEM}
@@ -474,12 +475,12 @@ const
                                   Helpers
 ****************************************************************************}
 
-procedure err(const x : string);
+procedure err(const x : shortstring);
 begin
    write(stderr, x);
 end;
 
-procedure errln(const x : string);
+procedure errln(const x : shortstring);
 begin
    writeln(stderr, x);
 end;
@@ -487,7 +488,7 @@ end;
 
 procedure itox(v,len : longint);
 var
-  st : string;
+  st : shortstring;
 begin
   st:=hexstr(v,len);
   err(st);
@@ -861,7 +862,7 @@ const
   old_video_mode : byte = 3;
 
 
-procedure dump_selector(const name : string; sel : word);
+procedure dump_selector(const name : shortstring; sel : word);
 var
   base,limit : longint;
 begin