Changeset 7258c6a in buchla-68k for iolib


Ignore:
Timestamp:
07/09/2017 04:45:34 PM (7 years ago)
Author:
Thomas Lopatic <thomas@…>
Branches:
master
Children:
8618599
Parents:
0292fbb
Message:

Use standard integer types.

Location:
iolib
Files:
7 edited

Legend:

Unmodified
Added
Removed

  • iolib/dofmt.c

    r0292fbb r7258c6a  
    2727
    2828#define MAXDIGS 11
    29 #define HIBITL  (1L << ( (8 * sizeof(long)) - 1))
     29#define HIBITL  (1L << ( (8 * sizeof(int32_t)) - 1))
    3030
    3131#define LONGHMSK        0x0FFFFFFFL
    … …  
    3838
    3939#if     CRUFTY
    40 extern  long    uldiv(long divid, long divis);
    41 extern  long    uldivr;
     40extern  int32_t uldiv(int32_t divid, int32_t divis);
     41extern  int32_t uldivr;
    4242#endif
    4343
    44 long dofmt_(int (*putsub)(), char *format, va_list args)
     44int32_t dofmt_(int16_t (*putsub)(), int8_t *format, va_list args)
    4545{
    46         register int fcode;
    47 
    48         long    k,
     46        register int16_t fcode;
     47
     48        int32_t k,
    4949                n,
    5050                lzero,
    5151                count;
    5252
    53         int     hradix,
     53        int16_t hradix,
    5454                lowbit,
    5555                length,
    … …  
    6262                prec;
    6363
    64         register char *bp, *p;
    65 
    66         char    *prefix,
     64        register int8_t *bp, *p;
     65
     66        int8_t  *prefix,
    6767                *tab,
    6868                buf[MAXDIGS];
    6969
    70         long    val;
     70        int32_t val;
    7171
    7272/*
    … …  
    8383                        ;
    8484
    85                 if (n = (long)format - (long)bp) {
     85                if (n = (int32_t)format - (int32_t)bp) {
    8686
    8787                        count += n;
    … …  
    126126                if (fcode EQ '*') {
    127127
    128                         width = va_arg(args, int);
     128                        width = va_arg(args, int16_t);
    129129
    130130                        if (width < 0) {
    … …  
    149149                else if (*++format EQ '*') {
    150150
    151                         prec = va_arg(args, int);
     151                        prec = va_arg(args, int16_t);
    152152                        format++;
    153153                } else
    … …  
    193193
    194194                        if (length)
    195                                 val = va_arg(args, long);
     195                                val = va_arg(args, int32_t);
    196196                        else if (fcode EQ 'd')
    197                                 val = va_arg(args, int);
     197                                val = va_arg(args, int16_t);
    198198                        else
    199                                 val = va_arg(args, unsigned);
     199                                val = va_arg(args, uint16_t);
    200200
    201201                        if (fcode EQ 'd') {
    … …  
    265265                        }
    266266
    267                         lzero = (long)bp - (long)p + (long)prec;
     267                        lzero = (int32_t)bp - (int32_t)p + (int32_t)prec;
    268268
    269269                        if (fsharp AND bp NE p)
    … …  
    291291
    292292                case 'c':
    293                         buf[0] = va_arg(args, int);
     293                        buf[0] = va_arg(args, int16_t);
    294294
    295295                c_merge:
    … …  
    299299
    300300                case 's':
    301                         p = bp = va_arg(args, char *);
     301                        p = bp = va_arg(args, int8_t *);
    302302
    303303                        if (prec < 0)
    … …  
    322322                        lzero = 0;
    323323
    324                 k = (n = (long)p - (long)bp) + (long)(lzero +
     324                k = (n = (int32_t)p - (int32_t)bp) + (int32_t)(lzero +
    325325                        (prefix[0] EQ '\0' ? 0 : (prefix[1] EQ '\0' ? 1 : 2)));
    326326

  • iolib/mdump.c

    r0292fbb r7258c6a  
    3939*/
    4040
    41 static void pipc(char chars[], int length)
     41static void pipc(int8_t chars[], int16_t length)
    4242{
    43         int     i;
     43        int16_t i;
    4444
    4545        for (i = 0; i < length; i++)
    … …  
    6060*/
    6161
    62 void mdump(char *begin, char *end, long start)
     62void mdump(int8_t *begin, int8_t *end, int32_t start)
    6363{
    64         long    i, ii;
    65         int     j, jj, k;
    66         char    c, chars[PERLINE];
     64        int32_t i, ii;
     65        int16_t j, jj, k;
     66        int8_t  c, chars[PERLINE];
    6767
    6868        i = 0L;

  • iolib/pause.c

    r0292fbb r7258c6a  
    88#include "biosdefs.h"
    99
    10 extern  int     waitcr(void);
    11 extern  void    writeln(int unit, char *buf);
     10extern  int16_t waitcr(void);
     11extern  void    writeln(int16_t unit, int8_t *buf);
    1212
    13 void pause(char *s)
     13void pause(int8_t *s)
    1414{
    1515        writeln(CON_DEV, s);

  • iolib/printf.c

    r0292fbb r7258c6a  
    1717#include "stdarg.h"
    1818
    19 extern  long    dofmt_(int (*putsub)(), char *format, va_list args);
     19extern  int32_t dofmt_(int16_t (*putsub)(), int8_t *format, va_list args);
    2020
    21         static int fpsub(int c);
     21        static int16_t fpsub(int16_t c);
    2222
    2323/*
    … …  
    2727*/
    2828
    29 long printf(char *fmt, ...)
     29int32_t printf(int8_t *fmt, ...)
    3030{
    31         register long count;
     31        register int32_t count;
    3232        va_list aptr;
    3333
    … …  
    4444*/
    4545
    46 static int fpsub(int c)
     46static int16_t fpsub(int16_t c)
    4747{
    4848        /* KLUDGE:  since we aren't Unix(tm) we prepend a CR to LF's */

  • iolib/rawio.c

    r0292fbb r7258c6a  
    6969
    7070
    71 int readln(int unit, int nc, char *ctl, int nb, char *buf)
    72 {
    73         register char *cp;
    74         register int i, j;
    75         register char *bp;
    76         register char c;
     71int16_t readln(int16_t unit, int16_t nc, int8_t *ctl, int16_t nb, int8_t *buf)
     72{
     73        register int8_t *cp;
     74        register int16_t i, j;
     75        register int8_t *bp;
     76        register int8_t c;
    7777       
    7878
    … …  
    9393                for (j = 0; j < nc; j++)        /* scan each byte of ctl */
    9494                        if (*ctl++ EQ c )       /* done if we find it */
    95                                 return((int)c);
     95                                return((int16_t)c);
    9696
    9797                BIOS(B_PUTC, unit, c);          /* echo the character */
    … …  
    104104 */
    105105
    106 int getln(int unit, int nb, char *buf)
    107 {
    108         register char *bp;
    109         register char c;
    110         register int bc;
     106int16_t getln(int16_t unit, int16_t nb, int8_t *buf)
     107{
     108        register int8_t *bp;
     109        register int8_t c;
     110        register int16_t bc;
    111111
    112112        bc = 0;         /* number of characters currently in buffer */
    … …  
    144144                        *bp++ = c;              /* put character in buffer */
    145145                        *bp = '\0';             /* terminate line with null */
    146                         return((int)c);         /* return -- CR or LF hit */
     146                        return((int16_t)c);             /* return -- CR or LF hit */
    147147
    148148/*
    … …  
    152152
    153153                        *buf = '\0';            /* clear the buffer */
    154                         return((int)c);         /* return -- line cancelled */
     154                        return((int16_t)c);             /* return -- line cancelled */
    155155
    156156                default:
    … …  
    169169 */
    170170
    171 int getrln(int unit, int nb, char *buf)
    172 {
    173         register char *bp;
    174         register char c;
    175         register int bc;
     171int16_t getrln(int16_t unit, int16_t nb, int8_t *buf)
     172{
     173        register int8_t *bp;
     174        register int8_t c;
     175        register int16_t bc;
    176176
    177177        bc = 0;         /* number of characters currently in buffer */
    … …  
    191191                        *bp++ = c;              /* put character in buffer */
    192192                        *bp = '\0';             /* terminate line with null */
    193                         return((int)c);         /* return -- CR, LF, or ^Z hit */
     193                        return((int16_t)c);             /* return -- CR, LF, or ^Z hit */
    194194
    195195                case CTL('X'):
    196196
    197197                        *buf = '\0';            /* clear the buffer */
    198                         return((int)c);         /* return -- line cancelled */
     198                        return((int16_t)c);             /* return -- line cancelled */
    199199
    200200                default:
    … …  
    212212 */
    213213
    214 void writeln(int unit, char *buf)
    215 {
    216         register char *bp;
    217         register char c;
     214void writeln(int16_t unit, int8_t *buf)
     215{
     216        register int8_t *bp;
     217        register int8_t c;
    218218
    219219        bp = buf;       /* setup buffer pointer */

  • iolib/sprintf.c

    r0292fbb r7258c6a  
    88#include "stdarg.h"
    99
    10 extern  long    dofmt_(int (*putsub)(), char *format, va_list args);
     10extern  int32_t dofmt_(int16_t (*putsub)(), int8_t *format, va_list args);
    1111
    12 static char     *buff;
    13         static int spsub(char c);
     12static int8_t   *buff;
     13        static int16_t spsub(int8_t c);
    1414
    1515/*
    … …  
    1919*/
    2020
    21 long sprintf(char *str, char *fmt, ...)
     21int32_t sprintf(int8_t *str, int8_t *fmt, ...)
    2222{
    23         register long count;
     23        register int32_t count;
    2424        va_list aptr;
    2525
    … …  
    3838*/
    3939
    40 static int spsub(char c)
     40static int16_t spsub(int8_t c)
    4141{
    4242        return((*buff++ = c) & 0xFF);

  • iolib/waitcr.c

    r0292fbb r7258c6a  
    2121*/
    2222
    23 int waitcr(void)
     23int16_t waitcr(void)
    2424{
    25         int     c;
     25        int16_t c;
    2626
    2727        BIOS(B_PUTC, CON_DEV, '\007');          /* wake up the operator */
    … …  
    2929        /* await a CR, in which case we just exit */
    3030
    31         while ('\r' NE (c = (0x007F & (int)BIOS(B_GETC, CON_DEV))))
     31        while ('\r' NE (c = (0x007F & (int16_t)BIOS(B_GETC, CON_DEV))))
    3232                if (c EQ '\007')        /* ... or a control-G */
    3333                        xtrap15();      /* ... in which case we trap first */
Note: See TracChangeset for help on using the changeset viewer.