Fix linker_unload now that we are running constructors in the linker (#8291)
[ghc.git] / rts / RtsUtils.h
index cad4216..5d825a2 100644 (file)
@@ -1,6 +1,6 @@
 /* -----------------------------------------------------------------------------
  *
- * (c) The GHC Team, 1998-2005
+ * (c) The GHC Team, 1998-2009
  *
  * General utility functions used in the RTS.
  *
@@ -9,46 +9,42 @@
 #ifndef RTSUTILS_H
 #define RTSUTILS_H
 
+#include "BeginPrivate.h"
+
 /* -----------------------------------------------------------------------------
  * (Checked) dynamic allocation
  * -------------------------------------------------------------------------- */
 
-extern void initAllocator(void);
-extern void shutdownAllocator(void);
+void initAllocator(void);
+void shutdownAllocator(void);
 
-extern void *stgMallocBytes(int n, char *msg)
+void *stgMallocBytes(int n, char *msg)
     GNUC3_ATTRIBUTE(__malloc__);
 
-extern void *stgReallocBytes(void *p, int n, char *msg);
+void *stgReallocBytes(void *p, int n, char *msg);
 
-extern void *stgCallocBytes(int n, int m, char *msg)
+void *stgCallocBytes(int n, int m, char *msg)
      GNUC3_ATTRIBUTE(__malloc__);
 
-extern void stgFree(void* p);
+void stgFree(void* p);
 
 /* -----------------------------------------------------------------------------
  * Misc other utilities
  * -------------------------------------------------------------------------- */
 
-extern void heapOverflow(void);
-
-extern void setNonBlockingFd(int fd);
-extern void resetNonBlockingFd(int fd);
+void heapOverflow(void);
 
-extern nat stg_strlen(char *str);
-
-extern char *time_str(void);
-extern char *ullong_format_string(ullong, char *, rtsBool);
-
-#ifdef PAR
-extern ullong msTime(void);
-#endif
+char *time_str(void);
+char *showStgWord64(StgWord64, char *, rtsBool);
 
 #ifdef DEBUG
-extern void heapCheckFail( void );
+void heapCheckFail( void );
 #endif
 
-extern void* __hscore_get_saved_termios(int fd);
-extern void __hscore_set_saved_termios(int fd, void* ts);
+void printRtsInfo(void);
+
+void checkFPUStack(void);
+
+#include "EndPrivate.h"
 
 #endif /* RTSUTILS_H */