/* -----------------------------------------------------------------------------
- * $Id: Stg.h,v 1.38 2001/08/29 17:24:25 qrczak Exp $
+ * $Id: Stg.h,v 1.45 2002/02/13 07:48:19 sof Exp $
*
* (c) The GHC Team, 1998-1999
*
#define FLEXIBLE_ARRAY 0
#endif
+#if defined(SMP) || defined(THREADED_RTS)
+#define RTS_SUPPORTS_THREADS 1
+#endif
+
/* Some macros to handle DLLing (Win32 only at the moment). */
#include "StgDLL.h"
_stgAssert(__FILE__, __LINE__)
#endif /* DEBUG */
+/*
+ * Use this on the RHS of macros which expand to nothing
+ * to make sure that the macro can be used in a context which
+ * demands a non-empty statement.
+ */
+
+#define doNothing() do { } while (0)
+
/* -----------------------------------------------------------------------------
Global type definitions
-------------------------------------------------------------------------- */
/* Profiling information */
#include "StgProf.h"
+#include "StgLdvProf.h"
/* Storage format definitions */
#include "Closures.h"
DLL_IMPORT_RTS extern char **prog_argv; /* so we can get at these from Haskell */
DLL_IMPORT_RTS extern int prog_argc;
-extern char **environ;
-
extern void stackOverflow(void);
/* Creating and destroying an adjustor thunk.