From 7db4d71dba3a70482aadd82dc688cd9fabadef25 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Mon, 3 Aug 2009 12:49:16 +0000 Subject: [PATCH] rts_stop_on_exception is a C int, not a W_ amazing this hasn't caused any problems before now --- rts/Exception.cmm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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; -- 1.7.10.4