Commit b1bbd55b authored by simonmar's avatar simonmar
Browse files

[project @ 2000-12-19 12:55:18 by simonmar]

- Add setHeapSize (for -H support, works with ghc-4.08+)
- Add enableGhcTiming (for -Rghc-timing, works with ghc-4.11+)

Both of these are no-ops for older compilers.
parent c887767d
...@@ -10,6 +10,44 @@ in instead of the defaults. ...@@ -10,6 +10,44 @@ in instead of the defaults.
#include "rtsdefs.h" #include "rtsdefs.h"
#endif #endif
#if __GLASGOW_HASKELL__ >= 408
#include "../rts/RtsFlags.h"
#include "HsFFI.h"
#endif
void
defaultsHook (void)
{
#if __GLASGOW_HASKELL__ >= 408
RtsFlags.GcFlags.heapSizeSuggestion = 6*1024*1024 / BLOCK_SIZE;
#endif
#if __GLASGOW_HASKELL__ >= 411
RtsFlags.GcFlags.giveStats = COLLECT_GC_STATS;
RtsFlags.GcFlags.statsFile = stderr;
#endif
}
void
enableTimingStats( void ) /* called from the driver */
{
#if __GLASGOW_HASKELL__ >= 411
RtsFlags.GcFlags.giveStats = ONELINE_GC_STATS;
#endif
/* ignored when bootstrapping with an older GHC */
}
void
setHeapSize( HsInt size )
{
#if __GLASGOW_HASKELL__ >= 408
RtsFlags.GcFlags.heapSizeSuggestion = size / BLOCK_SIZE;
if (RtsFlags.GcFlags.heapSizeSuggestion >
RtsFlags.GcFlags.maxHeapSize) {
RtsFlags.GcFlags.maxHeapSize = RtsFlags.GcFlags.heapSizeSuggestion;
}
#endif
}
#if __GLASGOW_HASKELL__ >= 303 #if __GLASGOW_HASKELL__ >= 303
void void
......
/* -----------------------------------------------------------------------------
* $Id: hschooks.h,v 1.1 2000/12/19 12:55:18 simonmar Exp $
*
* Hooks into the RTS from the compiler.
*
* -----------------------------------------------------------------------------
void enableTimingStats( void );
void setHeapSize( HsInt size );
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