xnu-6153.11.26.tar.gz

[apple/xnu.git] / osfmk / kern / printf.c

/*
 * Copyright (c) 2000-2019 Apple Inc. All rights reserved.
 *
 * @APPLE_OSREFERENCE_LICENSE_HEADER_START@
 *
 * This file contains Original Code and/or Modifications of Original Code
 * as defined in and that are subject to the Apple Public Source License
 * Version 2.0 (the 'License'). You may not use this file except in
 * compliance with the License. The rights granted to you under the License
 * may not be used to create, or enable the creation or redistribution of,
 * unlawful or unlicensed copies of an Apple operating system, or to
 * circumvent, violate, or enable the circumvention or violation of, any
 * terms of an Apple operating system software license agreement.
 *
 * Please obtain a copy of the License at
 * http://www.opensource.apple.com/apsl/ and read it before using this file.
 *
 * The Original Code and all software distributed under the License are
 * distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
 * EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,
 * INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR NON-INFRINGEMENT.
 * Please see the License for the specific language governing rights and
 * limitations under the License.
 *
 * @APPLE_OSREFERENCE_LICENSE_HEADER_END@
 */
/*
 * @OSF_COPYRIGHT@
 */

/*
 * Mach Operating System
 * Copyright (c) 1991,1990,1989,1988 Carnegie Mellon University
 * All Rights Reserved.
 *
 * Permission to use, copy, modify and distribute this software and its
 * documentation is hereby granted, provided that both the copyright
 * notice and this permission notice appear in all copies of the
 * software, derivative works or modified versions, and any portions
 * thereof, and that both notices appear in supporting documentation.
 *
 * CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS "AS IS"
 * CONDITION.  CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND FOR
 * ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
 *
 * Carnegie Mellon requests users of this software to return to
 *
 *  Software Distribution Coordinator  or  Software.Distribution@CS.CMU.EDU
 *  School of Computer Science
 *  Carnegie Mellon University
 *  Pittsburgh PA 15213-3890
 *
 * any improvements or extensions that they make and grant Carnegie Mellon
 * the rights to redistribute these changes.
 */

/*
 *  Common code for printf et al.
 *
 *  The calling routine typically takes a variable number of arguments,
 *  and passes the address of the first one.  This implementation
 *  assumes a straightforward, stack implementation, aligned to the
 *  machine's wordsize.  Increasing addresses are assumed to point to
 *  successive arguments (left-to-right), as is the case for a machine
 *  with a downward-growing stack with arguments pushed right-to-left.
 *
 *  To write, for example, fprintf() using this routine, the code
 *
 *      fprintf(fd, format, args)
 *      FILE *fd;
 *      char *format;
 *      {
 *      _doprnt(format, &args, fd);
 *      }
 *
 *  would suffice.  (This example does not handle the fprintf's "return
 *  value" correctly, but who looks at the return value of fprintf
 *  anyway?)
 *
 *  This version implements the following printf features:
 *
 *      %d      decimal conversion
 *      %u      unsigned conversion
 *      %x      hexadecimal conversion
 *      %X      hexadecimal conversion with capital letters
 *      %D      hexdump, ptr & separator string ("%6D", ptr, ":") -> XX:XX:XX:XX:XX:XX
 *              if you use, "%*D" then there's a length, the data ptr and then the separator
 *      %o      octal conversion
 *      %c      character
 *      %s      string
 *      %m.n    field width, precision
 *      %-m.n   left adjustment
 *      %0m.n   zero-padding
 *      %*.*    width and precision taken from arguments
 *
 *  This version does not implement %f, %e, or %g.
 *
 *  As mentioned, this version does not return any reasonable value.
 *
 *  Permission is granted to use, modify, or propagate this code as
 *  long as this notice is incorporated.
 *
 *  Steve Summit 3/25/87
 *
 *  Tweaked for long long support and extended to support the hexdump %D
 *  specifier by dbg 05/02/02.
 */

