2
0
Эх сурвалжийг харах

* fix 'ppc386 -F' crash

git-svn-id: trunk@7546 -
pierre 18 жил өмнө
parent
commit
43f72f56f9

+ 4 - 0
compiler/options.pas

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