From c3e7e772db4fbc7171de7b7e98d578ab9cff167c Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Thu, 19 Dec 1996 18:07:39 +0000
Subject: [PATCH] [project @ 1996-12-19 18:07:39 by simonpj] Adding
 LoopHack.hc

---
 ghc/compiler/main/LoopHack.lhc |   24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 ghc/compiler/main/LoopHack.lhc

diff --git a/ghc/compiler/main/LoopHack.lhc b/ghc/compiler/main/LoopHack.lhc
new file mode 100644
index 0000000..382df14
--- /dev/null
+++ b/ghc/compiler/main/LoopHack.lhc
@@ -0,0 +1,24 @@
+This dreadful little .hc file accounts for the fact that,
+when profiling, modules that import (say) IdLoop will
+try to register the _regIdLoop cost centre.  But there is
+no IdLoop module really, so it generates unresolved
+references by the ton.  
+
+What we do here is simply to satisfy the unresolved references
+
+\begin{code}
+
+STGFUN(_regUbiq){}
+STGFUN(_regAbsCLoop){}
+STGFUN(_regNcgLoop){}
+STGFUN(_regDsLoop){}
+STGFUN(_regIdLoop){}
+STGFUN(_regPrelLoop){}
+STGFUN(_regTyLoop){}
+STGFUN(_regHsLoop){}
+STGFUN(_regSpecLoop){}
+STGFUN(_regTcMLoop){}
+STGFUN(_regTcLoop){}
+STGFUN(_regRnLoop){}
+
+\end{code}
-- 
1.7.10.4