/*
 * Added formats for decoding device registers:
 *
 * printf("reg = %b", regval, "<base><arg>*")
 *
 * where <base> is the output base expressed as a control character:
 * i.e. '\10' gives octal, '\20' gives hex.  Each <arg> is a sequence of
 * characters, the first of which gives the bit number to be inspected
 * (origin 1), and the rest (up to a control character (<= 32)) give the
 * name of the register.  Thus
 *      printf("reg = %b\n", 3, "\10\2BITTWO\1BITONE")
 * would produce
 *      reg = 3<BITTWO,BITONE>
 *
 * If the second character in <arg> is also a control character, it
 * indicates the last bit of a bit field.  In this case, printf will extract
 * bits <1> to <2> and print it.  Characters following the second control
 * character are printed before the bit field.
 *      printf("reg = %b\n", 0xb, "\10\4\3FIELD1=\2BITTWO\1BITONE")
 * would produce
 *      reg = b<FIELD1=2,BITONE>
 *
 * The %B format is like %b but the bits are numbered from the most
 * significant (the bit weighted 31), which is called 1, to the least
 * significant, called 32.
 */
/*
 * Added for general use:
 *      #       prefix for alternate format:
 *              0x (0X) for hex
 *              leading 0 for octal
 *      +       print '+' if positive
 *      blank   print ' ' if positive
 *
 *      z       set length equal to size_t
 *      r       signed, 'radix'
 *      n       unsigned, 'radix'
 *
 *      D,U,O,Z same as corresponding lower-case versions
 *              (compatibility)
 */
/*
 * Added support for print long long (64-bit) integers.
 * Use %lld, %Ld or %qd to print a 64-bit int.  Other
 * output bases such as x, X, u, U, o, and O also work.
 */

#include <debug.h>
#include <mach_kdp.h>
#include <mach/boolean.h>
#include <kern/cpu_number.h>
#include <kern/thread.h>
#include <kern/debug.h>
#include <kern/sched_prim.h>
#include <kern/misc_protos.h>
#include <stdarg.h>
#include <string.h>
#include <mach_assert.h>
#ifdef  MACH_BSD
#include <sys/msgbuf.h>
#endif
#include <console/serial_protos.h>
#include <os/log_private.h>

#ifdef __x86_64__
#include <i386/cpu_data.h>
#endif /* __x86_64__ */

#if __arm__ || __arm64__
#include <arm/cpu_data_internal.h>
#endif

#ifdef HAS_APPLE_PAC
#include <mach/vm_param.h>
#include <ptrauth.h>
#endif /* HAS_APPLE_PAC */

#define isdigit(d) ((d) >= '0' && (d) <= '9')
#define Ctod(c) ((c) - '0')

#define MAXBUF (sizeof(long long int) * 8)      /* enough for binary */
static char digs[] = "0123456789abcdef";

#if CONFIG_NO_PRINTF_STRINGS
/* Prevent CPP from breaking the definition below */
#undef printf
#endif

int
_consume_printf_args(int a __unused, ...)
{
        return 0;
}
void
_consume_kprintf_args(int a __unused, ...)
{
}

static int
printnum(
        unsigned long long int  u,      /* number to print */
        int             base,
        void                    (*putc)(int, void *),
        void                    *arg)
{
        char    buf[MAXBUF];    /* build number here */
        char *  p = &buf[MAXBUF - 1];
        int nprinted = 0;

        do {
                *p-- = digs[u % base];
                u /= base;
        } while (u != 0);

        while (++p != &buf[MAXBUF]) {
                (*putc)(*p, arg);
                nprinted++;
        }

        return nprinted;
}

boolean_t       _doprnt_truncates = FALSE;

#if (DEVELOPMENT || DEBUG)
boolean_t       doprnt_hide_pointers = FALSE;
#else
boolean_t       doprnt_hide_pointers = TRUE;
#endif

