[project @ 1996-01-11 14:06:51 by partain]

[ghc-hetmet.git] / ghc / runtime / c-as-asm / PerformIO.lhc

diff --git a/ghc/runtime/c-as-asm/PerformIO.lhc b/ghc/runtime/c-as-asm/PerformIO.lhc
index 1952d0c..b9d050f 100644 (file)
--- a/ghc/runtime/c-as-asm/PerformIO.lhc
+++ b/ghc/runtime/c-as-asm/PerformIO.lhc
@@ -77,12 +77,7 @@ STGFUN(startPerformIO)
        used to load the STG registers.
     */
 
-#if defined (DO_SPAT_PROFILING)
-    SET_ACTIVITY(ACT_REDN); /* init: do this first, so we count the restore insns */
-#endif
-
-    /* Load up the real registers from the *_SAVE locns.
-    */
+    /* Load up the real registers from the *_SAVE locns. */
     RestoreAllStgRegs();       /* inline! */
 
     /* ------- STG registers are now valid! -------------------------*/
@@ -148,10 +143,6 @@ STGFUN(startEnterInt)
 {
     FUNBEGIN;
 
-#if defined (DO_SPAT_PROFILING)
-    SET_ACTIVITY(ACT_REDN); /* init: do this first so we count restore insns */
-#endif
-
     /* Load up the real registers from the *_SAVE locns. */
 #if defined(__STG_GCC_REGS__)
     RestoreAllStgRegs();       /* inline! */
@@ -211,10 +202,6 @@ STGFUN(startEnterFloat)
 {
     FUNBEGIN;
 
-#if defined (DO_SPAT_PROFILING)
-    SET_ACTIVITY(ACT_REDN); /* init: do this first so we count restore insns */
-#endif
-
     /* Load up the real registers from the *_SAVE locns. */
 #if defined(__STG_GCC_REGS__)
     RestoreAllStgRegs();       /* inline! */