From f4580ff612b2e24eccac30c99a709019ef4dd457 Mon Sep 17 00:00:00 2001
From: Pierre Muller <pierre@freepascal.org>
Date: Thu, 21 Oct 2021 22:09:05 +0200
Subject: [PATCH]  Fix compilation of nds and wii OS rtl

---
 rtl/nds/system.pp | 2 +-
 rtl/wii/system.pp | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/rtl/nds/system.pp b/rtl/nds/system.pp
index 31f9583e40..7f32145fa3 100644
--- a/rtl/nds/system.pp
+++ b/rtl/nds/system.pp
@@ -159,7 +159,7 @@ function paramstr(l: longint) : string;
      begin
        paramstr := execpathstr;
      end
-   else (l > 0) and (l < argc) then
+   else if (l > 0) and (l < argc) then
      paramstr := strpas(argv[l])
   else
     paramstr := '';
diff --git a/rtl/wii/system.pp b/rtl/wii/system.pp
index 182e0ed22e..1ce5510c4c 100644
--- a/rtl/wii/system.pp
+++ b/rtl/wii/system.pp
@@ -128,7 +128,7 @@ function paramstr(l: longint) : string;
      begin
        paramstr := execpathstr;
      end
-   else (l > 0) and ( l < argc ) then
+   else if (l > 0) and ( l < argc ) then
      paramstr:=strpas(argv[l])
    else
      paramstr:='';