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

---
 rtl/nativent/system.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/nativent/system.pp b/rtl/nativent/system.pp
index 6fd59ec7f2..bdb84ad322 100644
--- a/rtl/nativent/system.pp
+++ b/rtl/nativent/system.pp
@@ -253,7 +253,7 @@ begin
   paramcount := argc - 1;
 end;
 
-function paramstr(l : longint) : string;
+function paramstr(l : longint) : shortstring;
 begin
   if (l>=0) and (l<argc) then
     paramstr:=strpas(argv[l])