Update

[l4.git] / l4 / pkg / libgfortran / lib / contrib / config / fpu-generic.h

diff --git a/l4/pkg/libgfortran/lib/contrib/config/fpu-generic.h b/l4/pkg/libgfortran/lib/contrib/config/fpu-generic.h
index b64f90cc58433c18b2317f6b7b62585e1d12a03e..c47e780b8013284145621449b3e7ff85925d3a5e 100644 (file)
--- a/l4/pkg/libgfortran/lib/contrib/config/fpu-generic.h
+++ b/l4/pkg/libgfortran/lib/contrib/config/fpu-generic.h
@@ -1,5 +1,5 @@
 /* Fallback FPU-related code (for systems not otherwise supported).
-   Copyright 2005, 2007, 2009, 2011 Free Software Foundation, Inc.
+   Copyright (C) 2005-2015 Free Software Foundation, Inc.
    Contributed by Francois-Xavier Coudert <coudert@clipper.ens.fr>
 
 This file is part of the GNU Fortran runtime library (libgfortran).
@@ -50,3 +50,49 @@ set_fpu (void)
     estr_write ("Fortran runtime warning: IEEE 'inexact' "
                "exception not supported.\n");
 }
+
+void
+set_fpu_trap_exceptions (int trap __attribute__((unused)),
+                        int notrap __attribute__((unused)))
+{
+}
+
+int
+get_fpu_except_flags (void)
+{
+  return 0;
+}
+
+
+int
+get_fpu_rounding_mode (void)
+{   
+  return 0;
+}               
+
+
+void
+set_fpu_rounding_mode (int round __attribute__((unused)))
+{
+}
+
+
+int
+support_fpu_underflow_control (int kind __attribute__((unused)))
+{
+  return 0;
+}
+
+
+int
+get_fpu_underflow_mode (void)
+{
+  return 0;
+}
+
+
+void
+set_fpu_underflow_mode (int gradual __attribute__((unused)))
+{
+}
+