[project @ 2005-01-16 05:31:39 by wolfgang]

[ghc-hetmet.git] / ghc / compiler / nativeGen / RegAllocInfo.hs

diff --git a/ghc/compiler/nativeGen/RegAllocInfo.hs b/ghc/compiler/nativeGen/RegAllocInfo.hs
index c1c259a..7d1bf48 100644 (file)
--- 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