diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-08-03 12:49:16 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-08-03 12:49:16 +0000 |
| commit | 7db4d71dba3a70482aadd82dc688cd9fabadef25 (patch) | |
| tree | 60dee1ab3c776bbdb34443f219114fe97d0e84fc /rts/Exception.cmm | |
| parent | 38b739b7fce555768cf8f0208a081f62eea479cc (diff) | |
| download | haskell-7db4d71dba3a70482aadd82dc688cd9fabadef25.tar.gz | |
rts_stop_on_exception is a C int, not a W_
amazing this hasn't caused any problems before now
Diffstat (limited to 'rts/Exception.cmm')
| -rw-r--r-- | rts/Exception.cmm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Exception.cmm b/rts/Exception.cmm index f0eae988fe..cf8ffdf716 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; |