projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 1999-01-21 10:31:41 by simonm]
[ghc-hetmet.git]
/
ghc
/
rts
/
RtsUtils.c
diff --git
a/ghc/rts/RtsUtils.c
b/ghc/rts/RtsUtils.c
index
e67cd46
..
2ed09d3
100644
(file)
--- a/
ghc/rts/RtsUtils.c
+++ b/
ghc/rts/RtsUtils.c
@@
-1,5
+1,5
@@
/* -----------------------------------------------------------------------------
/* -----------------------------------------------------------------------------
- * $Id: RtsUtils.c,v 1.2 1998/12/02 13:28:41 simonm Exp $
+ * $Id: RtsUtils.c,v 1.3 1999/01/21 10:31:49 simonm Exp $
*
* General utility functions used in the RTS.
*
*
* General utility functions used in the RTS.
*
@@
-11,6
+11,7
@@
#include "Hooks.h"
#include "Main.h"
#include "RtsUtils.h"
#include "Hooks.h"
#include "Main.h"
#include "RtsUtils.h"
+#include "Ticky.h"
#ifdef HAVE_TIME_H
#include <time.h>
#ifdef HAVE_TIME_H
#include <time.h>
@@
-114,7
+115,7
@@
stackOverflow(nat max_stack_size)
StackOverflowHook(max_stack_size * sizeof(W_)); /*msg*/
#if defined(TICKY_TICKY)
StackOverflowHook(max_stack_size * sizeof(W_)); /*msg*/
#if defined(TICKY_TICKY)
- if (RTSflags.TickyFlags.showTickyStats) PrintTickyInfo();
+ if (RtsFlags.TickyFlags.showTickyStats) PrintTickyInfo();
#endif
stg_exit(EXIT_FAILURE);
#endif
stg_exit(EXIT_FAILURE);
@@
-128,7
+129,7
@@
heapOverflow(void)
RtsFlags.GcFlags.maxHeapSize * BLOCK_SIZE);
#if defined(TICKY_TICKY)
RtsFlags.GcFlags.maxHeapSize * BLOCK_SIZE);
#if defined(TICKY_TICKY)
- if (Rtsflags.TickyFlags.showTickyStats) PrintTickyInfo();
+ if (RtsFlags.TickyFlags.showTickyStats) PrintTickyInfo();
#endif
stg_exit(EXIT_FAILURE);
#endif
stg_exit(EXIT_FAILURE);