LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-06-22 05:02:15 +02:00
Code Issues Releases Wiki Activity

Merge branch 'master' of lpqlx139:quantum_package

Browse Source
This commit is contained in:
Anthony Scemama 2014-09-17 12:35:11 +02:00
commit caa59e03c7
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ocaml/Bitlist.ml
View File

@ -64,7 +64,7 @@ let of_int64_list l =
(* Compute n_int *)
let n_int_of_mo_tot_num mo_tot_num =
let bit_kind_size = Bit_kind_size.to_int Qpackage.bit_kind_size in
let bit_kind_size = Bit_kind_size.to_int (Lazy.force Qpackage.bit_kind_size) in
N_int_number.of_int ( (mo_tot_num-1)/bit_kind_size + 1 )
;;

4
ocaml/Qpackage.ml
View File

@ -10,7 +10,7 @@ Please source the quantum_package.rc file."
| Some x -> x
;;
let bit_kind_size =
let bit_kind_size = lazy (
let filename = root^"/src/Bitmask/bitmasks_module.f90" in
if not (Sys.file_exists_exn filename) then
raise (Failure ("File "^filename^" not found"));
@ -37,5 +37,5 @@ let bit_kind_size =
| _ -> get_data tail
end
in
get_data lines
get_data lines )
;;