xref: /aosp_15_r20/external/llvm/examples/OCaml-Kaleidoscope/Chapter7/bindings.c (revision 9880d6810fe72a1726cb53787c6711e909410d58)
1 #include <stdio.h>
2 
3 /* putchard - putchar that takes a double and returns 0. */
putchard(double X)4 extern double putchard(double X) {
5   putchar((char)X);
6   return 0;
7 }
8 
9 /* printd - printf that takes a double prints it as "%f\n", returning 0. */
printd(double X)10 extern double printd(double X) {
11   printf("%f\n", X);
12   return 0;
13 }
14