X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FRaiseAsync.c;h=f9ec31884c9629c21ce16abba0228fdbc8c2cef9;hb=35a38acc6010d97b349092f9179c14d18f129e9b;hp=b0c70645401717ca1bb3cfa769a84d27ec426ac2;hpb=9c4abbc0c2d4373eb7c63b1110821dfcb0077661;p=ghc-hetmet.git

diff --git a/rts/RaiseAsync.c b/rts/RaiseAsync.c
index b0c7064..f9ec318 100644
--- a/rts/RaiseAsync.c
+++ b/rts/RaiseAsync.c
@@ -240,7 +240,7 @@ check_target:
     {
 	Capability *target_cap;
 
-	wb();
+	write_barrier();
 	target_cap = target->cap;
 	if (target_cap == cap && (target->flags & TSO_BLOCKEX) == 0) {
 	    // It's on our run queue and not blocking exceptions
@@ -464,7 +464,7 @@ blockedThrowTo (StgTSO *source, StgTSO *target)
     dirtyTSO(target); // we modified the blocked_exceptions queue
     
     source->block_info.tso = target;
-    wb(); // throwTo_exception *must* be visible if BlockedOnException is.
+    write_barrier(); // throwTo_exception *must* be visible if BlockedOnException is.
     source->why_blocked = BlockedOnException;
 }