X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=includes%2Frts%2Fstorage%2FClosureMacros.h;h=aead2edd048cb62c694ee7a0a9a74771d24e5180;hp=fa6a2a5448a48096baad926bccaf62e714d59c60;hb=e7145eeefd01106cedb16a22866eb5160ccfb030;hpb=ae75dfb80ccffcdb8d96d53508731214f7cb7305

diff --git a/includes/rts/storage/ClosureMacros.h b/includes/rts/storage/ClosureMacros.h
index fa6a2a5..aead2ed 100644
--- a/includes/rts/storage/ClosureMacros.h
+++ b/includes/rts/storage/ClosureMacros.h
@@ -125,9 +125,9 @@
 	SET_PROF_HDR((StgClosure *)(c),ccs);		\
    }
 
-#define SET_ARR_HDR(c,info,costCentreStack,n_words)	\
+#define SET_ARR_HDR(c,info,costCentreStack,n_bytes)	\
    SET_HDR(c,info,costCentreStack);			\
-   (c)->bytes = n_words*sizeof(W_);
+   (c)->bytes = n_bytes;
 
 // Use when changing a closure from one kind to another
 #define OVERWRITE_INFO(c, new_info)                             \