* don't give a warning for {$u-} (means "Pentium-safe fdiv off", is only

    behaviour that fpc supports)


git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@6171 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 9 insertions, 2 deletions

diff --git a/compiler/switches.pas b/compiler/switches.pas
index 7e17ae08ea..7c048f049f 100644
--- a/compiler/switches.pas
+++ b/compiler/switches.pas
@@ -39,7 +39,7 @@ uses
 ****************************************************************************}
 
 type
-  TSwitchType=(ignoredsw,localsw,modulesw,globalsw,illegalsw,unsupportedsw,alignsw,optimizersw,packenumsw);
+  TSwitchType=(ignoredsw,localsw,modulesw,globalsw,illegalsw,unsupportedsw,alignsw,optimizersw,packenumsw,pentiumfdivsw);
   SwitchRec=record
     typesw : TSwitchType;
     setsw  : byte;
@@ -68,7 +68,7 @@ const
    {R} (typesw:localsw; setsw:ord(cs_check_range)),
    {S} (typesw:localsw; setsw:ord(cs_check_stack)),
    {T} (typesw:localsw; setsw:ord(cs_typed_addresses)),
-   {U} (typesw:illegalsw; setsw:ord(cs_localnone)),
+   {U} (typesw:pentiumfdivsw; setsw:ord(cs_localnone)),
    {V} (typesw:localsw; setsw:ord(cs_strict_var_strings)),
    {W} (typesw:localsw; setsw:ord(cs_generate_stackframes)),
    {X} (typesw:modulesw; setsw:ord(cs_extsyntax)),
@@ -195,6 +195,13 @@ begin
            else
              current_settings.packenum:=4;
          end;
+       pentiumfdivsw:
+         begin
+           { Switch u- means pentium-safe fdiv off -> fpc default. We don't }
+           { support u+                                                     }
+           if state='+' then
+             Message1(scan_w_unsupported_switch,'$'+switch);
+         end;
      end;
    end;
 end;