/*
 * C second pass -- tables
 */

#if	!defined(lint) && defined(DOSCCS)
static	char	sccsid[] = "@(#)c13.c	2.1 (2.11BSD GTE) 10/4/94";
#endif

#include "c1.h"
/*
 * Operator dope table-- see description in c0.
 */
int opdope[] = {
	000000,	/* EOFC (0) */
	000000,	/* ; */
	000000,	/* { */
	000000,	/* } */
	036000,	/* [ */
	002000,	/* ] */
	036000,	/* ( */
	002000,	/* ) */
	014201,	/* : */
	007001,	/* , */
	000000,	/* field selection (10) */
	000000,	/* reverse field selection */
	000001,	/* temporary field selection */
	000001,	/* int->ptr */
	000001,	/* ptr->int */
	000001,	/* long->ptr */
	000001,	/* field assignment */
	000001,	/* >> unsigned */
	000001,	/* >>= unsigned */
	000000,	/* keyword */
	000400,	/* name (20) */
	000400,	/* short constant */
	000400,	/* string */
	000400,	/* float */
	000400,	/* double */
	000400,	/* long const */
	000400,	/* long const <= 16 bits */
	000400,	/* autoi, *r++ */
	000400,	/* autod, *--r */
	000400,	/* () empty arglist */
	034213,	/* ++pre (30) */
	034213,	/* --pre */
	034213,	/* ++post */
	034213,	/* --post */
	034220,	/* !un */
	034202,	/* &un */
	034220,	/* *un */
	034200,	/* -un */
	034220,	/* ~un */
	036001,	/* . (structure reference) */
	030101,	/* + (40) */
	030001,	/* - */
	032101,	/* * */
	032001,	/* / */
	032001,	/* % */
	026061,	/* >> */
	026061,	/* << */
	020161,	/* & */
	016161,	/* | */
	016161,	/* ^ */
	036001,	/* -> (50) */
	001000,	/* int -> double */
	001000,	/* double -> int */
	000001,	/* && */
	000001,	/* || */
	030001, /* &~ */
	001000,	/* double -> long */
	001000,	/* long -> double */
	001000,	/* integer -> long */
	000000,	/* long -> integer */
	022005,	/* == (60) */
	022005,	/* != */
	024005,	/* <= */
	024005,	/* < */
	024005,	/* >= */
	024005,	/* > */
	024005,	/* <p */
	024005,	/* <=p */
	024005,	/* >p */
	024005,	/* >=p */
	012213,	/* += (70) */
	012213,	/* -= */
	012213,	/* *= */
	012213,	/* /= */
	012213,	/* %= */
	012253,	/* >>= */
	012253,	/* <<= */
	012253,	/* &= */
	012253,	/* |= */
	012253,	/* ^= */
	012213,	/* = (80) */
	030001, /* & for tests */
	032001,	/*  * (long) */
	032001,	/*  / (long) */
	032001,	/* % (long) */
	012253,	/* &= ~ */
	012213,	/* *= (long) */
	012213,	/* /= (long) */
	012213,	/* %= (long) */
	000000,	/* (89) */
	014201,	/* question '?' (90) */
	026061,	/* long << */
	012253,	/* long <<= */
	000101,	/* max */
	000101,	/* maxp */
	000101,	/* min */
	000101,	/* minp */
	000001,	/* , */
	000000,	/* call1 */
	000000,	/* call2 */
	036001,	/* call (100) */
	036000,	/* mcall */
	000000,	/* goto */
	000000,	/* jump cond */
	000000,	/* branch cond */
	000400,	/* set nregs */
	000000, /* load */
	030001,	/* ptoi1 */
	000000,	/* (108) */
	000000,	/* int->char */
	000000,	/* force r0 (110) */
	000000,	/* branch */
	000000,	/* label */
	000000,	/* nlabel */
	000000,	/* rlabel */
	000000,	/* structure assign */
	000001,	/* struct assignment setup */
	032001,	/* unsigned / */
	032001,	/* unsigned % */
	012213,	/* unsigned /= */
	012213,	/* unsigned %= (120) */
	032001, /* unsigned long * */
	032001, /* unsigned long / */
	032001, /* unsigned long % */
	012213, /* unsigned long *= */
	012213, /* unsigned long /= */
	012213, /* unsigned long %= */
	01000,  /* unsigned long -> float(double) */
	026061, /* unsigned long >> */
	012253, /* unsigned long >>= (129) */
};

