ghc/compiler/main/LoopHack.lhc

   1 This dreadful little .hc file accounts for the fact that,
   2 when profiling, modules that import (say) IdLoop will
   3 try to register the _regIdLoop cost centre.  But there is
   4 no IdLoop module really, so it generates unresolved
   5 references by the ton.
   6
   7 What we do here is simply to satisfy the unresolved references
   8
   9 \begin{code}
  10
  11 #ifdef PROFILING
  12 START_REGISTER_PRELUDE(_regUbiq);
  13 END_REGISTER_CCS()
  14
  15 START_REGISTER_PRELUDE(_regAbsCLoop);
  16 END_REGISTER_CCS()
  17
  18 START_REGISTER_PRELUDE(_regNcgLoop);
  19 END_REGISTER_CCS()
  20
  21 START_REGISTER_PRELUDE(_regDsLoop);
  22 END_REGISTER_CCS()
  23
  24 START_REGISTER_PRELUDE(_regIdLoop);
  25 END_REGISTER_CCS()
  26
  27 START_REGISTER_PRELUDE(_regPrelLoop);
  28 END_REGISTER_CCS()
  29
  30 START_REGISTER_PRELUDE(_regSmplLoop);
  31 END_REGISTER_CCS()
  32
  33 START_REGISTER_PRELUDE(_regTyLoop);
  34 END_REGISTER_CCS()
  35
  36 START_REGISTER_PRELUDE(_regHsLoop);
  37 END_REGISTER_CCS()
  38
  39 START_REGISTER_PRELUDE(_regSpecLoop);
  40 END_REGISTER_CCS()
  41
  42 START_REGISTER_PRELUDE(_regTcMLoop);
  43 END_REGISTER_CCS()
  44
  45 START_REGISTER_PRELUDE(_regTcLoop);
  46 END_REGISTER_CCS()
  47
  48 START_REGISTER_PRELUDE(_regRnLoop);
  49 END_REGISTER_CCS()
  50
  51 START_REGISTER_PRELUDE(_regCgLoop1);
  52 END_REGISTER_CCS()
  53
  54 START_REGISTER_PRELUDE(_regCgLoop2);
  55 END_REGISTER_CCS()
  56
  57 START_REGISTER_PRELUDE(_regHandleHack);
  58 END_REGISTER_CCS()
  59 #endif
  60
  61 /*
  62 STGFUN(_regUbiq){}
  63 STGFUN(_regAbsCLoop){}
  64 STGFUN(_regNcgLoop){}
  65 STGFUN(_regDsLoop){}
  66 STGFUN(_regIdLoop){}
  67 STGFUN(_regPrelLoop){}
  68 STGFUN(_regSmplLoop){}
  69 STGFUN(_regTyLoop){}
  70 STGFUN(_regHsLoop){}
  71 STGFUN(_regSpecLoop){}
  72 STGFUN(_regTcMLoop){}
  73 STGFUN(_regTcLoop){}
  74 STGFUN(_regRnLoop){}
  75 STGFUN(_regCgLoop1){}
  76 STGFUN(_regCgLoop2){}
  77 */
  78 \end{code}