diff options
| author | sof <unknown> | 1999-09-13 11:02:08 +0000 |
|---|---|---|
| committer | sof <unknown> | 1999-09-13 11:02:08 +0000 |
| commit | e1dffdbe9a546b4ea6170ad4c1bf647477fe6b29 (patch) | |
| tree | 7098abb7a32c50825454b42c1c792b939bd54512 | |
| parent | ba25dd97f3b7f47580c6c6db5a4b516e811e3104 (diff) | |
| download | haskell-e1dffdbe9a546b4ea6170ad4c1bf647477fe6b29.tar.gz | |
[project @ 1999-09-13 11:02:08 by sof]
Only use initUserSignals() if you've got it defined
| -rw-r--r-- | ghc/rts/RtsStartup.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ghc/rts/RtsStartup.c b/ghc/rts/RtsStartup.c index f6aaebd080..19e1b3e2be 100644 --- a/ghc/rts/RtsStartup.c +++ b/ghc/rts/RtsStartup.c @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: RtsStartup.c,v 1.18 1999/08/25 16:11:50 simonmar Exp $ + * $Id: RtsStartup.c,v 1.19 1999/09/13 11:02:08 sof Exp $ * * (c) The GHC Team, 1998-1999 * @@ -123,7 +123,9 @@ startupHaskell(int argc, char *argv[]) initStats(); /* Initialise the user signal handler set */ +#if !defined(mingw32_TARGET_OS) && !defined(PAR) initUserSignals(); +#endif /* When the RTS and Prelude live in separate DLLs, we need to patch up the char- and int-like tables |