llvm-6502/examples/OCaml-Kaleidoscope/Chapter7/bindings.c

14 lines
294 B
C
Raw Normal View History

#include <stdio.h>
/* putchard - putchar that takes a double and returns 0. */
extern double putchard(double X) {
putchar((char)X);
return 0;
}
/* printd - printf that takes a double prints it as "%f\n", returning 0. */
extern double printd(double X) {
printf("%f\n", X);
return 0;
}