FIX #38000 Store StgArrWords payload size in bytes

[ghc-hetmet.git] / includes / rts / storage / Closures.h

diff --git a/includes/rts/storage/Closures.h b/includes/rts/storage/Closures.h
index a0ff738..7671c7b 100644 (file)
--- a/includes/rts/storage/Closures.h
+++ b/includes/rts/storage/Closures.h
@@ -137,7 +137,7 @@ typedef struct StgBlockingQueue_ {
 
 typedef struct {
     StgHeader  header;
-    StgWord    words;
+    StgWord    bytes;
     StgWord    payload[FLEXIBLE_ARRAY];
 } StgArrWords;