From 65b0dfc16c9d34219e617fddbd22c09a4b352ea5 Mon Sep 17 00:00:00 2001 From: Xavier Leroy Date: Wed, 19 Feb 1997 16:08:05 +0000 Subject: Corrections de bugs dans la gestion des evenements de debug. Conserver l'optimisation tailcall et push-acc meme en presence d'evenements de debug. Stockage plus efficace des infos de debug dans les .cmo. git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1279 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- bytecomp/lambda.ml | 1 + 1 file changed, 1 insertion(+) (limited to 'bytecomp/lambda.ml') diff --git a/bytecomp/lambda.ml b/bytecomp/lambda.ml index 825389866..0e7bcf768 100644 --- a/bytecomp/lambda.ml +++ b/bytecomp/lambda.ml @@ -184,6 +184,7 @@ let free_variables l = let rec is_guarded = function Lifthenelse(cond, body, Lstaticfail) -> true | Llet(str, id, lam, body) -> is_guarded body + | Levent(lam, ev) -> is_guarded lam | _ -> false let rec transl_path = function -- cgit v1.2.3-70-g09d2