+
+ /* 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
+ printf("\n");
+
+#ifdef LISP_FEATURE_BSD
+ printf(";;; sysctl(3) names\n");
+ printf("(in-package \"SB!IMPL\")\n");
+ defconstant("ctl-kern", CTL_KERN);
+ defconstant("ctl-hw", CTL_HW);
+ defconstant("ctl-maxname", CTL_MAXNAME);
+ defconstant("kern-ostype", KERN_OSTYPE);
+ defconstant("kern-osrelease", KERN_OSRELEASE);
+ defconstant("hw-model", HW_MODEL);
+ defconstant("hw-pagesize", HW_PAGESIZE);
+ printf("\n");
+#endif
+
+ printf("(in-package \"SB!KERNEL\")\n\n");
+#ifdef LISP_FEATURE_GENCGC
+ printf(";;; GENCGC related\n");
+ DEFTYPE("page-index-t", page_index_t);
+ DEFTYPE("generation-index-t", generation_index_t);
+ printf("\n");
+#endif
+
+ printf(";;; Our runtime types\n");
+ DEFTYPE("os-vm-size-t", os_vm_size_t);
+