Return to snap1.c CVS log

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

Annotation of coherent/b/bin/c/n1/i8086/snap1.c, revision 1.1.1.1

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

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