diff options
Diffstat (limited to 'backend/Asmexpandaux.ml')
| -rw-r--r-- | backend/Asmexpandaux.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/backend/Asmexpandaux.ml b/backend/Asmexpandaux.ml index 7b8cc8c2..3d1dd754 100644 --- a/backend/Asmexpandaux.ml +++ b/backend/Asmexpandaux.ml @@ -94,8 +94,7 @@ let expand_debug id sp preg simple l = lbl | Some lbl -> lbl in let rec aux lbl scopes = function - | [] -> let lbl = get_lbl lbl in - Debug.function_end id lbl + | [] -> () | (Pbuiltin(EF_debug (kind,txt,_x),args,_) as i)::rest -> let kind = (P.to_int kind) in begin @@ -133,6 +132,7 @@ let expand_debug id sp preg simple l = | _ -> aux None scopes rest end + | (Plabel lbl)::rest -> simple (Plabel lbl); aux (Some lbl) scopes rest | i::rest -> simple i; aux None scopes rest in (* We need to move all closing debug annotations before the last real statement *) let rec move_debug acc bcc = function |