daily pastebin goal
45%
SHARE
TWEET

Untitled

a guest Feb 16th, 2019 66 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. diff -Naur ocaml-4.00.1/byterun/gc_ctrl.c ocaml-4.00.1-minor-heap-sizes/byterun/gc_ctrl.c
  2. --- ocaml-4.00.1/byterun/gc_ctrl.c  2013-03-12 16:51:15.826348301 +0100
  3. +++ ocaml-4.00.1-minor-heap-sizes/byterun/gc_ctrl.c 2013-03-12 16:50:48.904348123 +0100
  4. @@ -396,7 +396,7 @@
  5.  
  6.      /* Minor heap size comes last because it will trigger a minor collection
  7.         (thus invalidating [v]) and it can raise [Out_of_memory]. */
  8. -  newminsize = norm_minsize (Bsize_wsize (Long_val (Field (v, 0))));
  9. +  newminsize = Bsize_wsize (norm_minsize (Long_val (Field (v, 0))));
  10.    if (newminsize != caml_minor_heap_size){
  11.      caml_gc_message (0x20, "New minor heap size: %luk bytes\n",
  12.                       newminsize/1024);
  13. diff -Naur ocaml-4.00.1/byterun/minor_gc.c ocaml-4.00.1-minor-heap-sizes/byterun/minor_gc.c
  14. --- ocaml-4.00.1/byterun/minor_gc.c 2013-03-12 16:51:15.826348301 +0100
  15. +++ ocaml-4.00.1-minor-heap-sizes/byterun/minor_gc.c    2013-03-12 16:50:48.904348123 +0100
  16. @@ -78,8 +78,8 @@
  17.    char *new_heap;
  18.    void *new_heap_base;
  19.  
  20. -  Assert (size >= Minor_heap_min);
  21. -  Assert (size <= Minor_heap_max);
  22. +  Assert (size >= Bsize_wsize(Minor_heap_min));
  23. +  Assert (size <= Bsize_wsize(Minor_heap_max));
  24.    Assert (size % sizeof (value) == 0);
  25.    if (caml_young_ptr != caml_young_end) caml_minor_collection ();
  26.                                      Assert (caml_young_ptr == caml_young_end);
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top