Răsfoiți Sursa

* forgot to commit (-CF<x> support)

git-svn-id: trunk@8351 -
Jonas Maebe 18 ani în urmă
părinte
comite
c7a5b0cf33
1 a modificat fișierele cu 13 adăugiri și 7 ștergeri
  1. 13 7
      compiler/options.pas

+ 13 - 7
compiler/options.pas

@@ -492,13 +492,19 @@ begin
                            include(init_settings.moduleswitches,cs_fp_emulation);
                        end;
 {$endif cpufpemu}
-                   'f' :
-                     begin
-                       s:=upper(copy(more,j+1,length(more)-j));
-                       if not(SetFpuType(s,init_settings.fputype)) then
-                         IllegalPara(opt);
-                       break;
-                     end;
+                    'f' :
+                      begin
+                        s:=upper(copy(more,j+1,length(more)-j));
+                        if not(SetFpuType(s,init_settings.fputype)) then
+                          IllegalPara(opt);
+                        break;
+                      end;
+                    'F' :
+                       begin
+                         if not SetMinFPConstPrec(copy(more,j+1,length(more)-j),init_settings.minfpconstprec) then
+                           IllegalPara(opt);
+                         break;
+                       end;
                     'g' :
                        if tf_no_pic_supported in target_info.flags then
                          message(scan_w_pic_ignored)