diff options
author | Alain Frisch <alain@frisch.fr> | 2013-10-14 14:33:27 +0000 |
---|---|---|
committer | Alain Frisch <alain@frisch.fr> | 2013-10-14 14:33:27 +0000 |
commit | 164c307ae351b12b5299e858273b38ee71f6f791 (patch) | |
tree | 99282bdba15e99d98ab96dd33d2b3d7054929fc1 /asmcomp/split.ml | |
parent | 0915cb5b5fda36055142c3f662e8e40f4c91db5a (diff) | |
download | ocaml-164c307ae351b12b5299e858273b38ee71f6f791.tar.gz |
Support for raise variants in ocamlopt. Only amd64 for now.
git-svn-id: http://caml.inria.fr/svn/ocaml/branches/raise_variants@14226 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'asmcomp/split.ml')
-rw-r--r-- | asmcomp/split.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/asmcomp/split.ml b/asmcomp/split.ml index 96e9e376be..9e076e6481 100644 --- a/asmcomp/split.ml +++ b/asmcomp/split.ml @@ -184,8 +184,8 @@ let rec rename i sub = rename i.next (merge_substs sub_body sub_handler i.next) in (instr_cons (Itrywith(new_body, new_handler)) [||] [||] new_next, sub_next) - | Iraise -> - (instr_cons_debug Iraise (subst_regs i.arg sub) [||] i.dbg i.next, + | Iraise k -> + (instr_cons_debug (Iraise k) (subst_regs i.arg sub) [||] i.dbg i.next, None) (* Second pass: replace registers by their final representatives *) |