ソースを参照

* fix 'ppc386 -F' crash

git-svn-id: trunk@7546 -
pierre 18 年 前
コミット
43f72f56f9
1 ファイル変更4 行追加0 行削除
  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