diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2017-02-06 13:47:07 +0100 |
|---|---|---|
| committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2017-02-06 13:47:07 +0100 |
| commit | 7e3261daf2c746d5edb40f37724aa6001704ef2b (patch) | |
| tree | 78d93954de1f42bd4bdb2ccf872095d8c6392413 /debug | |
| parent | 5b7045c2ea8065dd70273404d30025395328a399 (diff) | |
| download | compcert-kvx-7e3261daf2c746d5edb40f37724aa6001704ef2b.tar.gz compcert-kvx-7e3261daf2c746d5edb40f37724aa6001704ef2b.zip | |
Removed the open AST.
Only two types from AST are needed and the global shadowing open
can be removed.
Diffstat (limited to 'debug')
| -rw-r--r-- | debug/Debug.ml | 7 | ||||
| -rw-r--r-- | debug/Debug.mli | 11 |
2 files changed, 8 insertions, 10 deletions
diff --git a/debug/Debug.ml b/debug/Debug.ml index 7403d7c2..168df5a0 100644 --- a/debug/Debug.ml +++ b/debug/Debug.ml @@ -10,9 +10,8 @@ (* *) (* *********************************************************************) -open AST open BinNums -open !C +open C open Camlcoq open DwarfTypes open Sections @@ -38,9 +37,9 @@ type implem = add_lvar_scope: int -> ident -> int -> unit; open_scope: atom -> int -> positive -> unit; close_scope: atom -> int -> positive -> unit; - start_live_range: (atom * atom) -> positive -> int * int builtin_arg -> unit; + start_live_range: (atom * atom) -> positive -> int * int AST.builtin_arg -> unit; end_live_range: (atom * atom) -> positive -> unit; - stack_variable: (atom * atom) -> int * int builtin_arg -> unit; + stack_variable: (atom * atom) -> int * int AST.builtin_arg -> unit; add_label: atom -> positive -> int -> unit; atom_parameter: ident -> ident -> atom -> unit; compute_diab_file_enum: (section_name -> int) -> (string-> int) -> (unit -> unit) -> unit; diff --git a/debug/Debug.mli b/debug/Debug.mli index f044b1ad..3869a056 100644 --- a/debug/Debug.mli +++ b/debug/Debug.mli @@ -10,8 +10,7 @@ (* *) (* *********************************************************************) -open AST -open !C +open C open Camlcoq open DwarfTypes open BinNums @@ -37,9 +36,9 @@ type implem = add_lvar_scope: int -> ident -> int -> unit; open_scope: atom -> int -> positive -> unit; close_scope: atom -> int -> positive -> unit; - start_live_range: (atom * atom) -> positive -> int * int builtin_arg -> unit; + start_live_range: (atom * atom) -> positive -> int * int AST.builtin_arg -> unit; end_live_range: (atom * atom) -> positive -> unit; - stack_variable: (atom * atom) -> int * int builtin_arg -> unit; + stack_variable: (atom * atom) -> int * int AST.builtin_arg -> unit; add_label: atom -> positive -> int -> unit; atom_parameter: ident -> ident -> atom -> unit; compute_diab_file_enum: (section_name -> int) -> (string-> int) -> (unit -> unit) -> unit; @@ -70,9 +69,9 @@ val enter_function_scope: int -> int -> unit val add_lvar_scope: int -> ident -> int -> unit val open_scope: atom -> int -> positive -> unit val close_scope: atom -> int -> positive -> unit -val start_live_range: (atom * atom) -> positive -> (int * int builtin_arg) -> unit +val start_live_range: (atom * atom) -> positive -> (int * int AST.builtin_arg) -> unit val end_live_range: (atom * atom) -> positive -> unit -val stack_variable: (atom * atom) -> int * int builtin_arg -> unit +val stack_variable: (atom * atom) -> int * int AST.builtin_arg -> unit val add_label: atom -> positive -> int -> unit val generate_debug_info: (atom -> string) -> string -> debug_entries option val atom_parameter: ident -> ident -> atom -> unit |