int
__doprnt(
        const char      *fmt,
        va_list                 argp,
        /* character output routine */
        void                    (*putc)(int, void *arg),
        void                    *arg,
        int                     radix,          /* default radix - for '%r' */
        int                     is_log)
{
        int             length;
        int             prec;
        boolean_t       ladjust;
        char            padc;
        long long               n;
        unsigned long long      u;
        int             plus_sign;
        int             sign_char;
        boolean_t       altfmt, truncate;
        int             base;
        char    c;
        int             capitals;
        int             long_long;
        enum {
                INT,
                SHORT,
                CHAR,
        } numeric_type = INT;
        int             nprinted = 0;

        while ((c = *fmt) != '\0') {
                if (c != '%') {
                        (*putc)(c, arg);
                        nprinted++;
                        fmt++;
                        continue;
                }

                fmt++;

                long_long = 0;
                numeric_type = INT;
                length = 0;
                prec = -1;
                ladjust = FALSE;
                padc = ' ';
                plus_sign = 0;
                sign_char = 0;
                altfmt = FALSE;

                while (TRUE) {
                        c = *fmt;
                        if (c == '#') {
                                altfmt = TRUE;
                        } else if (c == '-') {
                                ladjust = TRUE;
                        } else if (c == '+') {
                                plus_sign = '+';
                        } else if (c == ' ') {
                                if (plus_sign == 0) {
                                        plus_sign = ' ';
                                }
                        } else {
                                break;
                        }
                        fmt++;
                }

                if (c == '0') {
                        padc = '0';
                        c = *++fmt;
                }

                if (isdigit(c)) {
                        while (isdigit(c)) {
                                length = 10 * length + Ctod(c);
                                c = *++fmt;
                        }
                } else if (c == '*') {
                        length = va_arg(argp, int);
                        c = *++fmt;
                        if (length < 0) {
                                ladjust = !ladjust;
                                length = -length;
                        }
                }

                if (c == '.') {
                        c = *++fmt;
                        if (isdigit(c)) {
                                prec = 0;
                                while (isdigit(c)) {
                                        prec = 10 * prec + Ctod(c);
                                        c = *++fmt;
                                }
                        } else if (c == '*') {
                                prec = va_arg(argp, int);
                                c = *++fmt;
                        }
                }

                if (c == 'l') {
                        c = *++fmt; /* need it if sizeof(int) < sizeof(long) */
                        if (sizeof(int) < sizeof(long)) {
                                long_long = 1;
                        }
                        if (c == 'l') {
                                long_long = 1;
                                c = *++fmt;
                        }
                } else if (c == 'h') {
                        c = *++fmt;
                        numeric_type = SHORT;
                        if (c == 'h') {
                                numeric_type = CHAR;
                                c = *++fmt;
                        }
                } else if (c == 'q' || c == 'L') {
                        long_long = 1;
                        c = *++fmt;
                }

                if (c == 'z' || c == 'Z') {
                        c = *++fmt;
                        if (sizeof(size_t) == sizeof(unsigned long)) {
                                long_long = 1;
                        }
                }

                truncate = FALSE;
                capitals = 0;   /* Assume lower case printing */

                switch (c) {
                case 'b':
                case 'B':
                {
                        char *p;
                        boolean_t     any;
                        int  i;

                        if (long_long) {
                                u = va_arg(argp, unsigned long long);
                        } else {
                                u = va_arg(argp, unsigned int);
                        }
                        p = va_arg(argp, char *);
                        base = *p++;
                        nprinted += printnum(u, base, putc, arg);

                        if (u == 0) {
                                break;
                        }

                        any = FALSE;
                        while ((i = *p++) != '\0') {
                                if (*fmt == 'B') {
                                        i = 33 - i;
                                }
                                if (*p <= 32) {
                                        /*
                                         * Bit field
                                         */
                                        int j;
                                        if (any) {
                                                (*putc)(',', arg);
                                        } else {
                                                (*putc)('<', arg);
                                                any = TRUE;
                                        }
                                        nprinted++;
                                        j = *p++;
                                        if (*fmt == 'B') {
                                                j = 32 - j;
                                        }
                                        for (; (c = *p) > 32; p++) {
                                                (*putc)(c, arg);
                                                nprinted++;
                                        }
                                        nprinted += printnum((unsigned)((u >> (j - 1)) & ((2 << (i - j)) - 1)),
                                            base, putc, arg);
                                } else if (u & (1 << (i - 1))) {
                                        if (any) {
                                                (*putc)(',', arg);
                                        } else {
                                                (*putc)('<', arg);
                                                any = TRUE;
                                        }
                                        nprinted++;
                                        for (; (c = *p) > 32; p++) {
                                                (*putc)(c, arg);
                                                nprinted++;
                                        }
                                } else {
                                        for (; *p > 32; p++) {
                                                continue;
                                        }
                                }
                        }
                        if (any) {
                                (*putc)('>', arg);
                                nprinted++;
                        }
                        break;
                }

                case 'c':
                        c = va_arg(argp, int);
                        (*putc)(c, arg);
                        nprinted++;
                        break;

                case 's':
                {
                        const char *p;
                        const char *p2;

                        if (prec == -1) {
                                prec = 0x7fffffff; /* MAXINT */
                        }
                        p = va_arg(argp, char *);

                        if (p == NULL) {
                                p = "";
                        }

                        if (length > 0 && !ladjust) {
                                n = 0;
                                p2 = p;

                                for (; *p != '\0' && n < prec; p++) {
                                        n++;
                                }

                                p = p2;

                                while (n < length) {
                                        (*putc)(' ', arg);
                                        n++;
                                        nprinted++;
                                }
                        }

                        n = 0;

                        while ((n < prec) && (!(length > 0 && n >= length))) {
                                if (*p == '\0') {
                                        break;
                                }
                                (*putc)(*p++, arg);
                                nprinted++;
                                n++;
                        }

                        if (n < length && ladjust) {
                                while (n < length) {
                                        (*putc)(' ', arg);
                                        n++;
                                        nprinted++;
                                }
                        }

                        break;
                }

                case 'o':
                        truncate = _doprnt_truncates;
                case 'O':
                        base = 8;
                        goto print_unsigned;

                case 'D': {
                        unsigned char *up;
                        char *q, *p;

                        up = (unsigned char *)va_arg(argp, unsigned char *);
                        p = (char *)va_arg(argp, char *);
                        if (length == -1) {
                                length = 16;
                        }
                        while (length--) {
                                (*putc)(digs[(*up >> 4)], arg);
                                (*putc)(digs[(*up & 0x0f)], arg);
                                nprinted += 2;
                                up++;
                                if (length) {
                                        for (q = p; *q; q++) {
                                                (*putc)(*q, arg);
                                                nprinted++;
                                        }
                                }
                        }
                        break;
                }

                case 'd':
                        truncate = _doprnt_truncates;
                        base = 10;
                        goto print_signed;

                case 'u':
                        truncate = _doprnt_truncates;
                /* FALLTHROUGH */
                case 'U':
                        base = 10;
                        goto print_unsigned;

                case 'p':
                        altfmt = TRUE;
                        if (sizeof(int) < sizeof(void *)) {
                                long_long = 1;
                        }
                /* FALLTHROUGH */
                case 'x':
                        truncate = _doprnt_truncates;
                        base = 16;
                        goto print_unsigned;

                case 'X':
                        base = 16;
                        capitals = 16;  /* Print in upper case */
                        goto print_unsigned;

                case 'r':
                        truncate = _doprnt_truncates;
                /* FALLTHROUGH */
                case 'R':
                        base = radix;
                        goto print_signed;

                case 'n':
                        truncate = _doprnt_truncates;
                /* FALLTHROUGH */
                case 'N':
                        base = radix;
                        goto print_unsigned;

print_signed:
                        if (long_long) {
                                n = va_arg(argp, long long);
                        } else {
                                n = va_arg(argp, int);
                        }
                        switch (numeric_type) {
                        case SHORT:
                                n = (short)n;
                                break;
                        case CHAR:
                                n = (char)n;
                                break;
                        default:
                                break;
                        }
                        if (n >= 0) {
                                u = n;
                                sign_char = plus_sign;
                        } else {
                                u = -n;
                                sign_char = '-';
                        }
                        goto print_num;

print_unsigned:
                        if (long_long) {
                                u = va_arg(argp, unsigned long long);
                        } else {
                                u = va_arg(argp, unsigned int);
                        }
                        switch (numeric_type) {
                        case SHORT:
                                u = (unsigned short)u;
                                break;
                        case CHAR:
                                u = (unsigned char)u;
                                break;
                        default:
                                break;
                        }
                        goto print_num;

print_num:
                        {
                                char        buf[MAXBUF];/* build number here */
                                char *      p = &buf[MAXBUF - 1];
                                static char digits[] = "0123456789abcdef0123456789ABCDEF";
                                const char *prefix = NULL;

                                if (truncate) {
                                        u = (long long)((int)(u));
                                }

                                if (doprnt_hide_pointers && is_log) {
                                        const char str[] = "<ptr>";
                                        const char* strp = str;
                                        int strl = sizeof(str) - 1;

#ifdef HAS_APPLE_PAC
                                        /**
                                         * Strip out the pointer authentication code before
                                         * checking whether the pointer is a kernel address.
                                         */
                                        u = (unsigned long long)VM_KERNEL_STRIP_PTR(u);
#endif /* HAS_APPLE_PAC */

                                        if (u >= VM_MIN_KERNEL_AND_KEXT_ADDRESS && u <= VM_MAX_KERNEL_ADDRESS) {
                                                while (*strp != '\0') {
                                                        (*putc)(*strp, arg);
                                                        strp++;
                                                }
                                                nprinted += strl;
                                                break;
                                        }
                                }

                                if (u != 0 && altfmt) {
                                        if (base == 8) {
                                                prefix = "0";
                                        } else if (base == 16) {
                                                prefix = "0x";
                                        }
                                }

                                do {
                                        /* Print in the correct case */
                                        *p-- = digits[(u % base) + capitals];
                                        u /= base;
                                } while (u != 0);

                                length -= (int)(&buf[MAXBUF - 1] - p);
                                if (sign_char) {
                                        length--;
                                }
                                if (prefix) {
                                        length -= (int)strlen(prefix);
                                }

                                if (padc == ' ' && !ladjust) {
                                        /* blank padding goes before prefix */
                                        while (--length >= 0) {
                                                (*putc)(' ', arg);
                                                nprinted++;
                                        }
                                }
                                if (sign_char) {
                                        (*putc)(sign_char, arg);
                                        nprinted++;
                                }
                                if (prefix) {
                                        while (*prefix) {
                                                (*putc)(*prefix++, arg);
                                                nprinted++;
                                        }
                                }
                                if (padc == '0') {
                                        /* zero padding goes after sign and prefix */
                                        while (--length >= 0) {
                                                (*putc)('0', arg);
                                                nprinted++;
                                        }
                                }
                                while (++p != &buf[MAXBUF]) {
                                        (*putc)(*p, arg);
                                        nprinted++;
                                }

                                if (ladjust) {
                                        while (--length >= 0) {
                                                (*putc)(' ', arg);
                                                nprinted++;
                                        }
                                }
                                break;
                        }

                case '\0':
                        fmt--;
                        break;

                default:
                        (*putc)(c, arg);
                        nprinted++;
                }
                fmt++;
        }

        return nprinted;
}

