diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2015-09-11 11:58:31 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2015-09-11 11:58:31 +0000 |
| commit | b860d631458802c8685aa59c9d7b66a9225fcedb (patch) | |
| tree | 5c71dc62f86607551e97e53e11b8eb48a3b83bda /byterun/backtrace_prim.c | |
| parent | cf9002cfd8d56c86ebd91138fe75d1e2bb20a775 (diff) | |
| download | ocaml-b860d631458802c8685aa59c9d7b66a9225fcedb.tar.gz | |
whitespace cleanup, cut long lines, add some missing headers
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@16415 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'byterun/backtrace_prim.c')
| -rw-r--r-- | byterun/backtrace_prim.c | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/byterun/backtrace_prim.c b/byterun/backtrace_prim.c index 0d58ad1932..699a1b7979 100644 --- a/byterun/backtrace_prim.c +++ b/byterun/backtrace_prim.c @@ -105,7 +105,8 @@ static int cmp_ev_info(const void *a, const void *b) return 0; } -struct ev_info *process_debug_events(code_t code_start, value events_heap, mlsize_t *num_events) +struct ev_info *process_debug_events(code_t code_start, value events_heap, + mlsize_t *num_events) { CAMLparam1(events_heap); CAMLlocal3(l, ev, ev_start); @@ -130,7 +131,8 @@ struct ev_info *process_debug_events(code_t code_start, value events_heap, mlsiz for (l = Field(events_heap, i); l != Val_int(0); l = Field(l, 1)) { ev = Field(l, 0); - events[j].ev_pc = (code_t)((char*)code_start + Long_val(Field(ev, EV_POS))); + events[j].ev_pc = (code_t)((char*)code_start + + Long_val(Field(ev, EV_POS))); ev_start = Field(Field(ev, EV_LOC), LOC_START); @@ -165,7 +167,8 @@ struct ev_info *process_debug_events(code_t code_start, value events_heap, mlsiz /* Processes a (Instruct.debug_event list array) into a form suitable for quick lookup and registers it for the (code_start,code_size) pc range. */ -CAMLprim value caml_add_debug_info(code_t code_start, value code_size, value events_heap) +CAMLprim value caml_add_debug_info(code_t code_start, value code_size, + value events_heap) { CAMLparam1(events_heap); struct debug_info *debug_info; @@ -431,7 +434,8 @@ static struct ev_info *event_for_location(code_t pc) /* Extract location information for the given PC */ -void caml_extract_location_info(backtrace_slot slot, /*out*/ struct caml_loc_info * li) +void caml_extract_location_info(backtrace_slot slot, + /*out*/ struct caml_loc_info * li) { code_t pc = slot; struct ev_info *event = event_for_location(pc); |