projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 1996-06-27 16:13:29 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.
*/
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! -------------------------*/
RestoreAllStgRegs(); /* inline! */
/* ------- STG registers are now valid! -------------------------*/
@@
-148,10
+143,6
@@
STGFUN(startEnterInt)
{
FUNBEGIN;
{
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! */
/* Load up the real registers from the *_SAVE locns. */
#if defined(__STG_GCC_REGS__)
RestoreAllStgRegs(); /* inline! */
@@
-211,10
+202,6
@@
STGFUN(startEnterFloat)
{
FUNBEGIN;
{
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! */
/* Load up the real registers from the *_SAVE locns. */
#if defined(__STG_GCC_REGS__)
RestoreAllStgRegs(); /* inline! */