diff options
| author | sewardj <unknown> | 2000-01-13 17:01:16 +0000 |
|---|---|---|
| committer | sewardj <unknown> | 2000-01-13 17:01:16 +0000 |
| commit | c105f2766ece9331b8be537a43eef6a6510a896a (patch) | |
| tree | 00b2ba7147ab72f32bf9788170e9d902aced27c2 /ghc/compiler | |
| parent | 50a1fdb6b47f188f4ff95ce44caf0e6f1f44b62b (diff) | |
| download | haskell-c105f2766ece9331b8be537a43eef6a6510a896a.tar.gz | |
[project @ 2000-01-13 17:01:16 by sewardj]
stmt2Instrs: correctly handle StData with zero data words
Diffstat (limited to 'ghc/compiler')
| -rw-r--r-- | ghc/compiler/nativeGen/MachCode.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/nativeGen/MachCode.lhs b/ghc/compiler/nativeGen/MachCode.lhs index b10a17e44b..d59a3f5bd4 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) |