Fix lost locations in out-of-bounds exceptions

Origin: upstream SVN, r14325
Bug: http://caml.inria.fr/mantis/view.php?id=6233

Gbp-Pq: Name 0017-Fix-lost-locations-in-out-of-bounds-exceptions.patch

diff --git a/asmcomp/schedgen.ml b/asmcomp/schedgen.ml
index a04ab2733880b6623a337867e5f9dcb2e2a2c113..e04eacd3755a7374350dae24b167eaa373d048ab 100644 (file)
--- a/asmcomp/schedgen.ml
+++ b/asmcomp/schedgen.ml
@@ -336,9 +336,8 @@ method private reschedule ready_queue date cont =
             if son.emitted_ancestors = son.ancestors then
               new_queue := son :: !new_queue)
           node.sons;
-        instr_cons_debug node.instr.desc node.instr.arg node.instr.res
-        node.instr.dbg
-          (self#reschedule !new_queue (date + issue_cycles) cont)
+        { node.instr with next =
+            self#reschedule !new_queue (date + issue_cycles) cont }
   end
 
 (* Entry point *)