micro-opt: replace stmGetEnclosingTRec() with a field access
[ghc-hetmet.git] / rts / RtsUtils.h
index 14856bf..e47dbb9 100644 (file)
@@ -9,6 +9,8 @@
 #ifndef RTSUTILS_H
 #define RTSUTILS_H
 
+BEGIN_RTS_PRIVATE
+
 /* -----------------------------------------------------------------------------
  * (Checked) dynamic allocation
  * -------------------------------------------------------------------------- */
@@ -39,18 +41,13 @@ char *ullong_format_string(ullong, char *, rtsBool);
 void heapCheckFail( void );
 #endif
 
-// XXX shouldn't be here
-void* __hscore_get_saved_termios(int fd);
-void  __hscore_set_saved_termios(int fd, void* ts);
-
 void printRtsInfo(void);
 
-HsInt genSymZh(void);
-HsInt resetGenSymZh(void);
-
 /* Alternate to raise(3) for threaded rts, for OpenBSD */
 int genericRaise(int sig);
 
 int rts_isProfiled(void);
 
+END_RTS_PRIVATE
+
 #endif /* RTSUTILS_H */