From 7aa38e04cfdee5d162ba8ae8a1c6f4e52fd0dea0 Mon Sep 17 00:00:00 2001 From: simonmar Date: Thu, 26 Feb 2004 16:36:21 +0000 Subject: [PATCH] [project @ 2004-02-26 16:36:21 by simonmar] Add the usual multi-slurp protection --- ghc/rts/RtsUtils.h | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/ghc/rts/RtsUtils.h b/ghc/rts/RtsUtils.h index 4f2b296..cd02f47 100644 --- a/ghc/rts/RtsUtils.h +++ b/ghc/rts/RtsUtils.h @@ -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 -- 1.7.10.4