From 886f5550616272d899745d62ec3076fb63a71054 Mon Sep 17 00:00:00 2001 From: Bernhard Schommer Date: Thu, 1 Oct 2015 14:27:35 +0200 Subject: Use also fucntion id for local variables since atom is not unique. --- powerpc/Asmexpand.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'powerpc') 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 -- cgit