paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 10:50:32 +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:10:04 +01:00 committed by Michaël Van Canneyt
parent 59016499dc
commit e9ce7ebd4b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/symbian/system.pp
View File

@ -144,7 +144,7 @@ begin
paramcount := argc - 1; paramcount := argc - 1;
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
paramstr:=strpas(argv[l]) paramstr:=strpas(argv[l])