Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug dans callback_exn (extern_sp n'etait pas remis a sa valeur initiale) 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4640 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 2002-04-12 12:17:48 +00:00
parent 620e6308ed
commit f7a0fae13b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
byterun/interp.c
View File

@ -790,13 +790,13 @@ value interprete(code_t prog, asize_t prog_size)
raise_exception:
if (trapsp >= trap_barrier) debugger(TRAP_BARRIER);
if (backtrace_active) stash_backtrace(accu, pc, sp);
sp = trapsp;
if ((char *) sp >= (char *) stack_high - initial_sp_offset) {
if ((char *) trapsp >= (char *) stack_high - initial_sp_offset) {
external_raise = initial_external_raise;
extern_sp = sp;
extern_sp = (value *) ((char *) stack_high - initial_sp_offset);
callback_depth--;
return Make_exception_result(accu);
}
sp = trapsp;
pc = Trap_pc(sp);
trapsp = Trap_link(sp);
env = sp[2];