diff options
author | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-10-02 15:58:10 +0000 |
---|---|---|
committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-10-02 15:58:10 +0000 |
commit | 8c24fc1ba49a1623dbecbea82c9fef238f17c4ee (patch) | |
tree | 2ed964bfe61d0d7650dc51b07313bbbc13937dc0 /kernel/csymtable.ml | |
parent | 85c509a0fada387d3af96add3dac6a7c702b5d01 (diff) |
Remove some dead code in the vm
Apparently Cysmtable.set_global_boxed is unused,
and removing it allows to get rid of a bunch of C code
concerning "boxed" things (including ACCUMULATECOND
instruction).
Still TODO: Csymtable.set_transparent_const and
Csymtable.set_opaque_const appear to be no-ops.
Should we remove them ?
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15845 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/csymtable.ml')
-rw-r--r-- | kernel/csymtable.ml | 40 |
1 files changed, 2 insertions, 38 deletions
diff --git a/kernel/csymtable.ml b/kernel/csymtable.ml index 82250badb..f44e85320 100644 --- a/kernel/csymtable.ml +++ b/kernel/csymtable.ml @@ -51,35 +51,6 @@ let set_global v = incr num_global; n -(* [global_transp],[global_boxed] contiennent les valeurs des - definitions gelees. Les deux versions sont maintenues en //. - [global_transp] contient la version transparente. - [global_boxed] contient la version gelees. *) - -external global_boxed : unit -> bool array = "get_coq_global_boxed" - -(* [realloc_global_data n] augmente de n la taille de [global_data] *) -external realloc_global_boxed : int -> unit = "realloc_coq_global_boxed" - -let check_global_boxed n = - if n >= Array.length (global_boxed()) then realloc_global_boxed n - -let num_boxed = ref 0 - -let boxed_tbl = Hashtbl.create 53 - -let cst_opaque = ref Cpred.full - -let is_opaque kn = Cpred.mem kn !cst_opaque - -let set_global_boxed kn v = - let n = !num_boxed in - check_global_boxed n; - (global_boxed()).(n) <- (is_opaque kn); - Hashtbl.add boxed_tbl kn n ; - incr num_boxed; - set_global (val_of_constant_def n kn v) - (* table pour les structured_constant et les annotations des switchs *) let str_cst_tbl = Hashtbl.create 31 @@ -192,14 +163,7 @@ and val_of_constr env c = with e -> print_string "can not compile \n";Format.print_flush();raise e in eval_to_patch env (to_memory ccfv) -let set_transparent_const kn = - cst_opaque := Cpred.remove kn !cst_opaque; - List.iter (fun n -> (global_boxed()).(n) <- false) - (Hashtbl.find_all boxed_tbl kn) - -let set_opaque_const kn = - cst_opaque := Cpred.add kn !cst_opaque; - List.iter (fun n -> (global_boxed()).(n) <- true) - (Hashtbl.find_all boxed_tbl kn) +let set_transparent_const kn = () (* !?! *) +let set_opaque_const kn = () (* !?! *) |