fpc322: fix segfault on arm

diff --git a/src/game/g_game.pas b/src/game/g_game.pas
index e79845b5c88d12ebf3323269822cc25dacf81065..7fe421c36bd35ee87f43af33f9a981b1b00ad369 100644 (file)
--- 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