X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=rts%2FSchedule.c;h=537cee0d536a1e740eb5231478cb523366b4878e;hb=78260da4deee97a866ba83f8d73a8284b371f405;hp=96c52f53501ce828863b6e0289f6951ecd69e861;hpb=02620e7c705ac946db43e61988ca3781af3f2447;p=ghc-hetmet.git

diff --git a/rts/Schedule.c b/rts/Schedule.c
index 96c52f5..537cee0 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -1021,7 +1021,7 @@ scheduleDetectDeadlock (Capability *cap, Task *task)
 	    case BlockedOnException:
 	    case BlockedOnMVar:
 		throwToSingleThreaded(cap, task->tso, 
-				      (StgClosure *)NonTermination_closure);
+				      (StgClosure *)nonTermination_closure);
 		return;
 	    default:
 		barf("deadlock: main thread blocked in a strange way");
@@ -3152,15 +3152,15 @@ resurrectThreads (StgTSO *threads)
 	case BlockedOnException:
 	    /* Called by GC - sched_mutex lock is currently held. */
 	    throwToSingleThreaded(cap, tso,
-				  (StgClosure *)BlockedOnDeadMVar_closure);
+				  (StgClosure *)blockedOnDeadMVar_closure);
 	    break;
 	case BlockedOnBlackHole:
 	    throwToSingleThreaded(cap, tso,
-				  (StgClosure *)NonTermination_closure);
+				  (StgClosure *)nonTermination_closure);
 	    break;
 	case BlockedOnSTM:
 	    throwToSingleThreaded(cap, tso,
-				  (StgClosure *)BlockedIndefinitely_closure);
+				  (StgClosure *)blockedIndefinitely_closure);
 	    break;
 	case NotBlocked:
 	    /* This might happen if the thread was blocked on a black hole