summaryrefslogtreecommitdiff
path: root/ghc/compiler/nativeGen/MachMisc.lhs
diff options
context:
space:
mode:
authorsewardj <unknown>2002-01-29 16:52:32 +0000
committersewardj <unknown>2002-01-29 16:52:32 +0000
commit383f737fe5ade5c6049ef0e1824fe5ec196254ba (patch)
tree3794d32a4388f84c292971acd64c8977ca186fa3 /ghc/compiler/nativeGen/MachMisc.lhs
parent2674c7c3b6df8cb95daf8fd28bc2f9d0f6503152 (diff)
downloadhaskell-383f737fe5ade5c6049ef0e1824fe5ec196254ba.tar.gz
[project @ 2002-01-29 16:52:25 by sewardj]
sparc NCG fixes for f-i-dynamic.
Diffstat (limited to 'ghc/compiler/nativeGen/MachMisc.lhs')
-rw-r--r--ghc/compiler/nativeGen/MachMisc.lhs2
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/nativeGen/MachMisc.lhs b/ghc/compiler/nativeGen/MachMisc.lhs
index c29aee43a9..012b319dea 100644
--- a/ghc/compiler/nativeGen/MachMisc.lhs
+++ b/ghc/compiler/nativeGen/MachMisc.lhs
@@ -677,7 +677,7 @@ is_G_instr instr
| BF Cond Bool Imm -- cond, annul?, target
| JMP DestInfo MachRegsAddr -- target
- | CALL Imm Int Bool -- target, args, terminal
+ | CALL (Either Imm Reg) Int Bool -- target, args, terminal
data RI = RIReg Reg
| RIImm Imm