summaryrefslogtreecommitdiff
path: root/compiler/nativeGen/PPC/CodeGen.hs
diff options
context:
space:
mode:
authorIan Lynagh <ian@well-typed.com>2012-08-21 21:50:59 +0100
committerIan Lynagh <ian@well-typed.com>2012-08-21 21:50:59 +0100
commita3d77e86c1524017962810ba2f62a3953f9d8b26 (patch)
treeb9cc62c7c47601c1c4421c31bce82f1baaa8c7a7 /compiler/nativeGen/PPC/CodeGen.hs
parent98c29f9419a3f8397ef0ac6e5e0d1a175a2ec5d3 (diff)
downloadhaskell-a3d77e86c1524017962810ba2f62a3953f9d8b26.tar.gz
Make the PPC globalRegMaybe more similar to the other platforms'
Diffstat (limited to 'compiler/nativeGen/PPC/CodeGen.hs')
-rw-r--r--compiler/nativeGen/PPC/CodeGen.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/nativeGen/PPC/CodeGen.hs b/compiler/nativeGen/PPC/CodeGen.hs
index c725dd2f0c..4090d95c9f 100644
--- a/compiler/nativeGen/PPC/CodeGen.hs
+++ b/compiler/nativeGen/PPC/CodeGen.hs
@@ -178,7 +178,7 @@ getRegisterReg (CmmLocal (LocalReg u pk))
getRegisterReg (CmmGlobal mid)
= case globalRegMaybe mid of
- Just reg -> reg
+ Just reg -> RegReal reg
Nothing -> pprPanic "getRegisterReg-memory" (ppr $ CmmGlobal mid)
-- By this stage, the only MagicIds remaining should be the
-- ones which map to a real machine register on this