From: simonmar <unknown>
Date: Fri, 8 Apr 2005 10:07:00 +0000 (+0000)
Subject: [project @ 2005-04-08 10:07:00 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~776
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=736e0428d7a8a1e54d9c31ad21a56c1e1109b907;p=ghc-hetmet.git

[project @ 2005-04-08 10:07:00 by simonmar]
Fix i386 breakage
---

diff --git a/ghc/compiler/nativeGen/MachCodeGen.hs b/ghc/compiler/nativeGen/MachCodeGen.hs
index 3ab97cb..077eeed 100644
--- a/ghc/compiler/nativeGen/MachCodeGen.hs
+++ b/ghc/compiler/nativeGen/MachCodeGen.hs
@@ -3157,8 +3157,8 @@ genCCall target dest_regs args vols = do
                         code `appOL`
                         toOL [SUB I32 (OpImm (ImmInt size)) (OpReg esp),
                               DELTA (delta-size),
-                              GST sz reg (AddrBaseIndex (Just esp) 
-                                                        Nothing 
+                              GST sz reg (AddrBaseIndex (EABaseReg esp) 
+                                                        EAIndexNone
                                                         (ImmInt 0))]
                        )
            else return (size,