paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 17:49:07 +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:08:03 +01:00 committed by Michaël Van Canneyt
parent 552c2146d8
commit 05620b271d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/palmos/syspara.inc
View File

@ -32,9 +32,9 @@ begin
end; end;
{ argument number l } { argument number l }
function ParamStr(l: LongInt): string; function ParamStr(l: LongInt): Shortstring;
var var
s1: string; s1: shortstring;
begin begin
ParamStr := ''; ParamStr := '';
if (l > 0) and (l + 1 <= argc) then if (l > 0) and (l + 1 <= argc) then