projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
further fix for floating point primitives
[ghc-hetmet.git]
/
ghc
/
rts
/
LinkerInternals.h
diff --git
a/ghc/rts/LinkerInternals.h
b/ghc/rts/LinkerInternals.h
index
f1e2677
..
07d6334
100644
(file)
--- 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
typedef enum { OBJECT_LOADED, OBJECT_RESOLVED } OStatus;
/* Indication of section kinds for loaded objects. Needed by
@@
-65,7
+68,13
@@
typedef struct _ObjectCode {
int n_symbols;
/* ptr to malloc'd lump of memory holding the obj file */
int n_symbols;
/* ptr to malloc'd lump of memory holding the obj file */
- void* image;
+ 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. */
/* The section-kind entries for this object module. Linked
list. */
@@
-97,3
+106,5
@@
typedef struct _ObjectCode {
} ObjectCode;
extern ObjectCode *objects;
} ObjectCode;
extern ObjectCode *objects;
+
+#endif /* LINKERINTERNALS_H */