File: stack_realloc_.c

package info (click to toggle)
ocaml 5.4.1-1~exp1
  • links: PTS, VCS
  • area: main
  • in suites: experimental
  • size: 44,548 kB
  • sloc: ml: 370,395; ansic: 52,966; sh: 27,525; asm: 5,531; makefile: 3,684; python: 974; awk: 280; javascript: 273; perl: 59; fortran: 21; cs: 9
file content (16 lines) | stat: -rw-r--r-- 322 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
#define CAML_NAME_SPACE
#include <caml/mlvalues.h>
#include <caml/fail.h>
#include <caml/callback.h>

value c_fun(void)
{
  const value *callback = caml_named_value("callback");

  value v = caml_callback(*callback, Val_unit);

  if (Is_exception_result(v))
    return Val_long(-1);

  return Val_long(Long_val(v) + 1);
}