diff options
author | Herbert Valerio Riedel <hvr@gnu.org> | 2018-12-18 23:36:29 +0100 |
---|---|---|
committer | Herbert Valerio Riedel <hvr@gnu.org> | 2019-01-18 17:01:56 -0500 |
commit | c9756dbf1ee58b117ea5c4ded45dea88030efd65 (patch) | |
tree | 66aa32d9fdc0303c3b15f3fdb9605e30d8aa2449 /compiler/llvmGen/LlvmCodeGen/CodeGen.hs | |
parent | b14f54041eacf8c0f85e756148042d2dca8333f9 (diff) | |
download | haskell-c9756dbf1ee58b117ea5c4ded45dea88030efd65.tar.gz |
Prepare source-tree for base-4.13 MFP bump
Diffstat (limited to 'compiler/llvmGen/LlvmCodeGen/CodeGen.hs')
-rw-r--r-- | compiler/llvmGen/LlvmCodeGen/CodeGen.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/llvmGen/LlvmCodeGen/CodeGen.hs b/compiler/llvmGen/LlvmCodeGen/CodeGen.hs index 6071bd82e5..f6b47b091c 100644 --- a/compiler/llvmGen/LlvmCodeGen/CodeGen.hs +++ b/compiler/llvmGen/LlvmCodeGen/CodeGen.hs @@ -1658,7 +1658,7 @@ getCmmReg (CmmLocal (LocalReg un _)) dflags <- getDynFlags case exists of Just ety -> return (LMLocalVar un $ pLift ety) - Nothing -> fail $ "getCmmReg: Cmm register " ++ showSDoc dflags (ppr un) ++ " was not allocated!" + Nothing -> panic $ "getCmmReg: Cmm register " ++ showSDoc dflags (ppr un) ++ " was not allocated!" -- This should never happen, as every local variable should -- have been assigned a value at some point, triggering -- "funPrologue" to allocate it on the stack. @@ -1668,7 +1668,7 @@ getCmmReg (CmmGlobal g) dflags <- getDynFlags if onStack then return (lmGlobalRegVar dflags g) - else fail $ "getCmmReg: Cmm register " ++ showSDoc dflags (ppr g) ++ " not stack-allocated!" + else panic $ "getCmmReg: Cmm register " ++ showSDoc dflags (ppr g) ++ " not stack-allocated!" -- | Return the value of a given register, as well as its type. Might -- need to be load from stack. |