Return to snap1.c CVS log

Up to [MW Coherent from dump] / coherent / b / bin / c / n1 / i386

Annotation of coherent/b/bin/c/n1/i386/snap1.c, revision 1.1

1.1     ! root        1: /*
        !             2:  * n1/i386/snap1.c
        !             3:  * Machine specific parts of the debug routines.
        !             4:  * Many are macros in cc1mch.h, repeated here for documentation.
        !             5:  * i386.
        !             6:  */
        !             7: 
        !             8: #ifdef   vax
        !             9: #include "INC$LIB:cc1.h"
        !            10: #else
        !            11: #include "cc1.h"
        !            12: #endif
        !            13: 
        !            14: /*
        !            15:  * Print a pointer.
        !            16:  * Host dependent.
        !            17:  * Required even if TINY by other diagnostic messages.
        !            18:  */
        !            19: psnap(p)
        !            20: char *p;
        !            21: {
        !            22: #if    IAPX86
        !            23: #ifdef vax
        !            24:        printf("%08lx", (long) p);
        !            25: #else
        !            26:        printf("%04x", (int) p);
        !            27: #endif
        !            28: #else
        !            29:        printf("%08lx", (long) p);
        !            30: #endif
        !            31: }
        !            32: 
        !            33: #if !TINY
        !            34: /*
        !            35:  * Print an ival_t.
        !            36:  * #define isnap(x)    printf(" %d", x)
        !            37:  */
        !            38: 
        !            39: /*
        !            40:  * Print an lval_t.
        !            41:  * #define lsnap(x)    printf(" %ld", x)
        !            42:  */
        !            43: 
        !            44: /*
        !            45:  * Print a dval_t.
        !            46:  */
        !            47: dsnap(d)
        !            48: dval_t d;
        !            49: {
        !            50:        register int i;
        !            51: 
        !            52:        for (i=0; i<8; ++i)
        !            53:                printf(" %02x", d[i]&0377);
        !            54: }
        !            55: 
        !            56: /*
        !            57:  * Print the t_cost field.
        !            58:  * #define csnap(x)    (x!=0 ? printf(" cost=%d", x) : 0)
        !            59:  */
        !            60: 
        !            61: /*
        !            62:  * Print the t_flag field.
        !            63:  * #define fsnap(x)    (x!=0 ? printf(" flag=%08lx", x) : 0)
        !            64:  */
        !            65: 
        !            66: /*
        !            67:  * Print machine dependent leaves.
        !            68:  * #define mdlsnap(x)  snaptype(x, "Bad leaf");
        !            69:  */
        !            70: 
        !            71: /*
        !            72:  * Print machine dependent op nodes.
        !            73:  * #define mdosnap(x)  snaptype(x, "Bad op");
        !            74:  */
        !            75: 
        !            76: #endif
        !            77: 
        !            78: /* end of n1/i386/snap1.c */

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.