From: simonpj <unknown>
Date: Thu, 19 Dec 1996 18:07:39 +0000 (+0000)
Subject: [project @ 1996-12-19 18:07:39 by simonpj]
X-Git-Tag: Approximately_1000_patches_recorded~866
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c3e7e772db4fbc7171de7b7e98d578ab9cff167c;p=ghc-hetmet.git

[project @ 1996-12-19 18:07:39 by simonpj]
Adding LoopHack.hc
---

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}