Skip to content
Snippets Groups Projects
Commit bc823a08 authored by Simon Marlow's avatar Simon Marlow
Browse files

[project @ 2000-07-03 15:12:41 by simonmar]

DEBUG ==> NCG_DEBUG
parent ab661fe0
No related merge requests found
...@@ -8,7 +8,6 @@ module AsmCodeGen ( nativeCodeGen ) where ...@@ -8,7 +8,6 @@ module AsmCodeGen ( nativeCodeGen ) where
#include "HsVersions.h" #include "HsVersions.h"
#include "nativeGen/NCG.h" #include "nativeGen/NCG.h"
import IO ( Handle )
import List ( intersperse ) import List ( intersperse )
import MachMisc import MachMisc
...@@ -28,14 +27,13 @@ import Stix ( StixTree(..), StixReg(..), ...@@ -28,14 +27,13 @@ import Stix ( StixTree(..), StixReg(..),
NatM, initNat, mapNat, NatM, initNat, mapNat,
NatM_State, mkNatM_State, NatM_State, mkNatM_State,
uniqOfNatM_State, deltaOfNatM_State ) uniqOfNatM_State, deltaOfNatM_State )
import PrimRep ( isFloatingRep, PrimRep(..) )
import UniqSupply ( returnUs, thenUs, mapUs, initUs, import UniqSupply ( returnUs, thenUs, mapUs, initUs,
initUs_, UniqSM, UniqSupply, initUs_, UniqSM, UniqSupply,
lazyThenUs, lazyMapUs ) lazyThenUs, lazyMapUs )
import MachMisc ( IF_ARCH_i386(i386_insert_ffrees,) ) import MachMisc ( IF_ARCH_i386(i386_insert_ffrees,) )
import OrdList ( fromOL, concatOL ) import OrdList ( fromOL, concatOL )
import Outputable import Outputable
\end{code} \end{code}
...@@ -97,12 +95,13 @@ nativeCodeGen absC us ...@@ -97,12 +95,13 @@ nativeCodeGen absC us
insn_sdoc = my_vcat insn_sdocs insn_sdoc = my_vcat insn_sdocs
stix_sdoc = vcat stix_sdocs stix_sdoc = vcat stix_sdocs
# if DEBUG # if NCG_DEBUG
my_trace m x = trace m x my_trace m x = trace m x
my_vcat sds = vcat (intersperse (char ' ' my_vcat sds = vcat (intersperse
$$ ptext SLIT("# ___stg_split_marker") (char ' '
$$ char ' ') $$ ptext SLIT("# __debug_NCG_split_marker")
sds) $$ char ' ')
sds)
# else # else
my_vcat sds = vcat sds my_vcat sds = vcat sds
my_trace m x = x my_trace m x = x
...@@ -201,7 +200,7 @@ stixPeep ( t1@(StAssign pka (StReg (StixTemp u pk)) rhs) ...@@ -201,7 +200,7 @@ stixPeep ( t1@(StAssign pka (StReg (StixTemp u pk)) rhs)
| stixCountTempUses u t2 == 1 | stixCountTempUses u t2 == 1
&& sum (map (stixCountTempUses u) ts) == 0 && sum (map (stixCountTempUses u) ts) == 0
= =
# ifdef DEBUG # ifdef NCG_DEBUG
trace ("nativeGen: inlining " ++ showSDoc (pprStixTree rhs)) trace ("nativeGen: inlining " ++ showSDoc (pprStixTree rhs))
# endif # endif
(stixPeep (stixSubst u rhs t2 : ts)) (stixPeep (stixSubst u rhs t2 : ts))
...@@ -372,4 +371,4 @@ comparison_ops ...@@ -372,4 +371,4 @@ comparison_ops
FloatGtOp , FloatGeOp , FloatEqOp , FloatNeOp , FloatLtOp , FloatLeOp, FloatGtOp , FloatGeOp , FloatEqOp , FloatNeOp , FloatLtOp , FloatLeOp,
DoubleGtOp, DoubleGeOp, DoubleEqOp, DoubleNeOp, DoubleLtOp, DoubleLeOp DoubleGtOp, DoubleGeOp, DoubleEqOp, DoubleNeOp, DoubleLtOp, DoubleLeOp
] ]
\end{code} \end{code}
\ No newline at end of file
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment