diff options
Diffstat (limited to 'ghc/compiler/nativeGen/MachCode.lhs')
| -rw-r--r-- | ghc/compiler/nativeGen/MachCode.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/nativeGen/MachCode.lhs b/ghc/compiler/nativeGen/MachCode.lhs index d4195d7b05..6769c33a0b 100644 --- a/ghc/compiler/nativeGen/MachCode.lhs +++ b/ghc/compiler/nativeGen/MachCode.lhs @@ -241,7 +241,7 @@ getRegister (StReg (StixMagicId stgreg)) -- cannae be Nothing getRegister (StReg (StixTemp u pk)) - = returnNat (Fixed pk (UnmappedReg u pk) nilOL) + = returnNat (Fixed pk (mkVReg u pk) nilOL) getRegister tree@(StIndex _ _ _) = getRegister (mangleIndexTree tree) |