From 86357b63200368c818bbade20f2d71a3ddbaacb5 Mon Sep 17 00:00:00 2001 From: mdenes Date: Mon, 25 Mar 2013 14:41:06 +0000 Subject: Native compiler: hash-consing of generated code and values. git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16363 85f007b7-540e-0410-9357-904b9bb8a0f7 --- kernel/nativecode.mli | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) (limited to 'kernel/nativecode.mli') diff --git a/kernel/nativecode.mli b/kernel/nativecode.mli index 0f01ae80e..9e35dbd1b 100644 --- a/kernel/nativecode.mli +++ b/kernel/nativecode.mli @@ -24,6 +24,8 @@ val mk_open : string -> global type symbol +val clear_symb_tbl : unit -> unit + val get_value : symbol array -> int -> Nativevalues.t val get_sort : symbol array -> int -> sorts @@ -47,14 +49,14 @@ val empty_updates : code_location_updates val register_native_file : string -> unit val compile_constant_field : env -> string -> constant -> - global list * symbol list * code_location_updates -> + global list * code_location_updates -> constant_body -> - global list * symbol list * code_location_updates + global list * code_location_updates val compile_mind_field : string -> module_path -> label -> - global list * symbol list * code_location_updates -> + global list * code_location_updates -> mutual_inductive_body -> - global list * symbol list * code_location_updates + global list * code_location_updates val mk_conv_code : env -> string -> constr -> constr -> linkable_code val mk_norm_code : env -> string -> constr -> linkable_code @@ -64,3 +66,5 @@ val mk_library_header : dir_path -> global list val mod_uid_of_dirpath : dir_path -> string val update_locations : code_location_updates -> unit + +val add_header_comment : global list -> string -> global list -- cgit v1.2.3