defconstant ("CSIDL_FLAG_MASK", CSIDL_FLAG_MASK);
printf(";;; Exception codes\n");
+ defconstant("+exception-access-violation+", EXCEPTION_ACCESS_VIOLATION);
+ defconstant("+exception-array-bounds-exceeded+", EXCEPTION_ARRAY_BOUNDS_EXCEEDED);
+ defconstant("+exception-breakpoint+", EXCEPTION_BREAKPOINT);
+ defconstant("+exception-datatype-misalignment+", EXCEPTION_DATATYPE_MISALIGNMENT);
+ defconstant("+exception-flt-denormal-operand+", EXCEPTION_FLT_DENORMAL_OPERAND);
defconstant("+exception-flt-divide-by-zero+", EXCEPTION_FLT_DIVIDE_BY_ZERO);
+ defconstant("+exception-flt-inexact-result+", EXCEPTION_FLT_INEXACT_RESULT);
defconstant("+exception-flt-invalid-operation+", EXCEPTION_FLT_INVALID_OPERATION);
- defconstant("+exception-flt-underflow+", EXCEPTION_FLT_UNDERFLOW);
defconstant("+exception-flt-overflow+", EXCEPTION_FLT_OVERFLOW);
- defconstant("+exception-flt-inexact-result+", EXCEPTION_FLT_INEXACT_RESULT);
- defconstant("+exception-flt-denormal-operand+", EXCEPTION_FLT_DENORMAL_OPERAND);
defconstant("+exception-flt-stack-check+", EXCEPTION_FLT_STACK_CHECK);
+ defconstant("+exception-flt-underflow+", EXCEPTION_FLT_UNDERFLOW);
+ defconstant("+exception-illegal-instruction+", EXCEPTION_ILLEGAL_INSTRUCTION);
+ defconstant("+exception-in-page-error+", EXCEPTION_IN_PAGE_ERROR);
+ defconstant("+exception-int-divide-by-zero+", EXCEPTION_INT_DIVIDE_BY_ZERO);
+ defconstant("+exception-int-overflow+", EXCEPTION_INT_OVERFLOW);
+ defconstant("+exception-invalid-disposition+", EXCEPTION_INVALID_DISPOSITION);
+ defconstant("+exception-noncontinuable-exception+", EXCEPTION_NONCONTINUABLE_EXCEPTION);
+ defconstant("+exception-priv-instruction+", EXCEPTION_PRIV_INSTRUCTION);
+ defconstant("+exception-single-step+", EXCEPTION_SINGLE_STEP);
defconstant("+exception-stack-overflow+", EXCEPTION_STACK_OVERFLOW);
printf(";;; FormatMessage\n");
DEFTYPE("off-t", off_t);
DEFTYPE("size-t", size_t);
DEFTYPE("time-t", time_t);
+ DEFTYPE("suseconds-t", suseconds_t);
DEFTYPE("uid-t", uid_t);
printf("\n");
defconstant("o_noctty", O_NOCTTY);
defconstant("o_trunc", O_TRUNC);
defconstant("o_append", O_APPEND);
+#ifdef LISP_FEATURE_LARGEFILE
+ defconstant("o_largefile", O_LARGEFILE);
+#endif
+
printf(";;;\n");
defconstant("s-ifmt", S_IFMT);
defconstant("s-ififo", S_IFIFO);
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;
}