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

Pas de backtrace en natif (PR#391) 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3538 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 2001-06-19 10:02:48 +00:00
parent 6976726fd4
commit dd6109d87b
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
otherlibs/systhreads/posix.c
View File

@ -444,7 +444,9 @@ value caml_thread_uncaught_exception(value exn) /* ML */
fprintf(stderr, "Thread %d killed on uncaught exception %s\n",
Int_val(Ident(curr_thread->descr)), msg);
free(msg);
#ifndef NATIVE_CODE
if (backtrace_active) print_exception_backtrace();
#endif
fflush(stderr);
return Val_unit;
}

2
otherlibs/systhreads/win32.c
View File

@ -433,7 +433,9 @@ value caml_thread_uncaught_exception(value exn) /* ML */
fprintf(stderr, "Thread %d killed on uncaught exception %s\n",
Int_val(Ident(curr_thread->descr)), msg);
free(msg);
#ifndef NATIVE_CODE
if (backtrace_active) print_exception_backtrace();
#endif
fflush(stderr);
return Val_unit;
}