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

runtime/backtrace_byt.c: minor code simplification 

(no change entry needed)
master
Gabriel Scherer 2019-12-15 11:02:31 +01:00
parent 5b1b8dad1a
commit 2d5c5f031d
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
runtime/backtrace_byt.c
View File

@ -143,13 +143,10 @@ static struct ev_info *process_debug_events(code_t code_start,
ev_start = Field(Field(ev, EV_LOC), LOC_START);
{
uintnat fnsz = caml_string_length(Field(ev_start, POS_FNAME)) + 1;
events[j].ev_filename = (char*)caml_stat_alloc_noexc(fnsz);
const char *fname = String_val(Field(ev_start, POS_FNAME));
events[j].ev_filename = caml_stat_strdup_noexc(fname);
if(events[j].ev_filename == NULL)
caml_fatal_error ("caml_add_debug_info: out of memory");
memcpy(events[j].ev_filename,
String_val(Field(ev_start, POS_FNAME)),
fnsz);
}
events[j].ev_lnum = Int_val(Field(ev_start, POS_LNUM));