diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-10-01 14:27:35 +0200 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-10-01 14:27:35 +0200 |
commit | 886f5550616272d899745d62ec3076fb63a71054 (patch) | |
tree | 39f87466ddf1c3f3fa01878f26b07b77a2456a9f /powerpc/Asmexpand.ml | |
parent | 36892f59ced6dd06d6a9cfc6e8af49db8721dd65 (diff) | |
download | compcert-886f5550616272d899745d62ec3076fb63a71054.tar.gz compcert-886f5550616272d899745d62ec3076fb63a71054.zip |
Use also fucntion id for local variables since atom is not unique.
Diffstat (limited to 'powerpc/Asmexpand.ml')
-rw-r--r-- | powerpc/Asmexpand.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/powerpc/Asmexpand.ml b/powerpc/Asmexpand.ml index efd6cc0d..16d6326e 100644 --- a/powerpc/Asmexpand.ml +++ b/powerpc/Asmexpand.ml @@ -717,19 +717,19 @@ let expand_instruction id l = match translate_annot args with | Some a -> let lbl = get_lbl lbl in - Debug.start_live_range txt lbl (1,a); + Debug.start_live_range (id,txt) lbl (1,a); aux (Some lbl) scopes rest | None -> aux lbl scopes rest end | 4 -> let lbl = get_lbl lbl in - Debug.end_live_range txt lbl; + Debug.end_live_range (id,txt) lbl; aux (Some lbl) scopes rest | 5 -> begin match translate_annot args with | Some a-> - Debug.stack_variable txt (1,a); + Debug.stack_variable (id,txt) (1,a); aux lbl scopes rest | _ -> aux lbl scopes rest end |