Remove local allocation counting

Author: stedolan

asmcomp/amd64/emit.mlp

@@ -875,11 +875,7 @@ let emit_instr fallthrough i =
   | Lop(Ibeginregion) ->
       I.mov (domain_field Domainstate.Domain_local_sp) (res i 0)
   | Lop(Iendregion) ->
-      I.mov (arg i 0) r11;
-      I.sub (domain_field Domainstate.Domain_local_sp) r11;
-      I.add r11 (domain_field Domainstate.Domain_local_total);
-      I.add (domain_field Domainstate.Domain_local_sp) r11;
-      I.mov r11 (domain_field Domainstate.Domain_local_sp)
+      I.mov (arg i 0) (domain_field Domainstate.Domain_local_sp)
   | Lop (Iname_for_debugger _) -> ()
   | Lop (Iprobe _) ->
     let probe_label = new_label () in

asmcomp/amd64/proc.ml

@@ -312,7 +312,6 @@ let destroyed_at_oper = function
         -> [| rax |]
   | Iswitch(_, _) -> [| rax; rdx |]
   | Itrywith _ -> [| r11 |]
-  | Iop(Iendregion) -> [| r11 |]
   | _ ->
     if fp then
 (* prevent any use of the frame pointer ! *)

asmcomp/i386/emit.mlp

@@ -835,9 +835,6 @@ let emit_instr fallthrough i =
   | Lop (Iendregion) ->
      I.mov (reg i.arg.(0)) eax;
      load_domain_state ebx;
-     I.sub (domain_field Domainstate.Domain_local_sp RBX) eax;
-     I.add eax (domain_field Domainstate.Domain_local_total RBX);
-     I.add (domain_field Domainstate.Domain_local_sp RBX) eax;
      I.mov eax (domain_field Domainstate.Domain_local_sp RBX)
   | Lop (Iname_for_debugger _) -> ()
   | Lop (Iprobe _ |Iprobe_is_enabled _) -> assert false

runtime/caml/domain_state.tbl

@@ -41,8 +41,6 @@ DOMAIN_STATE(intnat, local_sp)
 DOMAIN_STATE(void*, local_top)
 DOMAIN_STATE(intnat, local_limit)
 
-DOMAIN_STATE(intnat, local_total)
-
 DOMAIN_STATE(struct mark_stack*, mark_stack)
 /* See major_gc.c */
 

runtime/domain.c

@@ -60,7 +60,6 @@ void caml_init_domain ()
   Caml_state->local_sp = 0;
   Caml_state->local_top = NULL;
   Caml_state->local_limit = 0;
-  Caml_state->local_total = 0;
 
   Caml_state->top_of_stack = NULL;
   Caml_state->bottom_of_stack = NULL; /* no stack initially */

runtime/sys.c

@@ -150,8 +150,6 @@ CAMLprim value caml_sys_exit(value retcode_v)
     caml_gc_message(0x400,
                     "forced_major_collections: %"ARCH_INTNAT_PRINTF_FORMAT"d\n",
                     forcmajcoll);
-    caml_gc_message(0x400, "local_words: %"ARCH_INTNAT_PRINTF_FORMAT"d\n",
-                    Wsize_bsize(Caml_state->local_total));
   }
 
 #ifndef NATIVE_CODE