Commit 772ffbe7 authored by Austin Seipp's avatar Austin Seipp
Browse files

[ci skip] includes: detabify/dewhitespace RtsAPI.h


Signed-off-by: default avatarAustin Seipp <austin@well-typed.com>
parent c867cbc8
...@@ -23,8 +23,8 @@ extern "C" { ...@@ -23,8 +23,8 @@ extern "C" {
*/ */
typedef enum { typedef enum {
NoStatus, /* not finished yet */ NoStatus, /* not finished yet */
Success, /* completed successfully */ Success, /* completed successfully */
Killed, /* uncaught exception */ 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 */ HeapExhausted /* out of memory */
} SchedulerStatus; } SchedulerStatus;
...@@ -76,7 +76,7 @@ extern const RtsConfig defaultRtsConfig; ...@@ -76,7 +76,7 @@ extern const RtsConfig defaultRtsConfig;
/* DEPRECATED, use hs_init() or hs_init_ghc() instead */ /* DEPRECATED, use hs_init() or hs_init_ghc() instead */
extern void startupHaskell ( int argc, char *argv[], extern void startupHaskell ( int argc, char *argv[],
void (*init_root)(void) ); void (*init_root)(void) );
/* DEPRECATED, use hs_exit() instead */ /* DEPRECATED, use hs_exit() instead */
extern void shutdownHaskell ( void ); extern void shutdownHaskell ( void );
...@@ -113,10 +113,10 @@ extern void (*exitFn)(int); ...@@ -113,10 +113,10 @@ extern void (*exitFn)(int);
/* ---------------------------------------------------------------------------- /* ----------------------------------------------------------------------------
Locking. Locking.
You have to surround all access to the RtsAPI with these calls. You have to surround all access to the RtsAPI with these calls.
------------------------------------------------------------------------- */ ------------------------------------------------------------------------- */
// acquires a token which may be used to create new objects and // acquires a token which may be used to create new objects and
// evaluate them. // evaluate them.
Capability *rts_lock (void); Capability *rts_lock (void);
...@@ -242,11 +242,11 @@ void rts_done (void); ...@@ -242,11 +242,11 @@ void rts_done (void);
These are used by foreign export and foreign import "wrapper" stubs. These are used by foreign export and foreign import "wrapper" stubs.
----------------------------------------------------------------------- */ ----------------------------------------------------------------------- */
// When producing Windows DLLs the we need to know which symbols are in the // When producing Windows DLLs the we need to know which symbols are in the
// local package/DLL vs external ones. // local package/DLL vs external ones.
// //
// Note that RtsAPI.h is also included by foreign export stubs in // Note that RtsAPI.h is also included by foreign export stubs in
// the base package itself. // the base package itself.
// //
#if defined(COMPILING_WINDOWS_DLL) && !defined(COMPILING_BASE_PACKAGE) #if defined(COMPILING_WINDOWS_DLL) && !defined(COMPILING_BASE_PACKAGE)
__declspec(dllimport) extern StgWord base_GHCziTopHandler_runIO_closure[]; __declspec(dllimport) extern StgWord base_GHCziTopHandler_runIO_closure[];
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment