X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FLinkerInternals.h;h=07d6334c7f4fab7d3299c6548cf9824c1f1a28ea;hb=3eacdc7faf0d0e87a7201253f9f12c1fb4db7249;hp=3f7653f71235cc12f195b904c663c173387ecb68;hpb=cfc30307a3cb7ba281e0c9964b733eb9f060dc09;p=ghc-hetmet.git

diff --git a/ghc/rts/LinkerInternals.h b/ghc/rts/LinkerInternals.h
index 3f7653f..07d6334 100644
--- a/ghc/rts/LinkerInternals.h
+++ b/ghc/rts/LinkerInternals.h
@@ -6,6 +6,9 @@
  *
  * ---------------------------------------------------------------------------*/
 
+#ifndef LINKERINTERNALS_H
+#define LINKERINTERNALS_H
+
 typedef enum { OBJECT_LOADED, OBJECT_RESOLVED } OStatus;
 
 /* Indication of section kinds for loaded objects.  Needed by
@@ -67,6 +70,12 @@ typedef struct _ObjectCode {
     /* ptr to malloc'd lump of memory holding the obj file */
     char*      image;
 
+#ifdef darwin_HOST_OS
+    /* record by how much image has been deliberately misaligned
+       after allocation, so that we can use realloc */
+    int        misalignment;
+#endif
+
     /* The section-kind entries for this object module.  Linked
        list. */
     Section* sections;
@@ -97,3 +106,5 @@ typedef struct _ObjectCode {
 } ObjectCode;
 
 extern ObjectCode *objects;
+
+#endif /* LINKERINTERNALS_H */