Explorar el Código

+ check validity of -Oa parameter

git-svn-id: trunk@1559 -
florian hace 20 años
padre
commit
a3ed7cbd12
Se han modificado 1 ficheros con 2 adiciones y 1 borrados
  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];