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

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.