static void
dummy_putc(int ch, void *arg)
{
        void (*real_putc)(char) = arg;

        /*
         * Attempts to panic (or otherwise log to console) during early boot
         * can result in _doprnt() and _doprnt_log() being called from
         * _kprintf() before PE_init_kprintf() has been called. This causes
         * the "putc" param to _doprnt() and _doprnt_log() to be passed as
         * NULL. That NULL makes its way here, and we would try jump to it.
         * Given that this is a poor idea, and this happens at very early
         * boot, there is not a way to report this easily (we are likely
         * already panicing), so we'll just do nothing instead of crashing.
         */
        if (real_putc) {
                real_putc(ch);
        }
}

void
_doprnt(
        const char      *fmt,
        va_list                 *argp,
        /* character output routine */
        void                    (*putc)(char),
        int                     radix)          /* default radix - for '%r' */
{
        __doprnt(fmt, *argp, dummy_putc, putc, radix, FALSE);
}

void
_doprnt_log(
        const char      *fmt,
        va_list                 *argp,
        /* character output routine */
        void                    (*putc)(char),
        int                     radix)          /* default radix - for '%r' */
{
        __doprnt(fmt, *argp, dummy_putc, putc, radix, TRUE);
}

#if     MP_PRINTF
boolean_t       new_printf_cpu_number = FALSE;
#endif  /* MP_PRINTF */

