Parcourir la source

* fix 'ppc386 -F' crash

git-svn-id: trunk@7546 -
pierre il y a 18 ans
Parent
commit
43f72f56f9
1 fichiers modifiés avec 4 ajouts et 0 suppressions
  1. 4 0
      compiler/options.pas

+ 4 - 0
compiler/options.pas

@@ -679,6 +679,8 @@ begin
 
            'F' :
              begin
+               if more='' then
+                 IllegalPara(opt);
                c:=more[1];
                Delete(more,1,1);
                DefaultReplacements(More);
@@ -1031,6 +1033,8 @@ begin
 
            'S' :
              begin
+               if more='' then
+                 IllegalPara(opt);
                if more[1]='I' then
                  begin
                    if upper(more)='ICOM' then