diff options
author | Chantal Keller <Chantal.Keller@lri.fr> | 2021-07-07 09:19:37 +0200 |
---|---|---|
committer | Chantal Keller <Chantal.Keller@lri.fr> | 2021-07-07 09:19:37 +0200 |
commit | 953715b06c502b51fddc6598f810ff4752621481 (patch) | |
tree | 8327255fcadbdb72b12bb1eb1ef96fc4b60b656e /src/trace/coqInterface.ml | |
parent | 2c3b041073910c7d84d7995992e014e56aaed1fb (diff) | |
parent | e2683e1e653a1b6872a886f4b99218e2803f7a74 (diff) | |
download | smtcoq-953715b06c502b51fddc6598f810ff4752621481.tar.gz smtcoq-953715b06c502b51fddc6598f810ff4752621481.zip |
Merge remote-tracking branch 'remotes/origin/coq-8.10' into coq-8.11
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 10de239..d1914cc 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 *) |