Browse Source

+ check validity of -Oa parameter

git-svn-id: trunk@1559 -
florian 20 years ago
parent
commit
a3ed7cbd12
1 changed files with 2 additions and 1 deletions
  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];