From: Simon Marlow <marlowsd@gmail.com>
Date: Mon, 3 Aug 2009 12:49:16 +0000 (+0000)
Subject: rts_stop_on_exception is a C int, not a W_
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=7db4d71dba3a70482aadd82dc688cd9fabadef25

rts_stop_on_exception is a C int, not a W_
amazing this hasn't caused any problems before now
---

diff --git a/rts/Exception.cmm b/rts/Exception.cmm
index f0eae98..cf8ffdf 100644
--- a/rts/Exception.cmm
+++ b/rts/Exception.cmm
@@ -428,7 +428,7 @@ retry_pop_stack:
             // deadlock if an exception is raised in InteractiveUI,
             // for exmplae.  Perhaps the stop_on_exception flag should
             // be per-thread.
-            W_[rts_stop_on_exception] = 0;
+            CInt[rts_stop_on_exception] = 0;
             ("ptr" ioAction) = foreign "C" deRefStablePtr (W_[rts_breakpoint_io_action] "ptr") [];
             Sp = Sp - WDS(7);
             Sp(6) = exception;