#endif
/* Fix for mingw stat problem (done here so it's early enough) */
-#ifdef mingw32_TARGET_OS
+#ifdef mingw32_HOST_OS
#define __MSVCRT__ 1
#endif
-#if defined(__GNUC__)
-#define GNU_ATTRIBUTE(at) __attribute__((at))
-#else
-#define GNU_ATTRIBUTE(at)
-#endif
-
-#if __GNUC__ >= 3
-#define GNUC3_ATTRIBUTE(at) __attribute__((at))
-#else
-#define GNUC3_ATTRIBUTE(at)
-#endif
-
-#define STG_UNUSED GNUC3_ATTRIBUTE(__unused__)
-
/*
* We often want to know the size of something in units of an
* StgWord... (rounded up, of course!)
#define ASSERT(predicate) /* nothing */
#else
-void _stgAssert (char *, unsigned int);
+extern void _assertFail (char *, unsigned int);
#define ASSERT(predicate) \
if (predicate) \
/*null*/; \
else \
- _stgAssert(__FILE__, __LINE__)
+ _assertFail(__FILE__, __LINE__)
#endif /* DEBUG */
/*
/* declarations for runtime flags/values */
#define MAX_RTS_ARGS 32
-#ifdef _WIN32
-/* On the yucky side..suppress -Wmissing-declarations warnings when
- * including <windows.h>
- */
-extern void* GetCurrentFiber ( void );
-extern void* GetFiberData ( void );
-#endif
-
/* -----------------------------------------------------------------------------
Assertions and Debuggery
-------------------------------------------------------------------------- */