shithub: scc

ref: 551aa2e69a72c87ff63a356d38fa3c4fe668c219
dir: /as/target/z80/proc.c/

static char sccsid[] = "@(#) ./as/target/i386/proc.c";

#include <stdlib.h>

#include "../../../inc/scc.h"
#include "../../as.h"
#include "../x80/proc.h"

void
iarch(void)
{
	static struct {
		char *name;
		char type;
	} regs[] = {
		"AF", AREG_AF,
		"A", AREG_A,
		"F", AREG_F,

		"BC", AREG_BC,
		"B", AREG_B,
		"C", AREG_C,

		"HL", AREG_HL,
		"H", AREG_H,
		"L", AREG_L,

		"DE", AREG_DE,
		"D", AREG_D,
		"E", AREG_E,

		"IX", AREG_IX,
		"IXL", AREG_IXL,
		"IXH", AREG_IXH,

		"IY", AREG_IY,
		"IYL", AREG_IYL,
		"IYH", AREG_IYH,

		"R", AREG_R,
		"I", AREG_I,
		"AF_", AREG_AF_,

		NULL,
	}, *bp;

	for (bp = regs; bp->name; ++bp) {
		Symbol *sym = lookup(bp->name);
		sym->flags = FREG;
		sym->argtype = bp->type;
	}
}

int
match(Op *op, Node **args)
{
	unsigned char *p;
	int arg;
	Node *np;

	if (!op->args)
		return args == NULL;

	for (p = op->args; arg = *p; ++p) {
		if (arg & AREP)
			--p;
		if ((np = *args++) == NULL)
			return (arg & (AREP|AOPT)) != 0;

		switch (arg & ~(AREP|AOPT)) {
		case AINDER_HL:
			if (np->addr != AINDIR)
				return 0;
			if (np->left->sym->argtype != AREG_HL)
				return 0;
			break;
		case AREG_A:
			if (np->addr != AREG || np->sym->argtype != AREG_A)
				return 0;
			break;
		case AREG_RCLASS:
			if (np->addr != AREG)
				return 0;
			if (!rclass(np->sym->argtype))
				return 0;
			break;
		case AREG_PCLASS:
			if (np->addr != AREG)
				return 0;
			if (!pclass(np->sym->argtype))
				return 0;
			break;
		case AREG_QCLASS:
			if (np->addr != AREG)
				return 0;
			if (!qclass(np->sym->argtype))
				return 0;
			break;
		case AREG_HL:
			if (np->addr != AREG)
				return 0;
			if (np->sym->argtype != AREG_HL)
				return 0;
			break;
		case AIMM8:
		case AIMM16:
		case AIMM32:
		case AIMM64:
			if (np->addr != AIMM)
				return 0;
			if (toobig(np, arg))
				error("overflow in immediate operand");
			break;
		case ASYM:
			if (np->addr != AIMM || np->op != IDEN)
				return 0;
			break;
		case ASTR:
			if (np->addr != ASTR)
				return 0;
			break;
		default:
			abort();
		}
	}

	return *args == NULL;
}