Faire "call" au lieu de "jmp" pour array_bound_error.

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@865 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
lucasaiu · Jun 4, 1996 · df02897 · df02897
1 parent 1fb140f
commit df02897
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/asmcomp/emit_i386.mlp b/asmcomp/emit_i386.mlp
@@ -713,7 +713,8 @@ let fundecl fundecl =
   emit_all fundecl.fun_body;
   List.iter emit_call_gc !call_gc_sites;
   if !range_check_trap > 0 then
-    `{emit_label !range_check_trap}:	jmp	{emit_symbol "array_bound_error"}\n`;
+    `{emit_label !range_check_trap}:	call	{emit_symbol "array_bound_error"}\n`;
+    (* Never returns, but useful to have retaddr on stack for debugging *)
   List.iter emit_float_constant !float_constants
 
 (* Emission of data *)