From: sewardj <unknown>
Date: Thu, 13 Jan 2000 17:01:16 +0000 (+0000)
Subject: [project @ 2000-01-13 17:01:16 by sewardj]
X-Git-Tag: Approximately_9120_patches~5296
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c105f2766ece9331b8be537a43eef6a6510a896a;p=ghc-hetmet.git

[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
--- 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)