From: simonmar <unknown>
Date: Wed, 27 Apr 2005 11:31:22 +0000 (+0000)
Subject: [project @ 2005-04-27 11:31:22 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~659
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=192c7dbd6b3bdb5c4d990a914defc19205e06dfc;p=ghc-hetmet.git

[project @ 2005-04-27 11:31:22 by simonmar]
i386 wibble
---

diff --git a/ghc/compiler/nativeGen/MachInstrs.hs b/ghc/compiler/nativeGen/MachInstrs.hs
index 1a4c4b8..eda78e2 100644
--- a/ghc/compiler/nativeGen/MachInstrs.hs
+++ b/ghc/compiler/nativeGen/MachInstrs.hs
@@ -532,9 +532,9 @@ i386_insert_ffrees insns
 
 ffree_before_nonlocal_transfers insn
    = case insn of
-        CALL _  -> [GFREE, insn]
-        JMP _   -> [GFREE, insn]
-        other   -> [insn]
+        CALL _ _ -> [GFREE, insn]
+        JMP _    -> [GFREE, insn]
+        other    -> [insn]
 
 
 -- if you ever add a new FP insn to the fake x86 FP insn set,