X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FnativeGen%2FMachInstrs.hs;h=4cfcc178bf71cee62b79349b86527c6870ad6628;hb=b4d045ae655e5eae25b88917cfe75d7dc7689c21;hp=b0b68e4df5119a48c97fedd8344f2aa2e50e5d8c;hpb=a558bffdbf9288a5c6620b9553ec4839c8b904e4;p=ghc-hetmet.git

diff --git a/ghc/compiler/nativeGen/MachInstrs.hs b/ghc/compiler/nativeGen/MachInstrs.hs
index b0b68e4..4cfcc17 100644
--- 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