X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FRtsUtils.c;h=7054f453e8dbe128bbf865635551795236337f7b;hb=d888cbcbaa3b4113fca39b9a0888b404ed8ec9b8;hp=95afe0c26b821c0961f273dbfee0ac5ade443446;hpb=7f309f1c021e7583f724cce599ce2dd3c439361b;p=ghc-hetmet.git diff --git a/ghc/rts/RtsUtils.c b/ghc/rts/RtsUtils.c index 95afe0c..7054f45 100644 --- a/ghc/rts/RtsUtils.c +++ b/ghc/rts/RtsUtils.c @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: RtsUtils.c,v 1.6 1999/02/05 16:02:51 simonm Exp $ + * $Id: RtsUtils.c,v 1.19 2001/07/24 06:31:36 ken Exp $ * * (c) The GHC Team, 1998-1999 * @@ -7,7 +7,11 @@ * * ---------------------------------------------------------------------------*/ +/* gettimeofday isn't POSIX */ +#define NON_POSIX_SOURCE + #include "Rts.h" +#include "RtsTypes.h" #include "RtsAPI.h" #include "RtsFlags.h" #include "Hooks.h" @@ -19,6 +23,14 @@ #include #endif +#ifdef HAVE_FCNTL_H +#include +#endif + +#ifdef HAVE_GETTIMEOFDAY +#include +#endif + #include /* variable-argument error function. */ @@ -27,7 +39,7 @@ void barf(char *s, ...) { va_list ap; va_start(ap,s); - fflush(stdout); + /* don't fflush(stdout); WORKAROUND bug in Linux glibc */ if (prog_argv != NULL && prog_argv[0] != NULL) { fprintf(stderr, "%s: fatal error: ", prog_argv[0]); } else { @@ -35,14 +47,27 @@ void barf(char *s, ...) } vfprintf(stderr, s, ap); fprintf(stderr, "\n"); - stg_exit(EXIT_FAILURE); + fflush(stderr); + stg_exit(EXIT_INTERNAL_ERROR); +} + +void prog_belch(char *s, ...) +{ + va_list ap; + va_start(ap,s); + /* don't fflush(stdout); WORKAROUND bug in Linux glibc */ + if (prog_argv != NULL && prog_argv[0] != NULL) { + fprintf(stderr, "%s: ", prog_argv[0]); + } + vfprintf(stderr, s, ap); + fprintf(stderr, "\n"); } void belch(char *s, ...) { va_list ap; va_start(ap,s); - fflush(stdout); + /* don't fflush(stdout); WORKAROUND bug in Linux glibc */ vfprintf(stderr, s, ap); fprintf(stderr, "\n"); } @@ -55,9 +80,9 @@ stgMallocBytes (int n, char *msg) char *space; if ((space = (char *) malloc((size_t) n)) == NULL) { - fflush(stdout); - MallocFailHook((W_) n, msg); /*msg*/ - stg_exit(EXIT_FAILURE); + /* don't fflush(stdout); WORKAROUND bug in Linux glibc */ + MallocFailHook((W_) n, msg); /*msg*/ + stg_exit(EXIT_INTERNAL_ERROR); } return space; } @@ -68,9 +93,9 @@ stgReallocBytes (void *p, int n, char *msg) char *space; if ((space = (char *) realloc(p, (size_t) n)) == NULL) { - fflush(stdout); - MallocFailHook((W_) n, msg); /*msg*/ - exit(EXIT_FAILURE); + /* don't fflush(stdout); WORKAROUND bug in Linux glibc */ + MallocFailHook((W_) n, msg); /*msg*/ + stg_exit(EXIT_INTERNAL_ERROR); } return space; } @@ -88,22 +113,14 @@ stgReallocWords (void *p, int n, char *msg) } void -_stgAssert (char *filename, nat linenum) +_stgAssert (char *filename, unsigned int linenum) { fflush(stdout); fprintf(stderr, "ASSERTION FAILED: file %s, line %u\n", filename, linenum); + fflush(stderr); abort(); } -StgStablePtr errorHandler = -1; /* -1 indicates no handler installed */ - -void -raiseError( StgStablePtr handler STG_UNUSED ) -{ - shutdownHaskell(); - stg_exit(EXIT_FAILURE); -} - /* ----------------------------------------------------------------------------- Stack overflow @@ -111,30 +128,27 @@ raiseError( StgStablePtr handler STG_UNUSED ) -------------------------------------------------------------------------- */ void -stackOverflow(nat max_stack_size) +stackOverflow(void) { - fflush(stdout); - StackOverflowHook(max_stack_size * sizeof(W_)); /*msg*/ + StackOverflowHook(RtsFlags.GcFlags.maxStkSize * sizeof(W_)); #if defined(TICKY_TICKY) - if (RtsFlags.TickyFlags.showTickyStats) PrintTickyInfo(); + if (RtsFlags.TickyFlags.showTickyStats) PrintTickyInfo(); #endif - - stg_exit(EXIT_FAILURE); } void heapOverflow(void) { - fflush(stdout); - OutOfHeapHook(0/*unknown request size*/, - RtsFlags.GcFlags.maxHeapSize * BLOCK_SIZE); - + /* don't fflush(stdout); WORKAROUND bug in Linux glibc */ + OutOfHeapHook(0/*unknown request size*/, + RtsFlags.GcFlags.maxHeapSize * BLOCK_SIZE); + #if defined(TICKY_TICKY) - if (RtsFlags.TickyFlags.showTickyStats) PrintTickyInfo(); + if (RtsFlags.TickyFlags.showTickyStats) PrintTickyInfo(); #endif - stg_exit(EXIT_FAILURE); + stg_exit(EXIT_HEAPOVERFLOW); } /* ----------------------------------------------------------------------------- @@ -177,7 +191,7 @@ resetGenSymZh(void) /* it's your funeral */ Get the current time as a string. Used in profiling reports. -------------------------------------------------------------------------- */ -#if defined(PROFILING) || defined(DEBUG) +#if defined(PROFILING) || defined(DEBUG) || defined(PAR) || defined(GRAN) char * time_str(void) { @@ -195,6 +209,61 @@ time_str(void) #endif /* ----------------------------------------------------------------------------- + * Reset a file handle to blocking mode. We do this for the standard + * file descriptors before exiting, because the shell doesn't always + * clean up for us. + * -------------------------------------------------------------------------- */ + +void +resetNonBlockingFd(int fd) +{ + long fd_flags; + +#if !defined(mingw32_TARGET_OS) + /* clear the non-blocking flag on this file descriptor */ + fd_flags = fcntl(fd, F_GETFL); + if (fd_flags & O_NONBLOCK) { + fcntl(fd, F_SETFL, fd_flags & ~O_NONBLOCK); + } +#endif +} + +static ullong startTime = 0; + +/* used in a parallel setup */ +ullong +msTime(void) +{ +# if defined(HAVE_GETCLOCK) && !defined(alpha_TARGET_ARCH) && !defined(hppa1_1_TARGET_ARCH) + struct timespec tv; + + if (getclock(TIMEOFDAY, &tv) != 0) { + fflush(stdout); + fprintf(stderr, "Clock failed\n"); + stg_exit(EXIT_FAILURE); + } + return tv.tv_sec * LL(1000) + tv.tv_nsec / LL(1000000) - startTime; +# elif HAVE_GETTIMEOFDAY && !defined(alpha_TARGET_ARCH) + struct timeval tv; + + if (gettimeofday(&tv, NULL) != 0) { + fflush(stdout); + fprintf(stderr, "Clock failed\n"); + stg_exit(EXIT_FAILURE); + } + return tv.tv_sec * LL(1000) + tv.tv_usec / LL(1000) - startTime; +# else + time_t t; + if ((t = time(NULL)) == (time_t) -1) { + fflush(stdout); + fprintf(stderr, "Clock failed\n"); + stg_exit(EXIT_FAILURE); + } + return t * LL(1000) - startTime; +# endif +} + +/* ----------------------------------------------------------------------------- Print large numbers, with punctuation. -------------------------------------------------------------------------- */