Source

ocaml / config / auto-aux / setjmp.c

#include <setjmp.h>

main()
{
  jmp_buf buf;
  int i;
  i = _setjmp(buf);
  if (i == 0) {
    _longjmp(buf, 12345);
  }
  exit (i != 12345);
}