* string -> shortstring

This commit is contained in:
Michael VAN CANNEYT 2023-01-06 10:54:54 +01:00 committed by Michaël Van Canneyt
parent b8b091cef8
commit aa3a5f8324

View File

@ -76,10 +76,10 @@ Begin
end; end;
function paramstr(l: longint) : string; function paramstr(l: longint) : shortstring;
var var
s: string; s: shortstring;
s1: string; s1: shortstring;
begin begin
{ stricly conforming POSIX applications } { stricly conforming POSIX applications }
{ have the executing filename as argv[0] } { have the executing filename as argv[0] }