Преглед на файлове

+ 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];