From 88e2e9b68aab91a3623902590179615a612aeae1 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Mon, 14 Oct 2002 15:50:14 +0000
Subject: [PATCH] [project @ 2002-10-14 15:50:14 by sof] make it compile again
 (x86)

---
 ghc/compiler/nativeGen/MachCode.lhs |    3 +++
 1 file changed, 3 insertions(+)

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)
-- 
1.7.10.4