Fix #2592: do an orderly shutdown when the heap is exhausted

[ghc-hetmet.git] / rts / Schedule.h

diff --git a/rts/Schedule.h b/rts/Schedule.h
index c3334e6..d311801 100644 (file)
--- 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