projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Tweak ./boot
[ghc-hetmet.git]
/
includes
/
RtsAPI.h
diff --git
a/includes/RtsAPI.h
b/includes/RtsAPI.h
index
54fa3ee
..
41f0fc0
100644
(file)
--- a/
includes/RtsAPI.h
+++ b/
includes/RtsAPI.h
@@
-22,7
+22,8
@@
typedef enum {
NoStatus, /* not finished yet */
Success, /* completed successfully */
Killed, /* uncaught exception */
NoStatus, /* not finished yet */
Success, /* completed successfully */
Killed, /* uncaught exception */
- Interrupted /* stopped in response to a call to interruptStgRts */
+ Interrupted, /* stopped in response to a call to interruptStgRts */
+ HeapExhausted /* out of memory */
} SchedulerStatus;
typedef StgClosure *HaskellObj;
} SchedulerStatus;
typedef StgClosure *HaskellObj;
@@
-45,6
+46,10
@@
extern void setProgArgv ( int argc, char *argv[] );
extern void getFullProgArgv ( int *argc, char **argv[] );
extern void setFullProgArgv ( int argc, char *argv[] );
extern void getFullProgArgv ( int *argc, char **argv[] );
extern void setFullProgArgv ( int argc, char *argv[] );
+#ifndef mingw32_HOST_OS
+extern void shutdownHaskellAndSignal (int sig);
+#endif
+
/* exit() override */
extern void (*exitFn)(int);
/* exit() override */
extern void (*exitFn)(int);