X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Frts%2FAdjustor.c;h=0c45f8c7bf7a4382a50d775938b196d609b72be6;hb=7bb0f34f7e8e75d19a730891de6fe76ce96860d5;hp=4eed033aec07d6b1ab8de101a12071822d9997a1;hpb=8dfa350233e5128c22cb455ba33025c5dcea1dd7;p=ghc-hetmet.git

diff --git a/ghc/rts/Adjustor.c b/ghc/rts/Adjustor.c
index 4eed033..0c45f8c 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