From 3ef367922e36ea5b4601d565dd8befe336b8101b Mon Sep 17 00:00:00 2001
From: DeaDDooMER <deaddoomer@deadsoftware.ru>
Date: Tue, 14 Dec 2021 23:50:29 +0300
Subject: [PATCH] fpc322: fix segfault on arm

---
 src/game/g_game.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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
-- 
2.29.2