Return to opmatch.c CVS log

Up to [Research Unix] / researchv9 / cmd / sun / pcc

Annotation of researchv9/cmd/sun/pcc/opmatch.c, revision 1.1

1.1     ! root        1: #ifndef lint
        !             2: static char sccsid[] = "@(#)opmatch.c 1.1 86/02/03 Copyr 1985 Sun Micro";
        !             3: #endif
        !             4: 
        !             5: /*
        !             6:  * Copyright (c) 1985 by Sun Microsystems, Inc.
        !             7:  */
        !             8: 
        !             9: #include "cpass2.h"
        !            10: 
        !            11: /*
        !            12:  * int
        !            13:  * opmatch(op,tableop)
        !            14:  *     Decides if an operator 'tableop' from the code templates
        !            15:  *     table should be considered in pattern matching when a given
        !            16:  *     operator 'op' shows up in an expression tree.
        !            17:  */
        !            18: 
        !            19: extern int mamask[];   /* from match.c */
        !            20: 
        !            21: int
        !            22: opmatch(op,tableop)
        !            23:        unsigned op;
        !            24:        register unsigned tableop;
        !            25: {
        !            26:        register opmtemp;
        !            27: 
        !            28:        /*
        !            29:         * check target machine dependencies against code generation options
        !            30:         */
        !            31:        if (tableop&OP68SPEC) {
        !            32:                if ((tableop&OP68020) && !use68020)
        !            33:                        return(0);
        !            34:                if ((tableop&OP68881) && !use68881)
        !            35:                        return(0);
        !            36:                if ((tableop&NO68020) && use68020)
        !            37:                        return(0);
        !            38:                if ((tableop&NO68881) && use68881)
        !            39:                        return(0);
        !            40:        }
        !            41:        tableop &= ~OP68SPEC;
        !            42: 
        !            43:        /*
        !            44:         * check for match against a specific operator
        !            45:         */
        !            46:        if ( tableop < OPSIMP )
        !            47:                return( tableop == op );
        !            48: 
        !            49:        /*
        !            50:         * check for match against an operator class (e.g., OPSIMP)
        !            51:         */
        !            52:        if ((opmtemp=mamask[tableop - OPSIMP])&SPFLG){
        !            53:                switch (op) {
        !            54:                case NAME:
        !            55:                case FCON:
        !            56:                case ICON:
        !            57:                case OREG:
        !            58:                case REG:
        !            59:                        return(1);
        !            60:                case UNARY MUL:
        !            61:                        /*
        !            62:                         * for autoincrement addressing, recognize
        !            63:                         * *p++, *--p as LTYPEs, even though they
        !            64:                         * aren't.  We have to finish this test
        !            65:                         * by calling shumul() in match() (bletch)
        !            66:                         */
        !            67:                        return(1);
        !            68:                }
        !            69:                return(0);
        !            70:        }
        !            71:        /*
        !            72:         * same check on ASG operator class
        !            73:         */
        !            74:        return( (dope[op]&(opmtemp|ASGFLG)) == opmtemp );
        !            75: }

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