X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FnativeGen%2FAbsCStixGen.lhs;h=604e41a4cdb626ca136e86e8c171f54295e9e62f;hb=665229e50c7704d70e8b8966c9f0e8d4623cf293;hp=c15c87e37af8e3c9001b497ee045649904568d4e;hpb=1364aa0bb9152ca00f433359487ec83ed7136df0;p=ghc-hetmet.git

diff --git a/ghc/compiler/nativeGen/AbsCStixGen.lhs b/ghc/compiler/nativeGen/AbsCStixGen.lhs
index c15c87e..604e41a 100644
--- a/ghc/compiler/nativeGen/AbsCStixGen.lhs
+++ b/ghc/compiler/nativeGen/AbsCStixGen.lhs
@@ -14,7 +14,7 @@ import Stix
 import MachMisc
 
 import AbsCUtils	( getAmodeRep, mixedTypeLocn,
-			  nonemptyAbsC, mkAbsCStmts, mkAbsCStmtList
+			  nonemptyAbsC, mkAbsCStmts
 			)
 import PprAbsC          ( dumpRealC )
 import SMRep		( fixedItblSize, 
@@ -54,11 +54,10 @@ We leave the chunks separated so that register allocation can be
 performed locally within the chunk.
 
 \begin{code}
-genCodeAbstractC :: AbstractC -> UniqSM [[StixTree]]
+genCodeAbstractC :: AbstractC -> UniqSM [StixTree]
 
 genCodeAbstractC absC
-  = mapUs gentopcode (mkAbsCStmtList absC) `thenUs` \ trees ->
-    returnUs ([StComment SLIT("Native Code")] : trees)
+  = gentopcode absC
  where
  a2stix      = amodeToStix
  a2stix'     = amodeToStix'