paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 03:30:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* string -> shortstring

Browse Source
This commit is contained in:
Michael VAN CANNEYT 2023-01-06 11:24:27 +01:00 committed by Michaël Van Canneyt
parent 32d55bb0ea
commit e50d90b7e9
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/win/syswin.inc
View File

@ -376,7 +376,7 @@ begin
Result:=AnsiString(ParamStrU(l)); Result:=AnsiString(ParamStrU(l));
end; end;
Function ParamStr(l:Longint): string; Function ParamStr(l:Longint): shortstring;
begin begin
if (l >= 0) and (l < argc) then if (l >= 0) and (l < argc) then
Result:=argv[l] Result:=argv[l]

2
rtl/win16/system.pp
View File

@ -435,7 +435,7 @@ begin
end; end;
function paramstr(l : longint) : string; function paramstr(l : longint) : shortstring;
begin begin
if argv=nil then if argv=nil then
setup_arguments; setup_arguments;

2
rtl/wince/system.pp
View File

@ -746,7 +746,7 @@ begin
paramcount := argc - 1; paramcount := argc - 1;
end; end;
function paramstr(l : longint) : string; function paramstr(l : longint) : shortstring;
begin begin
setup_arguments; setup_arguments;
if (l>=0) and (l<Fargc) then if (l>=0) and (l<Fargc) then