diff --git a/ghc/rts/Profiling.c b/ghc/rts/Profiling.c index e6b5734b2dd2538cbadf6227826c081c59c1b0e2..bbe2551e25c6370e365ef2055c81cd79232774d6 100644 --- a/ghc/rts/Profiling.c +++ b/ghc/rts/Profiling.c @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: Profiling.c,v 1.10 1999/11/02 15:05:59 simonmar Exp $ + * $Id: Profiling.c,v 1.11 1999/11/04 10:15:50 simonmar Exp $ * * (c) The GHC Team, 1998-1999 * @@ -240,7 +240,7 @@ registerCostCentres ( void ) */ register_stack = (F_ *)allocate(REGISTER_STACK_SIZE / sizeof(W_)); - StgRun((StgFunPtr)stg_register); + StgRun((StgFunPtr)stg_register, &MainRegTable); }