From: simonmar <unknown>
Date: Tue, 19 Dec 2000 14:30:58 +0000 (+0000)
Subject: [project @ 2000-12-19 14:30:58 by simonmar]
X-Git-Tag: Approximately_9120_patches~3047
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=57c9c08cfcfba3906800664bffd46d74685a9286;hp=f5a4ddffad3528a8be6ba063a4cd0cb685e3f5fd;p=ghc-hetmet.git

[project @ 2000-12-19 14:30:58 by simonmar]
match changes in the Stats API
---

diff --git a/ghc/rts/RtsStartup.c b/ghc/rts/RtsStartup.c
index 7ec1216..af3d86f 100644
--- a/ghc/rts/RtsStartup.c
+++ b/ghc/rts/RtsStartup.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: RtsStartup.c,v 1.45 2000/12/04 12:31:21 simonmar Exp $
+ * $Id: RtsStartup.c,v 1.46 2000/12/19 14:30:58 simonmar Exp $
  *
  * (c) The GHC Team, 1998-2000
  *
@@ -93,7 +93,7 @@ startupHaskell(int argc, char *argv[], void *init_root)
     /* The very first thing we do is grab the start time...just in case we're
      * collecting timing statistics.
      */
-    start_time();
+    stat_startInit();
 
 #ifdef PAR
 /*
@@ -207,7 +207,7 @@ startupHaskell(int argc, char *argv[], void *init_root)
 #endif
 
     /* Record initialization times */
-    end_init();
+    stat_endInit();
 }
 
 /* -----------------------------------------------------------------------------