File: camlplus.c

package info (click to toggle)
coq-quickchick 2.1.1-2
  • links: PTS, VCS
  • area: main
  • in suites: experimental
  • size: 2,432 kB
  • sloc: ml: 4,367; ansic: 789; makefile: 388; sh: 27; python: 4; lisp: 2; perl: 2
file content (11 lines) | stat: -rw-r--r-- 188 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
 
#include <caml/mlvalues.h>

extern int cplus(int, int);

CAMLprim value
camlplus(value vx, value vy)
{
    int x = Int_val(vx);
    int y = Int_val(vy);
    return Val_int(cplus(x, y));
}