decl_simple_lock_data(, printf_lock);
decl_simple_lock_data(, bsd_log_spinlock);

lck_grp_t oslog_stream_lock_grp;
decl_lck_spin_data(, oslog_stream_lock);
void oslog_lock_init(void);

extern void bsd_log_init(void);
void bsd_log_lock(void);
void bsd_log_unlock(void);

void
printf_init(void)
{
        /*
         * Lock is only really needed after the first thread is created.
         */
        simple_lock_init(&printf_lock, 0);
        simple_lock_init(&bsd_log_spinlock, 0);
        bsd_log_init();
}

void
bsd_log_lock(void)
{
        simple_lock(&bsd_log_spinlock, LCK_GRP_NULL);
}

void
bsd_log_unlock(void)
{
        simple_unlock(&bsd_log_spinlock);
}

void
oslog_lock_init(void)
{
        lck_grp_init(&oslog_stream_lock_grp, "oslog stream", LCK_GRP_ATTR_NULL);
        lck_spin_init(&oslog_stream_lock, &oslog_stream_lock_grp, LCK_ATTR_NULL);
}

/* derived from boot_gets */
void
safe_gets(
        char    *str,
        int     maxlen)
{
        char *lp;
        int c;
        char *strmax = str + maxlen - 1; /* allow space for trailing 0 */

        lp = str;
        for (;;) {
                c = cngetc();
                switch (c) {
                case '\n':
                case '\r':
                        printf("\n");
                        *lp++ = 0;
                        return;

                case '\b':
                case '#':
                case '\177':
                        if (lp > str) {
                                printf("\b \b");
                                lp--;
                        }
                        continue;

                case '@':
                case 'u'&037:
                        lp = str;
                        printf("\n\r");
                        continue;

                default:
                        if (c >= ' ' && c < '\177') {
                                if (lp < strmax) {
                                        *lp++ = c;
                                        printf("%c", c);
                                } else {
                                        printf("%c", '\007'); /* beep */
                                }
                        }
                }
        }
}

