RTS tidyup sweep, first phase

[ghc-hetmet.git] / includes / rts / Hooks.h

diff --git a/includes/Hooks.h b/includes/rts/Hooks.h
similarity index 89%
rename from includes/Hooks.h
rename to includes/rts/Hooks.h
index e281c89..4fe50b4 100644 (file)
--- a/includes/Hooks.h
+++ b/includes/rts/Hooks.h
@@ -6,6 +6,9 @@
  *
  * ---------------------------------------------------------------------------*/
 
+#ifndef RTS_HOOKS_H
+#define RTS_HOOKS_H
+
 extern char *ghc_rts_opts;
 
 extern void OnExitHook (void);
@@ -14,3 +17,5 @@ extern void StackOverflowHook (unsigned long stack_size);
 extern void OutOfHeapHook (unsigned long request_size, unsigned long heap_size);
 extern void MallocFailHook (unsigned long request_size /* in bytes */, char *msg);
 extern void defaultsHook (void);
+
+#endif /* RTS_HOOKS_H */