Fix bug #62836.

diff --git a/src/microcode/floenv.c b/src/microcode/floenv.c
index c6c8695e15e1e75642c0bb6ca013d8edd6433ce8..ccecef45925b8aa97a8ab0699298ea22fa4ab0c5 100644 (file)
--- a/src/microcode/floenv.c
+++ b/src/microcode/floenv.c
@@ -168,6 +168,7 @@ clear_float_exceptions (void)
 
 /* FIXME: Alignment?  */
 
+#ifdef HAVE_FEGETENV
 static SCHEME_OBJECT
 allocate_fenv (fenv_t **envp_loc)
 {
@@ -175,7 +176,9 @@ allocate_fenv (fenv_t **envp_loc)
   (*envp_loc) = ((fenv_t *) (VECTOR_8B_POINTER (environment)));
   return (environment);
 }
+#endif
 
+#if defined(HAVE_FESETENV) || defined(HAVE_FEUPDATEENV)
 static fenv_t *
 arg_fenv (int n)
 {
@@ -184,7 +187,9 @@ arg_fenv (int n)
     error_bad_range_arg (n);
   return ((fenv_t *) (VECTOR_8B_POINTER (environment)));
 }
+#endif
 
+#ifdef HAVE_FEGETEXCEPTFLAG
 static SCHEME_OBJECT
 allocate_fexcept (fexcept_t **flagp_loc)
 {
@@ -192,7 +197,9 @@ allocate_fexcept (fexcept_t **flagp_loc)
   (*flagp_loc) = ((fexcept_t *) (VECTOR_8B_POINTER (flags)));
   return (flags);
 }
+#endif
 
+#ifdef HAVE_FESETEXCEPTFLAG
 static fexcept_t *
 arg_fexcept (int n)
 {
@@ -201,6 +208,7 @@ arg_fexcept (int n)
     error_bad_range_arg (n);
   return ((fexcept_t *) (VECTOR_8B_POINTER (flags)));
 }
+#endif
 \f
 DEFINE_PRIMITIVE ("FLOAT-ENVIRONMENT", Prim_float_environment, 0, 0, 0)
 {