X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FRtsStartup.c;h=070275b534f7825efae60ae1cabd882e59954e30;hb=630e4476971aa21a8c7e7bf39dae7dc1bf4b9b57;hp=d1025a3a8b17d12884f1873eab78dc46ad4708e1;hpb=a84385fa752d8fa800a2155cce95f47c68b74e2b;p=ghc-hetmet.git

diff --git a/rts/RtsStartup.c b/rts/RtsStartup.c
index d1025a3..070275b 100644
--- a/rts/RtsStartup.c
+++ b/rts/RtsStartup.c
@@ -167,10 +167,6 @@ hs_init(int *argc, char **argv[])
     argv++; argc--;
 #endif
 
-#ifdef USE_PAPI
-    papi_init();
-#endif
-
     /* Set the RTS flags to default values. */
 
     initRtsFlagsDefaults();
@@ -185,6 +181,10 @@ hs_init(int *argc, char **argv[])
 	setProgArgv(*argc,*argv);
     }
 
+#ifdef USE_PAPI
+    papi_init();
+#endif
+
     /* initTracing must be after setupRtsFlags() */
     initTracing();