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

Fix compilation of nds and wii OS rtl

Browse Source
This commit is contained in:
Pierre Muller 2021-10-21 22:09:05 +02:00
parent 429438fbb9
commit f4580ff612
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/nds/system.pp
View File

@ -159,7 +159,7 @@ function paramstr(l: longint) : string;
begin begin
paramstr := execpathstr; paramstr := execpathstr;
end end
else (l > 0) and (l < argc) then else if (l > 0) and (l < argc) then
paramstr := strpas(argv[l]) paramstr := strpas(argv[l])
else else
paramstr := ''; paramstr := '';

2
rtl/wii/system.pp
View File

@ -128,7 +128,7 @@ function paramstr(l: longint) : string;
begin begin
paramstr := execpathstr; paramstr := execpathstr;
end end
else (l > 0) and ( l < argc ) then else if (l > 0) and ( l < argc ) then
paramstr:=strpas(argv[l]) paramstr:=strpas(argv[l])
else else
paramstr:=''; paramstr:='';