Răsfoiți Sursa

+ check validity of -Oa parameter

git-svn-id: trunk@1559 -
florian 20 ani în urmă
părinte
comite
a3ed7cbd12
1 a modificat fișierele cu 2 adăugiri și 1 ștergeri
  1. 2 1
      compiler/i386/cpuswtch.pas

+ 2 - 1
compiler/i386/cpuswtch.pas

@@ -58,7 +58,8 @@ begin
                    end;
                  'a' :
                    begin
-                     UpdateAlignmentStr(Copy(Opt,j+1,255),ParaAlignment);
+                     if not(UpdateAlignmentStr(Copy(Opt,j+1,255),ParaAlignment)) then
+                       IllegalPara(opt);
                      j:=length(Opt);
                    end;
                  'g' : initglobalswitches:=initglobalswitches+[cs_littlesize];