diff options
author | mdenes <mdenes@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-03-25 14:41:06 +0000 |
---|---|---|
committer | mdenes <mdenes@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-03-25 14:41:06 +0000 |
commit | 86357b63200368c818bbade20f2d71a3ddbaacb5 (patch) | |
tree | 218c29d4d2ae39a5ea33a1c876abdf041be79e05 /kernel/nativecode.mli | |
parent | b37bb277285db6b35ab4d147dddf3e45ae9707d3 (diff) |
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
Diffstat (limited to 'kernel/nativecode.mli')
-rw-r--r-- | kernel/nativecode.mli | 12 |
1 files changed, 8 insertions, 4 deletions
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 |