diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2008-12-09 10:59:19 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2008-12-09 10:59:19 +0000 |
| commit | 5a5acb3698aa4ffdd738c301fa722afe12a1f3de (patch) | |
| tree | ce83c8c73753a70b85b2409745b7498e00555559 /rts/Schedule.h | |
| parent | 31d797eb1b3c5aa07f928b58402529fd35b71bcc (diff) | |
| download | haskell-5a5acb3698aa4ffdd738c301fa722afe12a1f3de.tar.gz | |
Fix #2592: do an orderly shutdown when the heap is exhausted
Really we should be raising an exception in this case, but that's
tricky (see comments). At least now we shut down the runtime
correctly rather than just exiting.
Diffstat (limited to 'rts/Schedule.h')
| -rw-r--r-- | rts/Schedule.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/rts/Schedule.h b/rts/Schedule.h index c3334e6f69..d311801405 100644 --- a/rts/Schedule.h +++ b/rts/Schedule.h @@ -139,6 +139,8 @@ extern StgTSO *RTS_VAR(sleeping_queue); */ extern rtsBool blackholes_need_checking; +extern rtsBool heap_overflow; + #if defined(THREADED_RTS) extern Mutex RTS_VAR(sched_mutex); #endif |