[project @ 2004-10-07 15:54:03 by wolfgang]

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

diff --git a/ghc/compiler/nativeGen/MachInstrs.hs b/ghc/compiler/nativeGen/MachInstrs.hs
index b0b68e4..4cfcc17 100644 (file)
--- a/ghc/compiler/nativeGen/MachInstrs.hs
+++ b/ghc/compiler/nativeGen/MachInstrs.hs
@@ -661,6 +661,10 @@ fPair other = pprPanic "fPair(sparc NCG)" (ppr other)
              | CRNOR   Int Int Int    -- condition register nor
              | MFCR    Reg            -- move from condition register
              
+             | MFLR    Reg            -- move from link register
+             | FETCHPC Reg            -- pseudo-instruction:
+                                      -- bcl to next insn, mflr reg
+             
 condUnsigned GU = True
 condUnsigned LU = True
 condUnsigned GEU = True