sdcc/support/regression/tests/bug-2684.c

   1 /* bug-2684.c
   2    A bug in the interface between SDCC and tdlib.
   3  */
   4
   5 #include <testfwk.h>
   6
   7 #pragma disable_warning 85
   8 #pragma disable_warning 196
   9
  10 /* printf.c
  11  *    Dale Schumacher                         399 Beacon Ave.
  12  *    (alias: Dalnefre')                      St. Paul, MN  55104
  13  *    dal@syntel.UUCP                         United States of America
  14  *
  15  * Altered to use stdarg, made the core function vfprintf.
  16  * Hooked into the stdio package using 'inside information'
  17  * Altered sizeof() assumptions, now assumes all integers except chars
  18  * will be either
  19  *  sizeof(xxx) == sizeof(long) or sizeof(xxx) == sizeof(short)
  20  *
  21  * -RDB
  22  */
  23
  24 #include <stdarg.h>
  25 #include <string.h>
  26
  27 typedef unsigned char uchar;
  28 typedef signed long fpos_t;
  29 /* when you add or change fields here, be sure to change the initialization
  30  * in stdio_init and fopen */
  31 struct __stdio_file {
  32         uchar   *bufpos;        /* the next byte to write to or read from */
  33         uchar   *bufread;       /* the end of data returned by last read() */
  34         uchar   *bufwrite;      /* highest address writable by macro */
  35         uchar   *bufstart;      /* the start of the buffer */
  36         uchar   *bufend;        /* the end of the buffer; ie the byte after
  37                                    the last malloc()ed byte */
  38         int     fd;             /* the file descriptor associated with the stream */
  39         int     mode;
  40         char    unbuf[8];       /* The buffer for 'unbuffered' streams */
  41         struct __stdio_file * next;
  42 };
  43
  44 typedef struct __stdio_file FILE;
  45
  46 int fputc(int c, FILE *stream)
  47 {
  48         return (0);
  49 }
  50
  51 int fflush(FILE *stream)
  52 {
  53         return (0);
  54 }
  55
  56 #define _IOLBF          0x01
  57 #define _IONBF          0x02
  58 #define __MODE_BUF      0x03
  59
  60 extern char *__ltostr(long __value, int __radix)
  61 {
  62         return ("");
  63 }
  64
  65 extern char *__ultostr(unsigned long value, int __radix)
  66 {
  67         return ("");
  68 }
  69
  70 #if !defined(__SDCC_pic14) // Pseudo-stack size limit
  71 /*
  72  * Output the given field in the manner specified by the arguments. Return
  73  * the number of characters output.
  74  */
  75 static int prtfld(FILE * op, size_t maxlen, size_t ct, unsigned char *buf, int ljustf, char sign,
  76                   char pad, int width, int preci, int buffer_mode)
  77 {
  78         return 0;
  79 }
  80
  81 #if !(defined (__SDCC_mcs51) && defined (__SDCC_MODEL_SMALL)) && !defined (__SDCC_pdk14) && !defined (__SDCC_pdk15)
  82 int _vfnprintf(FILE * op, size_t maxlen, const char *fmt, va_list ap)
  83 {
  84         register int i, ljustf, lval, preci, dpoint, width, radix, cnt = 0;
  85         char pad, sign, hash;
  86         register char *ptmp, *add;
  87         unsigned long val;
  88         char tmp[64];
  89         int buffer_mode;
  90
  91         /* This speeds things up a bit for unbuffered */
  92         buffer_mode = (op->mode & __MODE_BUF);
  93         op->mode &= (~__MODE_BUF);
  94         while (*fmt) {
  95                 if (*fmt == '%') {
  96                         if (buffer_mode == _IONBF)
  97                                 fflush(op);
  98                         ljustf = 0;     /* left justify flag */
  99                         sign = '\0';    /* sign char & status */
 100                         pad = ' ';      /* justification padding char */
 101                         width = -1;     /* min field width */
 102                         dpoint = 0;     /* found decimal point */
 103                         preci = -1;     /* max data width */
 104                         radix = 10;     /* number base */
 105                         ptmp = tmp;     /* pointer to area to print */
 106                         hash = 0;
 107                         lval = (sizeof(int) == sizeof(long));   /* long value flagged */
 108                       fmtnxt:for (i = 0, ++fmt;;
 109                              ++fmt) {
 110                                 if (*fmt < '0' || *fmt > '9')
 111                                         break;
 112                                 i *= 10;
 113                                 i += (*fmt - '0');
 114                                 if (dpoint)
 115                                         preci = i;
 116                                 else if (!i && (pad == ' ')) {
 117                                         pad = '0';
 118                                         goto fmtnxt;
 119                                 } else
 120                                         width = i;
 121                         }
 122                         switch (*fmt) {
 123                         case '\0':      /* early EOS */
 124                                 --fmt;
 125                                 goto charout;
 126
 127                         case '-':       /* left justification */
 128                                 ljustf = 1;
 129                                 goto fmtnxt;
 130
 131                         case ' ':
 132                         case '+':       /* leading sign flag */
 133                                 sign = *fmt;
 134                                 goto fmtnxt;
 135
 136                         case '#':
 137                                 hash = 1;
 138                                 goto fmtnxt;
 139
 140                         case '*':       /* parameter width value */
 141                                 i = va_arg(ap, int);
 142                                 if (dpoint)
 143                                         preci = i;
 144                                 else if ((width = i) < 0) {
 145                                         ljustf = 1;
 146                                         width = -i;
 147                                 }
 148                                 goto fmtnxt;
 149
 150                         case '.':       /* secondary width field */
 151                                 dpoint = 1;
 152                                 goto fmtnxt;
 153
 154                         case 'l':       /* long data */
 155                                 lval = 1;
 156                                 goto fmtnxt;
 157
 158                         case 'h':       /* short data */
 159                                 lval = 0;
 160                                 goto fmtnxt;
 161
 162                         case 'd':       /* Signed decimal */
 163                         case 'i':
 164                                 ptmp = __ltostr((long) ((lval) ?
 165                                                     va_arg(ap, long) :
 166                                                     va_arg(ap, int)), 10);
 167                                 goto printit;
 168
 169                         case 'b':       /* Unsigned binary */
 170                                 radix = 2;
 171                                 goto usproc;
 172
 173                         case 'o':       /* Unsigned octal */
 174                                 radix = 8;
 175                                 goto usproc;
 176
 177                         case 'p':       /* Pointer */
 178                                 lval = (sizeof(char *) == sizeof(long));
 179                                 pad = '0';
 180                                 width = 5;
 181                                 preci = 8;
 182                                 /* fall thru */
 183
 184                         case 'X':       /* Unsigned hexadecimal 'ABC' */
 185                                 radix = 16;
 186                                 goto usproc;
 187
 188                         case 'x':       /* Unsigned hexadecimal 'abc' */
 189                                 radix = -16;
 190                                 /* fall thru */
 191
 192                         case 'u':       /* Unsigned decimal */
 193                         usproc:
 194                                 val = lval ? va_arg(ap, unsigned long) :
 195                                     va_arg(ap, unsigned int);
 196                                 ptmp = __ultostr(val, radix < 0 ? -radix : radix);
 197                                 add = "";
 198                                 if (hash) {
 199                                         if (radix == 2)
 200                                                 add = "0b";
 201                                         else if (radix == 8) {
 202                                                 if (val != 0)
 203                                                         add = "0";
 204                                         } else if (radix == 16)
 205                                                 add = "0x";
 206                                         else if (radix == -16)
 207                                                 add = "0X";
 208                                         if (*add) {
 209                                                 pad = '\0';
 210                                                 strcpy(tmp, add);
 211                                                 ptmp = strcat(tmp, ptmp);
 212                                         }
 213                                 }
 214                                 goto printit;
 215
 216                         case '!':       /* inline Character */
 217                                 if ((i = fmt[1]) != 0)
 218                                         ++fmt;
 219                                 goto Chr;
 220
 221                         case 'c':       /* Character */
 222                                 i = va_arg(ap, int);
 223                               Chr:ptmp[0] =
 224                                     i;
 225                                 ptmp[1] = '\0';
 226                                 if (hash) {
 227                                         pad = *ptmp;
 228                                         goto chrpad;
 229                                 }
 230                                 goto nopad;
 231
 232                         case 's':       /* String */
 233                                 ptmp = va_arg(ap, char *);
 234                               nopad:pad =
 235                                     ' ';
 236                               chrpad:sign =
 237                                     '\0';
 238                               printit:cnt +=
 239                                     prtfld(op, maxlen, cnt, (unsigned char *) ptmp,
 240                                            ljustf, sign, pad, width, preci,
 241                                            buffer_mode);
 242                                 break;
 243
 244                         default:        /* unknown character */
 245                                 goto charout;
 246                         }
 247                 } else {
 248                       charout:
 249                         /* normal char out */
 250                         if (cnt < maxlen)
 251                                 fputc(*fmt, op);
 252                         ++cnt;
 253                         if (*fmt == '\n' && buffer_mode == _IOLBF)
 254                                 fflush(op);
 255                 }
 256                 ++fmt;
 257         }
 258         op->mode |= buffer_mode;
 259         if (buffer_mode == _IONBF)
 260                 fflush(op);
 261         if (buffer_mode == _IOLBF)
 262                 op->bufwrite = op->bufstart;
 263         return (cnt);
 264 }
 265 #endif
 266 #endif
 267
 268 void testBug(void)
 269 {
 270 }
 271