Artur Efimov před 6 roky
rodič
revize
922ba8ccf7
1 změnil soubory, kde provedl 2 přidání a 2 odebrání
  1. 2 2
      src/FreeOberon.Mod

+ 2 - 2
src/FreeOberon.Mod

@@ -979,8 +979,8 @@ VAR i, nofnames: INTEGER;
 BEGIN fs := TRUE; sw := FALSE; i := 0; nofnames := 0;
   WHILE i # Modules.ArgCount DO
     Modules.GetArg(i, s);
-    IF s = '-window' THEN fs := FALSE
-    ELSIF s = '-software' THEN sw := TRUE
+    IF s = '--window' THEN fs := FALSE
+    ELSIF s = '--software' THEN sw := TRUE
     ELSIF nofnames < LEN(fnames) THEN
       COPY(s, fnames[nofnames]); INC(nofnames)
     END;