From c105f2766ece9331b8be537a43eef6a6510a896a Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Thu, 13 Jan 2000 17:01:16 +0000
Subject: [PATCH] [project @ 2000-01-13 17:01:16 by sewardj] stmt2Instrs:
 correctly handle StData with zero data words

---
 ghc/compiler/nativeGen/MachCode.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/compiler/nativeGen/MachCode.lhs b/ghc/compiler/nativeGen/MachCode.lhs
index b10a17e..d59a3f5 100644
--- 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)
 
-- 
1.7.10.4