Skip to content

Commit 6562ec5

Browse files
authored
Fix make_complex.ml dependencies (#13)
* Fix crash while loading make_complex.ml CODE_BUFFER_SIZE 5242880 is not enough. * Fix Multivariate/canal.ml * Fix Multivariate/clifford.ml * Fix Multivariate/realanalysis.ml
1 parent 2ec1ed9 commit 6562ec5

5 files changed

Lines changed: 8 additions & 7 deletions

File tree

Multivariate/canal.ml

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -2391,7 +2391,7 @@ let HOLOMORPHIC_CONSTANT_IM = prove
23912391
(* Differentiation conversion. *)
23922392
(* ------------------------------------------------------------------------- *)
23932393

2394-
let complex_differentiation_theorems = ref [];;
2394+
let complex_differentiation_theorems = ref ([]: thm list);;
23952395

23962396
let add_complex_differentiation_theorems =
23972397
let ETA_THM = prove

Multivariate/clifford.ml

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -761,7 +761,7 @@ let SETENUM_NORM_CONV =
761761
GEN_REWRITE_CONV I [FORALL_SIMP] in
762762
fun tm ->
763763
let nums = dest_setenum tm in
764-
let nums' = map mk_numeral (sort (</) (map dest_numeral (setify nums))) in
764+
let nums' = map mk_numeral (sort (</) (map dest_numeral (setify Term.(<) nums))) in
765765
if nums' = nums then REFL tm else
766766
let eq = mk_eq(tm,mk_setenum(nums',fst(dest_fun_ty(type_of tm)))) in
767767
EQT_ELIM(conv eq);;
@@ -829,7 +829,7 @@ let MBASIS_GROUP_CONV tm =
829829
let vadd_tm = rator(rator tm) in
830830
let mk_vadd = mk_binop vadd_tm in
831831
let mbs = map (snd o dest_binary "%") tms in
832-
let tmbs = zip mbs tms and mset = setify mbs in
832+
let tmbs = zip mbs tms and mset = setify Term.(<) mbs in
833833
let grps = map (fun x -> map snd (filter (fun (x',_) -> x' = x) tmbs))
834834
mset in
835835
let tm' = end_itlist mk_vadd (map (end_itlist mk_vadd) grps) in

Multivariate/realanalysis.ml

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -4326,7 +4326,7 @@ let REAL_CONTINUOUS_ON_ACS = prove
43264326
(* Differentiation conversion. *)
43274327
(* ------------------------------------------------------------------------- *)
43284328

4329-
let real_differentiation_theorems = ref [];;
4329+
let real_differentiation_theorems = ref ([]: thm list);;
43304330

43314331
let add_real_differentiation_theorems =
43324332
let ETA_THM = prove

build-instructions.sh

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -12,7 +12,8 @@ tar xvzf cake-x64-64.tar.gz --strip-components=1
1212

1313
# By default, the CakeML compiler reserves a few kilobytes for constants and
1414
# code produced by the dynamic compiler. Using Candle requires setting these
15-
# to some megabytes:
15+
# to some megabytes (or hundreds of megabytes for some of the more heavier
16+
# files in HOL Light, such as make_complex.ml).
1617
patch cake.S ../cake.S.patch
1718

1819
# Patching in useful FFI calls

candle/cake.S.patch

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -2,5 +2,5 @@
22
< #define DATA_BUFFER_SIZE 65536
33
< #define CODE_BUFFER_SIZE 5242880
44
---
5-
> #define DATA_BUFFER_SIZE 65536000
6-
> #define CODE_BUFFER_SIZE 52428800
5+
> #define DATA_BUFFER_SIZE 655360000
6+
> #define CODE_BUFFER_SIZE 524288000

0 commit comments

Comments
 (0)