void IMCC_debug(ARGMOD(imc_info_t * imcc), int level, ARGIN(const char *fmt), ...) { ASSERT_ARGS(IMCC_debug) va_list ap; if (!(level & imcc->debug)) return; va_start(ap, fmt); imcc_vfprintf(imcc, Parrot_io_STDERR(imcc->interp), fmt, ap); va_end(ap); }
PARROT_EXPORT void IMCC_debug(PARROT_INTERP, int level, ARGIN(const char *fmt), ...) { ASSERT_ARGS(IMCC_debug) va_list ap; if (!(level & IMCC_INFO(interp)->debug)) return; va_start(ap, fmt); imcc_vfprintf(interp, Parrot_io_STDERR(interp), fmt, ap); va_end(ap); }
PARROT_EXPORT PARROT_DOES_NOT_RETURN void IMCC_fatal_standalone(PARROT_INTERP, int code, ARGIN(const char *fmt), ...) { ASSERT_ARGS(IMCC_fatal_standalone) va_list ap; va_start(ap, fmt); imcc_vfprintf(interp, Parrot_io_STDERR(interp), fmt, ap); va_end(ap); Parrot_exit(interp, code); }
PARROT_EXPORT void IMCC_warning(PARROT_INTERP, ARGIN(const char *fmt), ...) { ASSERT_ARGS(IMCC_warning) va_list ap; if (IMCC_INFO(interp)->imcc_warn) return; va_start(ap, fmt); imcc_vfprintf(interp, Parrot_io_STDERR(interp), fmt, ap); va_end(ap); }