X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2FnativeGen%2FNCGMonad.hs;h=409d0c42cff7047f512978322c273bf069ed472b;hb=f9288086f935c97812b2d80defcff38baf7b6a6c;hp=ed59d2bd0ae22b922978ddee18d7dce7923128d8;hpb=de29a9f02449359b70402f763ac7590673774124;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/NCGMonad.hs b/compiler/nativeGen/NCGMonad.hs
index ed59d2b..409d0c4 100644
--- a/compiler/nativeGen/NCGMonad.hs
+++ b/compiler/nativeGen/NCGMonad.hs
@@ -132,14 +132,16 @@ getNewLabelNat
 getNewRegNat :: Size -> NatM Reg
 getNewRegNat rep 
  = do	u <- getUniqueNat
- 	return (targetMkVReg u rep)
+ 	return (RegVirtual $ targetMkVirtualReg u rep)
 
 
 getNewRegPairNat :: Size -> NatM (Reg,Reg)
 getNewRegPairNat rep 
  = do	u 	<- getUniqueNat
-	let lo 	= targetMkVReg u rep; hi = getHiVRegFromLo lo
-	return (lo,hi)
+ 	let vLo	= targetMkVirtualReg u rep
+	let lo 	= RegVirtual $ targetMkVirtualReg u rep
+	let hi 	= RegVirtual $ getHiVirtualRegFromLo vLo
+	return (lo, hi)
 
 
 getPicBaseMaybeNat :: NatM (Maybe Reg)