zpu: simple fn with stack slots compile
[llvm/zpu.git] / examples / OCaml-Kaleidoscope / Chapter6 / bindings.c
blob90faed15813d2c5911d493137a330449d8272212
1 #include <stdio.h>
3 /* putchard - putchar that takes a double and returns 0. */
4 extern double putchard(double X) {
5 putchar((char)X);
6 return 0;
9 /* printd - printf that takes a double prints it as "%f\n", returning 0. */
10 extern double printd(double X) {
11 printf("%f\n", X);
12 return 0;