From bc823a0863befbcd57f70d29e04bc202384b3d33 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 3 Jul 2000 15:12:41 +0000
Subject: [PATCH] [project @ 2000-07-03 15:12:41 by simonmar] DEBUG ==>
NCG_DEBUG
---
ghc/compiler/nativeGen/AsmCodeGen.lhs | 19 +++++++++----------
1 file changed, 9 insertions(+), 10 deletions(-)
diff --git a/ghc/compiler/nativeGen/AsmCodeGen.lhs b/ghc/compiler/nativeGen/AsmCodeGen.lhs
index d85bc69133fa..5fca05543108 100644
--- a/ghc/compiler/nativeGen/AsmCodeGen.lhs
+++ b/ghc/compiler/nativeGen/AsmCodeGen.lhs
@@ -8,7 +8,6 @@ module AsmCodeGen ( nativeCodeGen ) where
#include "HsVersions.h"
#include "nativeGen/NCG.h"
-import IO ( Handle )
import List ( intersperse )
import MachMisc
@@ -28,14 +27,13 @@ import Stix ( StixTree(..), StixReg(..),
NatM, initNat, mapNat,
NatM_State, mkNatM_State,
uniqOfNatM_State, deltaOfNatM_State )
-import PrimRep ( isFloatingRep, PrimRep(..) )
import UniqSupply ( returnUs, thenUs, mapUs, initUs,
initUs_, UniqSM, UniqSupply,
lazyThenUs, lazyMapUs )
import MachMisc ( IF_ARCH_i386(i386_insert_ffrees,) )
import OrdList ( fromOL, concatOL )
-import Outputable
+import Outputable
\end{code}
@@ -97,12 +95,13 @@ nativeCodeGen absC us
insn_sdoc = my_vcat insn_sdocs
stix_sdoc = vcat stix_sdocs
-# if DEBUG
+# if NCG_DEBUG
my_trace m x = trace m x
- my_vcat sds = vcat (intersperse (char ' '
- $$ ptext SLIT("# ___stg_split_marker")
- $$ char ' ')
- sds)
+ my_vcat sds = vcat (intersperse
+ (char ' '
+ $$ ptext SLIT("# __debug_NCG_split_marker")
+ $$ char ' ')
+ sds)
# else
my_vcat sds = vcat sds
my_trace m x = x
@@ -201,7 +200,7 @@ stixPeep ( t1@(StAssign pka (StReg (StixTemp u pk)) rhs)
| stixCountTempUses u t2 == 1
&& sum (map (stixCountTempUses u) ts) == 0
=
-# ifdef DEBUG
+# ifdef NCG_DEBUG
trace ("nativeGen: inlining " ++ showSDoc (pprStixTree rhs))
# endif
(stixPeep (stixSubst u rhs t2 : ts))
@@ -372,4 +371,4 @@ comparison_ops
FloatGtOp , FloatGeOp , FloatEqOp , FloatNeOp , FloatLtOp , FloatLeOp,
DoubleGtOp, DoubleGeOp, DoubleEqOp, DoubleNeOp, DoubleLtOp, DoubleLeOp
]
-\end{code}
\ No newline at end of file
+\end{code}
--
GitLab