diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2003-12-29 22:15:02 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2003-12-29 22:15:02 +0000 |
| commit | 31943bac1db3351118c7f911db99bd567f02a883 (patch) | |
| tree | 053244070a0a7f612d637a0547f0d851a2dd024a /byterun/backtrace.c | |
| parent | dbf40e0b61af6f34d4a2736be1f0562ee5e8a52f (diff) | |
depollution suite (PR#1914 et PR#1956); byterun/weak.c: PR#1929 suite
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6041 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'byterun/backtrace.c')
| -rw-r--r-- | byterun/backtrace.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/byterun/backtrace.c b/byterun/backtrace.c index 78c2316f2..deda286de 100644 --- a/byterun/backtrace.c +++ b/byterun/backtrace.c @@ -119,11 +119,11 @@ static value read_debug_info(void) close(fd); CAMLreturn(Val_false); } - chan = open_descriptor_in(fd); - num_events = getword(chan); - events = alloc(num_events, 0); + chan = caml_open_descriptor_in(fd); + num_events = caml_getword(chan); + events = caml_alloc(num_events, 0); for (i = 0; i < num_events; i++) { - orig = getword(chan); + orig = caml_getword(chan); evl = input_val(chan); /* Relocate events in event list */ for (l = evl; l != Val_int(0); l = Field(l, 1)) { @@ -133,7 +133,7 @@ static value read_debug_info(void) /* Record event list */ Store_field(events, i, evl); } - close_channel(chan); + caml_close_channel(chan); CAMLreturn(events); } |