Return to fixtop.c CVS log

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

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

1.1     ! root        1: /*
        !             2:  * n1/i386/fixtop.c
        !             3:  * Adjust types at the top of a tree node.
        !             4:  * i386.
        !             5:  */
        !             6: 
        !             7: #ifdef   vax
        !             8: #include "INC$LIB:cc1.h"
        !             9: #else
        !            10: #include "cc1.h"
        !            11: #endif
        !            12: 
        !            13: /*
        !            14:  * Make the top of a tree a computational type.
        !            15:  */
        !            16: fixtoptype(tp)
        !            17: register TREE *tp;
        !            18: {
        !            19:        register type;
        !            20: 
        !            21:        type = tp->t_type;
        !            22:        if (type == S8 || type == S16)
        !            23:                tp->t_type = S32;
        !            24:        else if (type == U8 || type == U16)
        !            25:                tp->t_type = U32;
        !            26:        else if (type == F32)
        !            27:                tp->t_type = F64;
        !            28: }
        !            29: 
        !            30: /* end of n1/i386/fixtop.c */

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