char	*opntab[] = {
	0,			/* 0 */
	0,
	0,
	0,
	0,
	0,
	0,
	0,
	":",
	",",
	"field select",		/* 10 */
	0,
	0,
	"int->ptr",
	"ptr->int",
	"long->ptr",
	"field assign",
	">>",
	">>=",
	"keyword",
	"name",			/* 20 */
	"short constant",
	"string",
	"float",
	"double",
	"long constant",
	"long constant",
	"*r++",
	"*--r",
	"()",
	"++pre",		/* 30 */
	"--pre",
	"++post",
	"--post",
	"!un",
	"&",
	"*",
	"-",
	"~",
	".",
	"+",			/* 40 */
	"-",
	"*",
	"/",
	"%",
	">>",
	"<<",
	"&",
	"|",
	"^",
	"->",			/* 50 */
	"int->double",
	"double->int",
	"&&",
	"||",
	"&~",
	"double->long",
	"long->double",
	"integer->long",
	"long->integer",
	"==",			/* 60 */
	"!=",
	"<=",
	"<",
	">=",
	">",
	"<p",
	"<=p",
	">p",
	">=p",
	"+=",			/* 70 */
	"-=",
	"*=",
	"/=",
	"%=",
	">>=",
	"<<=",
	"&=",
	"|=",
	"^=",
	"=",			/* 80 */
	"& for tests",
	"*",
	"/",
	"%",
	"&= ~",
	"*=",
	"/=",
	"%=",
	0,
	"?",			/* 90 */
	"<<",
	"<<=",
	"\\/",
	"\\/",
	"/\\",
	"/\\",
	",",
	"call1",
	"call2",
	"call",			/* 100 */
	"mcall",
	"goto",
	"jump cond",
	"branch cond",
	"set nregs",
	"load value",
	"ptr->integer",
	0,
	"int->char",
	"force register",	/* 110 */
	"branch",
	"label",
	"nlabel",
	"rlabel",
	"=structure",
	"= (struct setup)",
	"/",
	"%",
	"/=",
	"%=",			/* 120 */
	"*",			/* unsigned long */
	"/",			/* unsigned long */
	"%",			/* unsigned long */
	"*=",			/* unsigned long */
	"/=",			/* unsigned long */
	"%=",			/* unsigned long */
	"u_long->double", 	/* unsigned long */
	">>",			/* unsigned long */
	">>=",			/* 129 unsigned long */
};

/*
 * Strings for instruction tables.
 */
char	mov[]	= "mov";
char	clr[]	= "clr";
char	cmp[]	= "cmp";
char	tst[]	= "tst";
char	add[]	= "add";
char	sub[]	= "sub";
char	inc[]	= "inc";
char	dec[]	= "dec";
char	mul[]	= "mul";
char	div[]	= "div";
char	asr[]	= "asr";
char	ash[]	= "ash";
char	asl[]	= "asl";
char	bic[]	= "bic";
char	bic1[]	= "bic $1,";
char	bit[]	= "bit";
char	bit1[]	= "bit $1,";
char	bis[]	= "bis";
char	bis1[]	= "bis $1,";
char	xor[]	= "xor";
char	neg[]	= "neg";
char	com[]	= "com";
char	stdol[]	= "*$";
char	ashc[]	= "ashc";
char	slmul[]	= "lmul";
char	sldiv[]	= "ldiv";
char	slrem[]	= "lrem";
char	uldiv[] = "uldiv";
char	ulrem[] = "ulrem";
char	ualdiv[] = "ualdiv";
char	ualrem[] = "ualrem";
char	ultof[] = "ultof";
char	ulsh[] = "ulsh";
char	ualsh[] = "ualsh";
char	almul[]	= "almul";
char	aldiv[]	= "aldiv";
char	alrem[]	= "alrem";
char	udiv[]	= "udiv";
char	urem[]	= "urem";
char	jeq[]	= "jeq";
char	jne[]	= "jne";
char	jle[]	= "jle";
char	jgt[]	= "jgt";
char	jlt[]	= "jlt";
char	jge[]	= "jge";
char	jlos[]	= "jlos";
char	jhi[]	= "jhi";
char	jlo[]	= "jlo";
char	jhis[]	= "jhis";
char	nop[]	= "/nop";
char	jbr[]	= "jbr";
char	jpl[] = "jpl";
char	jmi[] = "jmi";
char	jmijne[] = "jmi\tL%d\njne";
char	jmijeq[] = "jmi\tL%d\njeq";

