@@ -2009,7 +2009,7 @@ explore ::
2009
2009
CruCtx args ->
2010
2010
CruCtx ghosts ->
2011
2011
MbValuePerms ((tops :++: args) :++: ghosts) ->
2012
-
2012
+
2013
2013
(RAssign ExprVar tops -> RAssign ExprVar args -> RAssign ExprVar ghosts ->
2014
2014
DistPerms ((tops :++: args) :++: ghosts) ->
2015
2015
PermCheckM ext cblocks blocks tops ret r1 ps r2 ((tops :++: args)
@@ -2029,7 +2029,7 @@ explore names entryID topCtx argCtx ghostCtx mb_perms_in m =
2029
2029
(tops_ns, args_ns) = RL.split Proxy args_prxs tops_args
2030
2030
st :: PermCheckState ext blocks tops ret ((tops :++: args) :++: ghosts)
2031
2031
st = emptyPermCheckState (distPermSet perms_in) tops_ns entryID local_names in
2032
-
2032
+
2033
2033
setVarTypes tops_ns topCtx >>>
2034
2034
modify (\s->s{ stPPInfo = ppInfoApplyAllocation tops_ns topDbgs (stPPInfo st)}) >>>
2035
2035
modify (\s->s{ stPPInfo = ppInfoApplyAllocation args_ns argDbgs (stPPInfo st)}) >>>
@@ -2225,8 +2225,8 @@ getAtomicLLVMPerms r =
2225
2225
Right ps -> pure ps
2226
2226
Left e ->
2227
2227
permGetPPInfo >>>= \ ppinfo ->
2228
- stmtFailM $ AtomicPermError
2229
- (permPretty ppinfo r)
2228
+ stmtFailM $ AtomicPermError
2229
+ (permPretty ppinfo r)
2230
2230
(permPretty ppinfo (ValPerm_Eq $ PExpr_LLVMWord e))
2231
2231
2232
2232
@@ -2344,7 +2344,7 @@ allocateDebugNames base (ds :>: Constant dbg) (CruCtxCons ts tp) ppi =
2344
2344
(Just b,_) -> b ++ " _" ++ typeBaseName tp
2345
2345
(Nothing ,Nothing ) -> typeBaseName tp
2346
2346
2347
-
2347
+
2348
2348
allocateDebugNamesM ::
2349
2349
Maybe String -> -- ^ The base name of the variable (e.g., "top", "arg", etc.)
2350
2350
RAssign (Constant (Maybe String )) tps ->
@@ -3184,7 +3184,7 @@ tcEmitLLVMSetExpr ctx loc (LLVM_PointerExpr w blk_reg off_reg) =
3184
3184
emitLLVMStmt knownRepr name loc (ConstructLLVMWord toff_reg) >>>= \ x ->
3185
3185
stmtRecombinePerms >>>
3186
3186
pure (addCtxName ctx x)
3187
- _ ->
3187
+ _ ->
3188
3188
permGetPPInfo >>>= \ ppinfo ->
3189
3189
stmtFailM $ NonZeroPointerBlockError (permPretty ppinfo tblk_reg)
3190
3190
@@ -3503,8 +3503,8 @@ tcEmitLLVMStmt _arch ctx loc (LLVM_Alloca w _ sz_reg _ _) =
3503
3503
stmtFailM $ AllocaError (AllocaNonConstantError $ permPretty ppinfo sz_treg)
3504
3504
(Just fp, p, _) ->
3505
3505
permGetPPInfo >>>= \ ppinfo ->
3506
- stmtFailM $ AllocaError $ AllocaFramePermError
3507
- (permPretty ppinfo fp)
3506
+ stmtFailM $ AllocaError $ AllocaFramePermError
3507
+ (permPretty ppinfo fp)
3508
3508
(permPretty ppinfo p)
3509
3509
(Nothing , _, _) ->
3510
3510
stmtFailM $ AllocaError AllocaFramePtrError
@@ -3745,7 +3745,7 @@ tcEmitLLVMStmt _arch ctx loc (LLVM_PtrEq _ (r1 :: Reg ctx (LLVMPointerType wptr)
3745
3745
-- fail, because there is no way to compare pointers in the translation
3746
3746
_ ->
3747
3747
permGetPPInfo >>>= \ ppinfo ->
3748
- stmtFailM $ PointerComparisonError
3748
+ stmtFailM $ PointerComparisonError
3749
3749
(permPretty ppinfo x1)
3750
3750
(permPretty ppinfo x2)
3751
3751
@@ -4462,13 +4462,13 @@ instance ErrorPretty StmtError where
4462
4462
pretty " Could not cast" <+> docx <+>
4463
4463
pretty " from" <+> pretty (show tp1) <+>
4464
4464
pretty " to" <+> pretty (show tp2)
4465
- ppError FailedAssertionError =
4465
+ ppError FailedAssertionError =
4466
4466
" Failed assertion"
4467
4467
ppError (NonZeroPointerBlockError tblk_reg) = renderDoc $
4468
4468
pretty " LLVM_PointerExpr: Non-zero pointer block: " <> tblk_reg
4469
- ppError (UndefinedBehaviorError doc) =
4469
+ ppError (UndefinedBehaviorError doc) =
4470
4470
renderDoc doc
4471
- ppError X86ExprError =
4471
+ ppError X86ExprError =
4472
4472
" X86Expr not supported"
4473
4473
ppError (AllocaError (AllocaNonConstantError sz_treg)) = renderDoc $
4474
4474
pretty " LLVM_Alloca: non-constant size for" <+>
0 commit comments