diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-09-28 13:36:53 +0200 |
|---|---|---|
| committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-09-28 13:36:53 +0200 |
| commit | 5492b5b55afa68e3d628da07ff583a0cac79b7e3 (patch) | |
| tree | 65fc4ad3276bc11d88c5b9ed3cf9f96f66425536 /debug/Debug.ml | |
| parent | 89476ea80ecfc7af02ef5026d0f45b61d243e3b0 (diff) | |
| download | compcert-kvx-5492b5b55afa68e3d628da07ff583a0cac79b7e3.tar.gz compcert-kvx-5492b5b55afa68e3d628da07ff583a0cac79b7e3.zip | |
Added location for the formal parameters and move the end of all
scopes before the last statement.
Diffstat (limited to 'debug/Debug.ml')
| -rw-r--r-- | debug/Debug.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/debug/Debug.ml b/debug/Debug.ml index a496b610..d0de9e98 100644 --- a/debug/Debug.ml +++ b/debug/Debug.ml @@ -44,6 +44,7 @@ type implem = mutable stack_variable: atom -> int * int builtin_arg -> unit; mutable function_end: atom -> positive -> unit; mutable add_label: atom -> positive -> int -> unit; + mutable atom_parameter: ident -> ident -> atom -> unit; } let implem = @@ -70,6 +71,7 @@ let implem = stack_variable = (fun _ _ -> ()); function_end = (fun _ _ -> ()); add_label = (fun _ _ _ -> ()); + atom_parameter = (fun _ _ _ -> ()); } let init_compile_unit name = implem.init name @@ -94,3 +96,4 @@ let end_live_range atom lbl = implem.end_live_range atom lbl let stack_variable atom loc = implem.stack_variable atom loc let function_end atom loc = implem.function_end atom loc let add_label atom p lbl = implem.add_label atom p lbl +let atom_parameter fid pid atom = implem.atom_parameter fid pid atom |