X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FnativeGen%2FRegAllocInfo.lhs;h=7fd7e91fe1cd3f81ca194f14c89b70bfcf5f68ae;hb=225d251337438e2f7870f0ec2781b1c616ef7462;hp=64618713fae52a29f1b66be7b4002e675c2cc1bb;hpb=05c41def95ec45bbe63d3c9ab0ba9e19648717e0;p=ghc-hetmet.git

diff --git a/ghc/compiler/nativeGen/RegAllocInfo.lhs b/ghc/compiler/nativeGen/RegAllocInfo.lhs
index 6461871..7fd7e91 100644
--- a/ghc/compiler/nativeGen/RegAllocInfo.lhs
+++ b/ghc/compiler/nativeGen/RegAllocInfo.lhs
@@ -154,9 +154,9 @@ interesting (RealReg i)      = isFastTrue (freeReg i)
 
 regUsage instr = case instr of
     LD B reg addr	-> usage (regAddr addr, [reg, t9])
-    LD BU reg addr	-> usage (regAddr addr, [reg, t9])
+    LD Bu reg addr	-> usage (regAddr addr, [reg, t9])
 --  LD W reg addr	-> usage (regAddr addr, [reg, t9]) : UNUSED
---  LD WU reg addr	-> usage (regAddr addr, [reg, t9]) : UNUSED
+--  LD Wu reg addr	-> usage (regAddr addr, [reg, t9]) : UNUSED
     LD sz reg addr	-> usage (regAddr addr, [reg])
     LDA reg addr	-> usage (regAddr addr, [reg])
     LDAH reg addr	-> usage (regAddr addr, [reg])