Moins d'optimisation des lets avec l'option -g

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2465 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
1999-11-07 23:56:38 +00:00 · 1999-11-07 23:56:38 +00:00 · 04119ce497
parent b044124d92
commit 04119ce497
1 changed files with 1 additions and 1 deletions
--- a/bytecomp/simplif.ml
+++ b/bytecomp/simplif.ml
@ -153,7 +153,7 @@ let simplify_lambda lam =
  | Lconst cst as l -> l
  | Lapply(l1, ll) -> Lapply(simplif l1, List.map simplif ll)
  | Lfunction(kind, params, l) -> Lfunction(kind, params, simplif l)
-  | Llet(str, v, Lvar w, l2) ->
+  | Llet(str, v, Lvar w, l2) when not !Clflags.debug ->
      Hashtbl.add subst v (simplif (Lvar w));
      simplif l2
  | Llet(Strict, v, Lprim(Pmakeblock(0, Mutable), [linit]), lbody)