llvm-for-llvmta/examples/OCaml-Kaleidoscope/Chapter6/bindings.c

14 lines
294 B
C
Raw Permalink Normal View History

2022-04-25 10:02:23 +02:00
#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;
}