diff options
author | Chantal Keller <Chantal.Keller@lri.fr> | 2021-07-07 14:32:37 +0200 |
---|---|---|
committer | Chantal Keller <Chantal.Keller@lri.fr> | 2021-07-07 14:32:37 +0200 |
commit | 0a0dc47da1916c2a850610cfb80ba04c17e64549 (patch) | |
tree | 022eaa0105a039341d09ec8b8ec530cc64c935f4 /src/trace/coqInterface.ml | |
parent | fd20ab4585d6e445cd9998ca33e70eb046613be1 (diff) | |
parent | fa531ff0ef33557d38584f03126caea9507a5a67 (diff) | |
download | smtcoq-0a0dc47da1916c2a850610cfb80ba04c17e64549.tar.gz smtcoq-0a0dc47da1916c2a850610cfb80ba04c17e64549.zip |
Merge remote-tracking branch 'remotes/origin/coq-8.11' into coq-8.12
Diffstat (limited to 'src/trace/coqInterface.ml')
-rw-r--r-- | src/trace/coqInterface.ml | 26 |
1 files changed, 6 insertions, 20 deletions
diff --git a/src/trace/coqInterface.ml b/src/trace/coqInterface.ml index 4b0acc9..96fe6c1 100644 --- a/src/trace/coqInterface.ml +++ b/src/trace/coqInterface.ml @@ -101,26 +101,12 @@ let init_modules = Coqlib.init_modules (* Int63 *) -let int63_modules = [["SMTCoq";"Int63";"Int63Native"]] - -(* 31-bits integers are "called" 63 bits (this is sound) *) -let int31_module = [["Coq";"Numbers";"Cyclic";"Int31";"Int31"]] -let cD0 = gen_constant int31_module "D0" -let cD1 = gen_constant int31_module "D1" -let cI31 = gen_constant int31_module "I31" - -let mkInt : int -> constr = fun i -> - let a = Array.make 31 (Lazy.force cD0) in - let j = ref i in - let k = ref 30 in - while !j <> 0 do - if !j land 1 = 1 then a.(!k) <- Lazy.force cD1; - j := !j lsr 1; - decr k - done; - mkApp (Lazy.force cI31, a) - -let cint = gen_constant int31_module "int31" +let int63_module = [["Coq";"Numbers";"Cyclic";"Int63";"Int63"]] + +let mkInt : int -> Constr.constr = + fun i -> Constr.mkInt (Uint63.of_int i) + +let cint = gen_constant int63_module "int" (* PArray *) |