Return to opmatch.c CVS log

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

researchv9-SUN3(old)

#ifndef lint
static	char sccsid[] = "@(#)opmatch.c 1.1 86/02/03 Copyr 1985 Sun Micro";
#endif

/*
 * Copyright (c) 1985 by Sun Microsystems, Inc.
 */

#include "cpass2.h"

/*
 * int
 * opmatch(op,tableop)
 *	Decides if an operator 'tableop' from the code templates
 *	table should be considered in pattern matching when a given
 *	operator 'op' shows up in an expression tree.
 */

extern int mamask[];	/* from match.c */

int
opmatch(op,tableop)
	unsigned op;
	register unsigned tableop;
{
	register opmtemp;

	/*
	 * check target machine dependencies against code generation options
	 */
	if (tableop&OP68SPEC) {
		if ((tableop&OP68020) && !use68020)
			return(0);
		if ((tableop&OP68881) && !use68881)
			return(0);
		if ((tableop&NO68020) && use68020)
			return(0);
		if ((tableop&NO68881) && use68881)
			return(0);
	}
	tableop &= ~OP68SPEC;

	/*
	 * check for match against a specific operator
	 */
	if ( tableop < OPSIMP )
		return( tableop == op );

	/*
	 * check for match against an operator class (e.g., OPSIMP)
	 */
	if ((opmtemp=mamask[tableop - OPSIMP])&SPFLG){
		switch (op) {
		case NAME:
		case FCON:
		case ICON:
		case OREG:
		case REG:
			return(1);
		case UNARY MUL:
			/*
			 * for autoincrement addressing, recognize
			 * *p++, *--p as LTYPEs, even though they
			 * aren't.  We have to finish this test
			 * by calling shumul() in match() (bletch)
			 */
			return(1);
		}
		return(0);
	}
	/*
	 * same check on ASG operator class
	 */
	return( (dope[op]&(opmtemp|ASGFLG)) == opmtemp );
}

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