Browse Source

Merged revisions 7546 via svnmerge from
http://svn.freepascal.org/svn/fpc/trunk

........
r7546 | pierre | 2007-06-02 00:50:37 +0200 (Sat, 02 Jun 2007) | 1 line

* fix 'ppc386 -F' crash
........

git-svn-id: branches/fixes_2_2@7559 -

pierre 18 years ago
parent
commit
55ebdbb403
1 changed files with 4 additions and 0 deletions
  1. 4 0
      compiler/options.pas

+ 4 - 0
compiler/options.pas

@@ -677,6 +677,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);
@@ -1021,6 +1023,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