Преглед изворни кода

+ check validity of -Oa parameter

git-svn-id: trunk@1559 -
florian пре 20 година
родитељ
комит
a3ed7cbd12
1 измењених фајлова са 2 додато и 1 уклоњено
  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];