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

fix the MSVC fix 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@15833 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Gabriel Scherer 2015-02-08 15:44:04 +00:00
parent 527fff9044
commit c984a1414d
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
byterun/backtrace.c
View File

@ -287,8 +287,7 @@ void caml_stash_backtrace(value exn, code_t pc, value * sp, int reraise)
into the backtrace buffer. */
for (/*nothing*/; sp < caml_trapsp; sp++) {
code_t p = (code_t) *sp;
if (caml_backtrace_pos < BACKTRACE_BUFFER_SIZE)
break;
if (caml_backtrace_pos >= BACKTRACE_BUFFER_SIZE) break;
if (find_debug_info(p) != NULL)
caml_backtrace_buffer[caml_backtrace_pos++] = p;
}