From 2af6f33aa4201cf03f2d88b214d0b245b7c892d4 Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Fri, 9 Jan 1998 13:33:12 +0000
Subject: [PATCH] [project @ 1998-01-09 13:33:12 by simonm] LoopHack not
 needed anymore.

---
 ghc/compiler/main/LoopHack.lhc |   78 ----------------------------------------
 1 file changed, 78 deletions(-)
 delete mode 100644 ghc/compiler/main/LoopHack.lhc

diff --git a/ghc/compiler/main/LoopHack.lhc b/ghc/compiler/main/LoopHack.lhc
deleted file mode 100644
index 91d361b..0000000
--- a/ghc/compiler/main/LoopHack.lhc
+++ /dev/null
@@ -1,78 +0,0 @@
-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}
-
-#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){}
-STGFUN(_regDsLoop){}
-STGFUN(_regIdLoop){}
-STGFUN(_regPrelLoop){}
-STGFUN(_regSmplLoop){}
-STGFUN(_regTyLoop){}
-STGFUN(_regHsLoop){}
-STGFUN(_regSpecLoop){}
-STGFUN(_regTcMLoop){}
-STGFUN(_regTcLoop){}
-STGFUN(_regRnLoop){}
-STGFUN(_regCgLoop1){}
-STGFUN(_regCgLoop2){}
-*/
-\end{code}
-- 
1.7.10.4