extern int disableConsoleOutput;

void
conslog_putc(
        char c)
{
        if (!disableConsoleOutput) {
                cnputc(c);
        }

#ifdef  MACH_BSD
        if (!kernel_debugger_entry_count) {
                log_putc(c);
        }
#endif
}

void
cons_putc_locked(
        char c)
{
        if (!disableConsoleOutput) {
                cnputc(c);
        }
}

static int
vprintf_internal(const char *fmt, va_list ap_in, void *caller)
{
        cpu_data_t * cpu_data_p;
        if (fmt) {
                struct console_printbuf_state info_data;
                cpu_data_p = current_cpu_datap();

                va_list ap;
                va_copy(ap, ap_in);
                /*
                 * for early boot printf()s console may not be setup,
                 * fallback to good old cnputc
                 */
                if (cpu_data_p->cpu_console_buf != NULL) {
                        console_printbuf_state_init(&info_data, TRUE, TRUE);
                        __doprnt(fmt, ap, console_printbuf_putc, &info_data, 16, TRUE);
                        console_printbuf_clear(&info_data);
                } else {
                        disable_preemption();
                        _doprnt_log(fmt, &ap, cons_putc_locked, 16);
                        enable_preemption();
                }

                va_end(ap);

                os_log_with_args(OS_LOG_DEFAULT, OS_LOG_TYPE_DEFAULT, fmt, ap_in, caller);
        }
        return 0;
}

