From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Thu, 2 Nov 2006 15:11:25 +0000 (+0000)
Subject: 0.9.18.27: fix darwin build
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=a30a3d82293eca3eb036ea0c713b0da31c0467dc;p=sbcl.git

0.9.18.27: fix darwin build
 * Deal with missing FPE_FOO constants.
---

diff --git a/tools-for-build/grovel-headers.c b/tools-for-build/grovel-headers.c
index ed6cfe6..a9fe11d 100644
--- a/tools-for-build/grovel-headers.c
+++ b/tools-for-build/grovel-headers.c
@@ -354,14 +354,30 @@ main(int argc, char *argv[])
     defsignal("sigxcpu", SIGXCPU);
     defsignal("sigxfsz", SIGXFSZ);
 #endif
+
+   /* Floating point exception codes. Some of these
+    * are missing on Darwin. */
+#ifdef FPE_INTOVF
     defconstant("fpe-intovf", FPE_INTOVF);
+#else
+    defconstant("fpe-intovf", -1);
+#endif
+#ifdef FPE_INTDIV
     defconstant("fpe-intdiv", FPE_INTDIV);
+#else
+    defconstant("fpe-intdiv", -1);
+#endif
     defconstant("fpe-fltdiv", FPE_FLTDIV);
     defconstant("fpe-fltovf", FPE_FLTOVF);
     defconstant("fpe-fltund", FPE_FLTUND);
     defconstant("fpe-fltres", FPE_FLTRES);
     defconstant("fpe-fltinv", FPE_FLTINV);
+#ifdef FPE_FLTSUB
     defconstant("fpe-fltsub", FPE_FLTSUB);
+#else
+    defconstant("fpe-fltsub", -1);
+#endif
+
 #endif // _WIN32
     return 0;
 }
diff --git a/version.lisp-expr b/version.lisp-expr
index e79fe37..cd591ea 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.18.26"
+"0.9.18.27"