Return to mtree4.c CVS log

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

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

1.1     ! root        1: /*
        !             2:  * n1/i386/mtree4.c
        !             3:  * Machine specific tree modification functions.
        !             4:  * i386.
        !             5:  */
        !             6: 
        !             7: #ifdef   vax
        !             8: #include "INC$LIB:cc1.h"
        !             9: #else
        !            10: #include "cc1.h"
        !            11: #endif
        !            12: 
        !            13: /*
        !            14:  * This routine figures out the left subgoal context.
        !            15:  * It watches for 'test' instructions on the 8086.
        !            16:  */
        !            17: getldown(tp, c)
        !            18: TREE *tp;
        !            19: {
        !            20:        return (c==MFLOW && (tp->t_rp->t_flag&T_IMM)!=0) ? MRADDR : MRVALUE;
        !            21: }
        !            22: 
        !            23: /*
        !            24:  * This routine figures out the right hand subgoal contexts
        !            25:  * for the shift instruction.
        !            26:  */
        !            27: getrdown(tp, c)
        !            28: TREE *tp;
        !            29: {
        !            30:        register int op;
        !            31: 
        !            32:        return ((op=tp->t_rp->t_op)==ICON || op==LCON) ? MRADDR : MRVALUE;
        !            33: }
        !            34: 
        !            35: /*
        !            36:  * Fix up the type of a reordered ADD node.
        !            37:  * Watch for pointers.
        !            38:  */
        !            39: fixaddtype(tp)
        !            40: TREE *tp;
        !            41: {
        !            42:        register tt;
        !            43:        register lt, rt;
        !            44: 
        !            45:        lt = tp->t_lp->t_type;
        !            46:        rt = tp->t_rp->t_type;
        !            47:        if (ispoint(lt))
        !            48:                tt = lt;
        !            49:        else if (ispoint(rt))
        !            50:                tt = rt;
        !            51:        else if (islong(lt))
        !            52:                tt = lt;
        !            53:        else if (islong(rt))
        !            54:                tt = rt;
        !            55:        else
        !            56:                tt = lt;
        !            57:        tp->t_type = tt;
        !            58: }
        !            59: 
        !            60: /*
        !            61:  * Zap the type field of tree node 'tp'
        !            62:  * into the type used for offset addressing trees.
        !            63:  */
        !            64: setofstype(tp)
        !            65: TREE *tp;
        !            66: {
        !            67:        tp->t_type = OFFS;
        !            68: }
        !            69: 
        !            70: /* end of n1/i386/mtree4.c */

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