/*
 * Instruction tables, accessed by
 * I (first operand) or I' (second) macros.
 */

struct instab instab[] = {
	LOAD,	mov,	tst,
	ASSIGN,	mov,	clr,
	EQUAL,	cmp,	tst,
	NEQUAL,	cmp,	tst,
	LESSEQ,	cmp,	tst,
	LESS,	cmp,	tst,
	GREATEQ,cmp,	tst,
	GREAT,	cmp,	tst,
	LESSEQP,cmp,	tst,
	LESSP,	cmp,	tst,
	GREATQP,cmp,	tst,
	GREATP,	cmp,	tst,
	PLUS,	add,	inc,
	ASPLUS,	add,	inc,
	MINUS,	sub,	dec,
	ASMINUS,sub,	dec,
	INCBEF,	add,	inc,
	DECBEF,	sub,	dec,
	INCAFT,	add,	inc,
	DECAFT,	sub,	dec,
	TIMES,	mul,	mul,
	ASTIMES,mul,	mul,
	DIVIDE,	div,	div,
	ASDIV,	div,	div,
	MOD,	div,	div,
	ASMOD,	div,	div,
	PTOI,	div,	div,
	RSHIFT,	ash,	asr,
	ASRSH,	ash,	asr,
	LSHIFT,	ash,	asl,
	ASLSH,	ash,	asl,
	AND,	bic,	bic1,
	ANDN,	bic,	bic1,
	ASANDN,	bic,	bic1,
	TAND,	bit,	bit1,
	OR,	bis,	bis1,
	ASOR,	bis,	bis1,
	EXOR,	xor,	xor,
	ASXOR,	xor,	xor,
	NEG,	neg,	neg,
	COMPL,	com,	com,
	CALL1,	stdol,	stdol,
	CALL2,	"",	"",
	LLSHIFT,ashc,	ashc,
	ASLSHL,	ashc,	ashc,
	LTIMES,	slmul,	slmul,
	LDIV,	sldiv,	sldiv,
	LMOD,	slrem,	slrem,
	LASTIMES,almul,	almul,
	LASDIV,	aldiv,	aldiv,
	LASMOD,	alrem,	alrem,
	ULSH,	ashc,	ashc,
	ASULSH,	ashc,	ashc,
	UDIV,	udiv,	udiv,
	UMOD,	urem,	urem,
	ASUDIV,	udiv,	udiv,
	ASUMOD,	urem,	urem,
	ULTIMES,slmul,	slmul,		/* symmetry */
	ULDIV,	uldiv,	uldiv,
	ULMOD,	ulrem,	ulrem,
	ULASTIMES,almul,almul,		/* symmetry */
	ULASDIV,ualdiv,	ualdiv,
	ULASMOD,ualrem,	ualrem,
	ULTOF,	ultof,	ultof,
	ULLSHIFT, ulsh, ulsh,
	UASLSHL, ualsh, ualsh,
	0,	0,	0};

/*
 * Similar table for relationals.
 * The first string is for the positive
 * test, the second for the inverted one.
 * The '200+' entries are 
 * used in tests against 0 where a 'tst'
 * instruction is used; it clears the c-bit
 * the c-bit so ptr tests are funny.
 */
struct instab branchtab[] = {
	EQUAL,	jeq,	jne,
	NEQUAL,	jne,	jeq,
	LESSEQ,	jle,	jgt,
	LESS,	jlt,	jge,
	GREATEQ,jge,	jlt,
	GREAT,	jgt,	jle,
	LESSEQP,jlos,	jhi,
	LESSP,	jlo,	jhis,
	GREATQP,jhis,	jlo,
	GREATP,	jhi,	jlos,
	200+EQUAL,	jeq,	jne,
	200+NEQUAL,	jne,	jeq,
	200+LESSEQ,	jmijeq,	jmijne,
	200+LESS,	jmi,	jpl,
	200+GREATEQ,	jpl,	jmi,
	200+GREAT,	jmijne,	jmijeq,
	200+LESSEQP,	jeq,	jne,
	200+LESSP,	nop,	jbr,
	200+GREATQP,	jbr,	nop,
	200+GREATP,	jne,	jeq,
	0,	0,	0 };