[project @ 2004-02-26 16:36:21 by simonmar]
authorsimonmar <unknown>
Thu, 26 Feb 2004 16:36:21 +0000 (16:36 +0000)
committersimonmar <unknown>
Thu, 26 Feb 2004 16:36:21 +0000 (16:36 +0000)
Add the usual multi-slurp protection

ghc/rts/RtsUtils.h

index 4f2b296..cd02f47 100644 (file)
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: RtsUtils.h,v 1.19 2003/11/12 17:49:10 sof Exp $
+ * $Id: RtsUtils.h,v 1.20 2004/02/26 16:36:21 simonmar Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -7,6 +7,9 @@
  *
  * ---------------------------------------------------------------------------*/
 
+#ifndef RTSUTILS_H
+#define RTSUTILS_H
+
 /* (Checked) dynamic allocation: */
 extern void *stgMallocBytes(int n, char *msg);
 extern void *stgReallocBytes(void *p, int n, char *msg);
@@ -39,3 +42,5 @@ extern void heapCheckFail( void );
 
 extern void* __hscore_get_saved_termios(int fd);
 extern void __hscore_set_saved_termios(int fd, void* ts);
+
+#endif // RTSUTILS_H