Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/d6e3f3d2b71e28a00e1c180dd411346e058787c1 >--------------------------------------------------------------- commit d6e3f3d2b71e28a00e1c180dd411346e058787c1 Author: Simon Marlow <marlo...@gmail.com> Date: Wed Apr 11 09:47:54 2012 +0100 small cleanup >--------------------------------------------------------------- rts/posix/Select.c | 10 +++++----- 1 files changed, 5 insertions(+), 5 deletions(-) diff --git a/rts/posix/Select.c b/rts/posix/Select.c index 013b374..1edf6bc 100644 --- a/rts/posix/Select.c +++ b/rts/posix/Select.c @@ -218,12 +218,12 @@ awaitEvent(rtsBool wait) the RTS won't loop. */ if ( errno == EBADF ) { - unblock_all = rtsTrue; - break; + unblock_all = rtsTrue; + break; } else { - perror("select"); - barf("select failed"); - } + sysErrorBelch("select"); + stg_exit(EXIT_FAILURE); + } } /* We got a signal; could be one of ours. If so, we need _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc