summaryrefslogtreecommitdiff
path: root/compiler/SymbolicToPure.ml
diff options
context:
space:
mode:
authorSon Ho2023-12-13 16:54:10 +0100
committerSon Ho2023-12-13 16:54:10 +0100
commitc48859717d847f4492a0c3cc76e8f8b0b38fcc10 (patch)
tree15e16de213825acbb403c8a6d16f0f2e5c0d4618 /compiler/SymbolicToPure.ml
parentc6247e0c103cc1dc95c2a63ae01602c4a1208dc4 (diff)
Update the extraction to handle casts between integers/bools
Diffstat (limited to 'compiler/SymbolicToPure.ml')
-rw-r--r--compiler/SymbolicToPure.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/SymbolicToPure.ml b/compiler/SymbolicToPure.ml
index bf4d26f2..84f09280 100644
--- a/compiler/SymbolicToPure.ml
+++ b/compiler/SymbolicToPure.ml
@@ -1762,7 +1762,7 @@ and translate_function_call (call : S.call) (e : S.expression) (ctx : bs_ctx) :
| _ -> raise (Failure "Unreachable"))
| S.Unop (E.Cast cast_kind) -> (
match cast_kind with
- | CastInteger (src_ty, tgt_ty) ->
+ | CastScalar (src_ty, tgt_ty) ->
(* Note that cast can fail *)
let effect_info =
{