diff options
author | Xavier Leroy <xavier.leroy@inria.fr> | 2007-01-29 12:11:18 +0000 |
---|---|---|
committer | Xavier Leroy <xavier.leroy@inria.fr> | 2007-01-29 12:11:18 +0000 |
commit | 4b5512c74cda289652ff53c01098c53a6c4b0c7a (patch) | |
tree | a399da8debf50ea772ab38dd11362d1d57cb2c6c /asmcomp/split.ml | |
parent | 24d7c3c7f7756b8270910ef5c76b409209597dfc (diff) | |
download | ocaml-4b5512c74cda289652ff53c01098c53a6c4b0c7a.tar.gz |
Stack backtraces on uncaught exceptions in native code (merge of the opt_backtrace branch)
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@7812 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'asmcomp/split.ml')
-rw-r--r-- | asmcomp/split.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/asmcomp/split.ml b/asmcomp/split.ml index 06a09ed04d..1fcbb07495 100644 --- a/asmcomp/split.ml +++ b/asmcomp/split.ml @@ -140,8 +140,8 @@ let rec rename i sub = end | Iop _ -> let (new_next, sub_next) = rename i.next sub in - (instr_cons i.desc (subst_regs i.arg sub) (subst_regs i.res sub) - new_next, + (instr_cons_debug i.desc (subst_regs i.arg sub) (subst_regs i.res sub) + i.dbg new_next, sub_next) | Iifthenelse(tst, ifso, ifnot) -> let (new_ifso, sub_ifso) = rename ifso sub in @@ -187,7 +187,7 @@ let rec rename i sub = (instr_cons (Itrywith(new_body, new_handler)) [||] [||] new_next, sub_next) | Iraise -> - (instr_cons Iraise (subst_regs i.arg sub) [||] i.next, + (instr_cons_debug Iraise (subst_regs i.arg sub) [||] i.dbg i.next, None) (* Second pass: replace registers by their final representatives *) |