Import Upstream version 20180207
[hcoop/debian/mlton.git] / doc / examples / ffi / c_quot.c
1 #include "test_quot.h"
2 #include <stdio.h>
3
4 PRIVATE Int8 c_quot(Int8 x, Int8 y) {
5 Int8 z = x / y;
6 return z;
7 }
8
9 PUBLIC void call_sml_quot() {
10 Int8 x = -1;
11 Int8 y = 10;
12 Int8 z = sml_quot(x, y);
13 printf(" sml_z = %i\n", z);
14 }