aboutsummaryrefslogtreecommitdiffstats
path: root/backend/Asmexpandaux.ml
diff options
context:
space:
mode:
Diffstat (limited to 'backend/Asmexpandaux.ml')
-rw-r--r--backend/Asmexpandaux.ml3
1 files changed, 1 insertions, 2 deletions
diff --git a/backend/Asmexpandaux.ml b/backend/Asmexpandaux.ml
index 59d8d8db..3b77f135 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