__attribute__((noinline, not_tail_called))
int
printf(const char *fmt, ...)
{
        int ret;

        va_list ap;
        va_start(ap, fmt);
        ret = vprintf_internal(fmt, ap, __builtin_return_address(0));
        va_end(ap);

        return ret;
}

__attribute__((noinline, not_tail_called))
int
vprintf(const char *fmt, va_list ap)
{
        return vprintf_internal(fmt, ap, __builtin_return_address(0));
}

void
consdebug_putc(char c)
{
        if (!disableConsoleOutput) {
                cnputc(c);
        }

        debug_putc(c);

        if (!console_is_serial() && !disable_serial_output) {
                PE_kputc(c);
        }
}

void
consdebug_putc_unbuffered(char c)
{
        if (!disableConsoleOutput) {
                cnputc_unbuffered(c);
        }

        debug_putc(c);

        if (!console_is_serial() && !disable_serial_output) {
                PE_kputc(c);
        }
}

void
consdebug_log(char c)
{
        debug_putc(c);
}

/*
 * Append contents to the paniclog buffer but don't flush
 * it. This is mainly used for writing the actual paniclog
 * contents since flushing once for every line written
 * would be prohibitively expensive for the paniclog
 */
int
paniclog_append_noflush(const char *fmt, ...)
{
        va_list listp;

        va_start(listp, fmt);
        _doprnt_log(fmt, &listp, consdebug_putc, 16);
        va_end(listp);

        return 0;
}

int
kdb_printf(const char *fmt, ...)
{
        va_list listp;

        va_start(listp, fmt);
        _doprnt_log(fmt, &listp, consdebug_putc, 16);
        va_end(listp);

#if CONFIG_EMBEDDED
        paniclog_flush();
#endif

        return 0;
}

int
kdb_log(const char *fmt, ...)
{
        va_list listp;

        va_start(listp, fmt);
        _doprnt(fmt, &listp, consdebug_log, 16);
        va_end(listp);

#if CONFIG_EMBEDDED
        paniclog_flush();
#endif

        return 0;
}

int
kdb_printf_unbuffered(const char *fmt, ...)
{
        va_list listp;

        va_start(listp, fmt);
        _doprnt(fmt, &listp, consdebug_putc_unbuffered, 16);
        va_end(listp);

#if CONFIG_EMBEDDED
        paniclog_flush();
#endif

        return 0;
}

#if !CONFIG_EMBEDDED

static void
copybyte(int c, void *arg)
{
        /*
         * arg is a pointer (outside pointer) to the pointer
         * (inside pointer) which points to the character.
         * We pass a double pointer, so that we can increment
         * the inside pointer.
         */
        char** p = arg; /* cast outside pointer */
        **p = c;        /* store character */
        (*p)++;         /* increment inside pointer */
}

/*
 * Deprecation Warning:
 *      sprintf() is being deprecated. Please use snprintf() instead.
 */
int
sprintf(char *buf, const char *fmt, ...)
{
        va_list listp;
        char *copybyte_str;

        va_start(listp, fmt);
        copybyte_str = buf;
        __doprnt(fmt, listp, copybyte, &copybyte_str, 16, FALSE);
        va_end(listp);
        *copybyte_str = '\0';
        return (int)strlen(buf);
}
#endif /* !CONFIG_EMBEDDED */