X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FnativeGen%2FRegAllocInfo.hs;h=7d1bf485bbe543b49297297b6e531f8c9a0957f7;hb=7a1b0a6cba556511688cb1824f48e31fe6c4cc07;hp=c1c259a2187f834e03b412f805ec088cbdccea35;hpb=e195ea859d2d4227c478a3b5e1e9ac20b086b0c7;p=ghc-hetmet.git

diff --git a/ghc/compiler/nativeGen/RegAllocInfo.hs b/ghc/compiler/nativeGen/RegAllocInfo.hs
index c1c259a..7d1bf48 100644
--- a/ghc/compiler/nativeGen/RegAllocInfo.hs
+++ b/ghc/compiler/nativeGen/RegAllocInfo.hs
@@ -202,6 +202,8 @@ regUsage instr = case instr of
     GCOS   sz src dst	-> mkRU [src] [dst]
     GTAN   sz src dst	-> mkRU [src] [dst]
 
+    FETCHGOT reg        -> mkRU [] [reg]
+
     COMMENT _		-> noUsage
     DELTA   _           -> noUsage
 
@@ -503,7 +505,9 @@ patchRegs instr env = case instr of
 
     CALL (Left imm)	-> instr
     CALL (Right reg)	-> CALL (Right (env reg))
-
+    
+    FETCHGOT reg        -> FETCHGOT (env reg)
+    
     NOP			-> instr
     COMMENT _		-> instr
     DELTA _ 		-> instr