[project @ 1997-03-14 07:52:06 by simonpj]

[ghc-hetmet.git] / ghc / compiler / main / LoopHack.lhc

diff --git a/ghc/compiler/main/LoopHack.lhc b/ghc/compiler/main/LoopHack.lhc
index 7f46936..91d361b 100644 (file)
--- a/ghc/compiler/main/LoopHack.lhc
+++ b/ghc/compiler/main/LoopHack.lhc
@@ -8,6 +8,57 @@ What we do here is simply to satisfy the unresolved references
 
 \begin{code}
 
+#ifdef PROFILING
+START_REGISTER_PRELUDE(_regUbiq);
+END_REGISTER_CCS()
+
+START_REGISTER_PRELUDE(_regAbsCLoop);
+END_REGISTER_CCS()
+
+START_REGISTER_PRELUDE(_regNcgLoop);
+END_REGISTER_CCS()
+
+START_REGISTER_PRELUDE(_regDsLoop);
+END_REGISTER_CCS()
+
+START_REGISTER_PRELUDE(_regIdLoop);
+END_REGISTER_CCS()
+
+START_REGISTER_PRELUDE(_regPrelLoop);
+END_REGISTER_CCS()
+
+START_REGISTER_PRELUDE(_regSmplLoop);
+END_REGISTER_CCS()
+
+START_REGISTER_PRELUDE(_regTyLoop);
+END_REGISTER_CCS()
+
+START_REGISTER_PRELUDE(_regHsLoop);
+END_REGISTER_CCS()
+
+START_REGISTER_PRELUDE(_regSpecLoop);
+END_REGISTER_CCS()
+
+START_REGISTER_PRELUDE(_regTcMLoop);
+END_REGISTER_CCS()
+
+START_REGISTER_PRELUDE(_regTcLoop);
+END_REGISTER_CCS()
+
+START_REGISTER_PRELUDE(_regRnLoop);
+END_REGISTER_CCS()
+
+START_REGISTER_PRELUDE(_regCgLoop1);
+END_REGISTER_CCS()
+
+START_REGISTER_PRELUDE(_regCgLoop2);
+END_REGISTER_CCS()
+
+START_REGISTER_PRELUDE(_regHandleHack);
+END_REGISTER_CCS()
+#endif
+
+/*
 STGFUN(_regUbiq){}
 STGFUN(_regAbsCLoop){}
 STGFUN(_regNcgLoop){}
@@ -23,5 +74,5 @@ STGFUN(_regTcLoop){}
 STGFUN(_regRnLoop){}
 STGFUN(_regCgLoop1){}
 STGFUN(_regCgLoop2){}
-
+*/
 \end{code}