mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-18 15:09:20 +02:00
* string -> shortstring
This commit is contained in:
parent
b8b091cef8
commit
aa3a5f8324
@ -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] }
|
||||||
|
Loading…
Reference in New Issue
Block a user