diff options
| author | Demi Obenour <demiobenour@gmail.com> | 2017-01-10 13:33:31 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2017-01-10 13:33:38 -0500 |
| commit | 12ad4d417b89462ba8e19a3c7772a931b3a93f0e (patch) | |
| tree | 97b5c7e3ba6329ecf99e7431c10d43ee66758d1b /rts/RtsSymbols.c | |
| parent | e8d74321b5b24afcb4230510fd6e4c4ecf6f3e19 (diff) | |
| download | haskell-12ad4d417b89462ba8e19a3c7772a931b3a93f0e.tar.gz | |
Throw an exception on heap overflow
This changes heap overflow to throw a HeapOverflow exception instead of
killing the process.
Test Plan: GHC CI
Reviewers: simonmar, austin, hvr, erikd, bgamari
Reviewed By: simonmar, bgamari
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D2790
GHC Trac Issues: #1791
Diffstat (limited to 'rts/RtsSymbols.c')
| -rw-r--r-- | rts/RtsSymbols.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/rts/RtsSymbols.c b/rts/RtsSymbols.c index 28479fb508..4c21c2ac52 100644 --- a/rts/RtsSymbols.c +++ b/rts/RtsSymbols.c @@ -10,6 +10,7 @@ #include "RtsSymbols.h" #include "Rts.h" +#include "TopHandler.h" #include "HsFFI.h" #include "sm/Storage.h" @@ -747,6 +748,7 @@ SymI_HasProto(rts_setThreadAllocationCounter) \ SymI_HasProto(rts_enableThreadAllocationLimit) \ SymI_HasProto(rts_disableThreadAllocationLimit) \ + SymI_HasProto(rts_setMainThread) \ SymI_HasProto(setProgArgv) \ SymI_HasProto(startupHaskell) \ SymI_HasProto(shutdownHaskell) \ |