* string -> shortstring

This commit is contained in:
Michael VAN CANNEYT 2023-01-06 11:04:49 +01:00 committed by Pierre Muller
parent 518fdbf988
commit 81e3bb856c

View File

@ -151,7 +151,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] }