From: sof <unknown>
Date: Mon, 14 Oct 2002 15:50:14 +0000 (+0000)
Subject: [project @ 2002-10-14 15:50:14 by sof]
X-Git-Tag: Approx_11550_changesets_converted~1551
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=88e2e9b68aab91a3623902590179615a612aeae1;p=ghc-hetmet.git

[project @ 2002-10-14 15:50:14 by sof]
make it compile again (x86)
---

diff --git a/ghc/compiler/nativeGen/MachCode.lhs b/ghc/compiler/nativeGen/MachCode.lhs
index 1910ef1..484290e 100644
--- a/ghc/compiler/nativeGen/MachCode.lhs
+++ b/ghc/compiler/nativeGen/MachCode.lhs
@@ -2497,6 +2497,9 @@ assignReg_IntCode pk reg src
     getRegister src	    	    `thenNat` \ registers ->
     getNewRegNCG IntRep    	    `thenNat` \ tmp ->
     let 
+        r_dst = registerName registerd tmp
+        r_src = registerName registers r_dst
+        c_src = registerCode registers r_dst
          
         code = c_src `snocOL` 
                MOV L (OpReg r_src) (OpReg r_dst)