diff options
| author | igloo <unknown> | 2005-07-09 00:13:14 +0000 |
|---|---|---|
| committer | igloo <unknown> | 2005-07-09 00:13:14 +0000 |
| commit | 7bb0f34f7e8e75d19a730891de6fe76ce96860d5 (patch) | |
| tree | 5e99518de132a3d248702ecc516c5bf4a0f87017 /ghc/rts/Adjustor.c | |
| parent | 8dfa350233e5128c22cb455ba33025c5dcea1dd7 (diff) | |
| download | haskell-7bb0f34f7e8e75d19a730891de6fe76ce96860d5.tar.gz | |
[project @ 2005-07-09 00:13:14 by igloo]
Fix building on IA64.
Please merge to stable.
Diffstat (limited to 'ghc/rts/Adjustor.c')
| -rw-r--r-- | ghc/rts/Adjustor.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/rts/Adjustor.c b/ghc/rts/Adjustor.c index 4eed033aec..0c45f8c7bf 100644 --- a/ghc/rts/Adjustor.c +++ b/ghc/rts/Adjustor.c @@ -188,7 +188,7 @@ stgAllocStable(size_t size_in_bytes, StgStablePtr *stable) *stable = getStablePtr((StgPtr)arr); /* and return a ptr to the goods inside the array */ - return(BYTE_ARR_CTS(arr)); + return(&(arr->payload)); } #endif |