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

---
 rtl/i386/i386.inc     | 4 ++--
 rtl/i386/stringss.inc | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/rtl/i386/i386.inc b/rtl/i386/i386.inc
index 56d1e93448..904896df8a 100644
--- a/rtl/i386/i386.inc
+++ b/rtl/i386/i386.inc
@@ -1688,7 +1688,7 @@ end;
 label str_int_shortcut;
 
 
-procedure int_str(l:longword;out s:string);assembler;nostackframe;
+procedure int_str(l:longword;out s:shortstring);assembler;nostackframe;
 
 asm
   pushl %esi
@@ -1699,7 +1699,7 @@ asm
   jmp str_int_shortcut
 end;
 
-procedure int_str(l:longint;out s:string);assembler;nostackframe;
+procedure int_str(l:longint;out s:shortstring);assembler;nostackframe;
 
 {Optimized for speed, but balanced with size.}
 
diff --git a/rtl/i386/stringss.inc b/rtl/i386/stringss.inc
index ba5356105e..afcac49085 100644
--- a/rtl/i386/stringss.inc
+++ b/rtl/i386/stringss.inc
@@ -17,7 +17,7 @@
 
 {$ifndef FPC_UNIT_HAS_STRPCOPY}
 {$define FPC_UNIT_HAS_STRPCOPY}
-function strpcopy(d : PAnsiChar;const s : string) : PAnsiChar;assembler;
+function strpcopy(d : PAnsiChar;const s : shortstring) : PAnsiChar;assembler;
 var
   saveesi,saveedi : longint;
 asm