[bpt/coccinelle.git] / prim.c

#include "caml/mlvalues.h"

static int x = 0;

CAMLprim value c_counter(value nothing) {
  return Val_long(x++);
}
Commit	Line	Data
34e49164 C	1	#include "caml/mlvalues.h"
	2
	3	static int x = 0;
	4
	5	CAMLprim value c_counter(value nothing) {
	6	return Val_long(x++);
	7	}