[project @ 2004-09-15 12:06:08 by simonmar]

[ghc-hetmet.git] / ghc / rts / LinkerInternals.h

diff --git a/ghc/rts/LinkerInternals.h b/ghc/rts/LinkerInternals.h
index 0763703..deb9af2 100644 (file)
--- a/ghc/rts/LinkerInternals.h
+++ b/ghc/rts/LinkerInternals.h
@@ -1,5 +1,4 @@
 /* -----------------------------------------------------------------------------
- * $Id: LinkerInternals.h,v 1.6 2002/06/09 13:37:44 matthewc Exp $
  *
  * (c) The GHC Team, 2000
  *
@@ -77,6 +76,12 @@ typedef struct _ObjectCode {
     unsigned int pltIndex;
 #endif
 
+#ifdef darwin_TARGET_OS
+    char*           jump_islands;
+    unsigned long   island_start_symbol;
+    unsigned long   n_islands;
+#endif
+
 } ObjectCode;
 
 extern ObjectCode *objects;