Add a write barrier for TVAR closures
[ghc.git] / rts / PrimOps.cmm
index 18757bf..ebcee6a 100644 (file)
@@ -1065,7 +1065,7 @@ stg_newTVarzh (P_ init)
     ALLOC_PRIM_P (SIZEOF_StgTVar, stg_newTVarzh, init);
 
     tv = Hp - SIZEOF_StgTVar + WDS(1);
-    SET_HDR (tv, stg_TVAR_info, CCCS);
+    SET_HDR (tv, stg_TVAR_DIRTY_info, CCCS);
 
     StgTVar_current_value(tv) = init;
     StgTVar_first_watch_queue_entry(tv) = stg_END_STM_WATCH_QUEUE_closure;