[project @ 2000-01-13 17:01:16 by sewardj]

stmt2Instrs: correctly handle StData with zero data words

diff --git a/ghc/compiler/nativeGen/MachCode.lhs b/ghc/compiler/nativeGen/MachCode.lhs
index b10a17e..d59a3f5 100644 (file)
--- a/ghc/compiler/nativeGen/MachCode.lhs
+++ b/ghc/compiler/nativeGen/MachCode.lhs
@@ -64,7 +64,7 @@ stmt2Instrs stmt = case stmt of
     StData kind args
       -> mapAndUnzipUs getData args    `thenUs` \ (codes, imms) ->
         returnUs (\xs -> mkSeqList (asmInstr (DATA (primRepToSize kind) imms))
-                                   (foldr1 (.) codes xs))
+                                   (foldr (.) id codes xs))
       where
        getData :: StixTree -> UniqSM (InstrBlock, Imm)