[project @ 2005-03-10 14:03:28 by simonmar]

[ghc-hetmet.git] / ghc / rts / hooks / MallocFail.c

diff --git a/ghc/rts/hooks/MallocFail.c b/ghc/rts/hooks/MallocFail.c
index 01f534e..1218d1d 100644 (file)
--- a/ghc/rts/hooks/MallocFail.c
+++ b/ghc/rts/hooks/MallocFail.c
@@ -1,5 +1,4 @@
 /* -----------------------------------------------------------------------------
- * $Id: MallocFail.c,v 1.2 1998/12/02 13:29:12 simonm Exp $
  *
  * User-overridable RTS hooks.
  *
@@ -7,6 +6,8 @@
 
 #include "Rts.h"
 
+#include <stdio.h>
+
 void
 MallocFailHook (lnat request_size /* in bytes */, char *msg)
 {