/// putchard - putchar that takes a double and returns 0.
extern "C" double putchard(double X) {
- fputc((char)X, stderr);
+ putchar((char)X);
return 0;
}
/// printd - printf that takes a double prints it as "%f\n", returning 0.
extern "C" double printd(double X) {
- fprintf(stderr, "%f\n", X);
+ printf("%f\n", X);
return 0;
}