mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-17 10:19:28 +02:00
* string -> shortstring
This commit is contained in:
parent
b8b091cef8
commit
aa3a5f8324
@ -76,10 +76,10 @@ Begin
|
||||
end;
|
||||
|
||||
|
||||
function paramstr(l: longint) : string;
|
||||
function paramstr(l: longint) : shortstring;
|
||||
var
|
||||
s: string;
|
||||
s1: string;
|
||||
s: shortstring;
|
||||
s1: shortstring;
|
||||
begin
|
||||
{ stricly conforming POSIX applications }
|
||||
{ have the executing filename as argv[0] }
|
||||
|
Loading…
Reference in New Issue
Block a user