diff options
author | Chantal Keller <Chantal.Keller@inria.fr> | 2020-06-30 13:08:33 +0200 |
---|---|---|
committer | Chantal Keller <Chantal.Keller@inria.fr> | 2020-06-30 13:08:33 +0200 |
commit | 1300f0ab1aa346b4830d42e04693aba32d77d500 (patch) | |
tree | 28846a77bf2417debb728b3e3efba415ac519ab6 /src/trace/smtAtom.ml | |
parent | 733564e496eaac816e037b5efe0f5cc6b861fe20 (diff) | |
parent | 26c639d438169530275ff7e48a55355deb7047df (diff) | |
download | smtcoq-1300f0ab1aa346b4830d42e04693aba32d77d500.tar.gz smtcoq-1300f0ab1aa346b4830d42e04693aba32d77d500.zip |
Merge branch 'master' of github.com:smtcoq/smtcoq into coq-8.10
Diffstat (limited to 'src/trace/smtAtom.ml')
-rw-r--r-- | src/trace/smtAtom.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/trace/smtAtom.ml b/src/trace/smtAtom.ml index c20a75d..ae44b8d 100644 --- a/src/trace/smtAtom.ml +++ b/src/trace/smtAtom.ml @@ -649,7 +649,7 @@ module Atom = to_smt_atom (atom h) and to_smt_atom = function - | Acop (CO_BV bv) -> Format.fprintf fmt "#b%a" bv_to_smt bv + | Acop (CO_BV bv) -> if List.length bv = 0 then Structures.error "Empty bit-vectors are not valid in SMT" else Format.fprintf fmt "#b%a" bv_to_smt bv | Acop _ as a -> to_smt_int fmt (compute_int a) | Auop (op,h) -> to_smt_uop op h | Abop (op,h1,h2) -> to_smt_bop op h1 h2 |