From: DeaDDooMER <deaddoomer@deadsoftware.ru>
Date: Tue, 14 Dec 2021 20:50:29 +0000 (+0300)
Subject: fpc322: fix segfault on arm
X-Git-Url: http://deadsoftware.ru/gitweb?a=commitdiff_plain;h=3ef367922e36ea5b4601d565dd8befe336b8101b;p=d2df-sdl.git

fpc322: fix segfault on arm
---

diff --git a/src/game/g_game.pas b/src/game/g_game.pas
index e79845b..7fe421c 100644
--- a/src/game/g_game.pas
+++ b/src/game/g_game.pas
@@ -8069,9 +8069,9 @@ begin
   while i <= ParamCount do
   begin
     s := ParamStr(i);
-    if (s[1] = '-') and (Length(s) > 1) then
+    if (Length(s) > 1) and (s[1] = '-') then
     begin
-      if (s[2] = '-') and (Length(s) > 2) then
+      if (Length(s) > 2) and (s[2] = '-') then
         begin // Îäèíî÷íûé ïàðàìåòð
           SetLength(pars, Length(pars) + 1);
           with pars[High(pars)] do