shithub: scc

ref: 30dd51b701334f8984bbc1359ca05357ed521ed5
dir: /cc1/target/z80-scc/arch.c/

static char sccsid[] = "@(#) ./cc1/arch/z80/arch.c";

#include "../../../inc/scc.h"
#include "../../cc1.h"

#define RANK_BOOL    0
#define RANK_SCHAR   1
#define RANK_UCHAR   1
#define RANK_CHAR    1
#define RANK_SHORT   2
#define RANK_USHORT  2
#define RANK_INT     3
#define RANK_UINT    3
#define RANK_LONG    4
#define RANK_ULONG   4
#define RANK_LLONG   5
#define RANK_ULLONG  5
#define RANK_FLOAT   6
#define RANK_DOUBLE  7
#define RANK_LDOUBLE 8

/*
 * Initializaion of type pointers were done with
 * a C99 initilizator '... = &(Type) {...', but
 * c compiler in Plan9 gives error with this
 * syntax, so I have switched it to this ugly form
 * I hope I will change it again in the future
 */

static Type types[] = {
	{       /* 0 = voidtype */
		.op = VOID,
		.letter = L_VOID,
	},
	{       /* 1 = pvoidtype */
		.op = PTR,
		.letter = L_POINTER,
		.prop = TDEFINED,
		.type = &types[5], /* char type */
		.size = 2,
		.align = 2,
	},
	{      /* 2 = booltype */
		.op = INT,
		.letter = L_BOOL,
		.prop = TDEFINED | TINTEGER | TARITH,
		.size = 1,
		.align = 1,
		.n.rank = RANK_BOOL,
	},
	{       /* 3 = schartype */
		.op = INT,
		.letter = L_INT8,
		.prop = TDEFINED | TINTEGER | TARITH | TSIGNED,
		.size = 1,
		.align = 1,
		.n.rank = RANK_SCHAR,
	},
	{      /* 4 = uchartype */
		.op = INT,
		.letter = L_UINT8,
		.prop = TDEFINED | TINTEGER | TARITH,
		.size = 1,
		.align = 1,
		.n.rank = RANK_UCHAR,
	},
	{      /* 5 = chartype */
		.op = INT,
		.letter = L_UINT8,
		.prop = TDEFINED | TINTEGER | TARITH | TSIGNED,
		.size = 1,
		.align = 1,
		.n.rank = RANK_CHAR,
	},
	{       /* 6 = ushortype */
		.op = INT,
		.letter = L_UINT16,
		.prop = TDEFINED | TINTEGER | TARITH,
		.size = 2,
		.align = 1,
		.n.rank = RANK_USHORT,
	},
	{       /* 7 = shortype */
		.op = INT,
		.letter = L_INT16,
		.prop = TDEFINED | TINTEGER | TARITH | TSIGNED,
		.size = 2,
		.align = 1,
		.n.rank = RANK_SHORT,
	},
	{       /* 8 = uinttype */
		.op = INT,
		.letter = L_UINT16,
		.prop = TDEFINED | TINTEGER | TARITH,
		.size = 2,
		.align = 1,
		.n.rank = RANK_UINT,
	},
	{       /* 9 = inttype */
		.op = INT,
		.letter = L_INT16,
		.prop = TDEFINED | TINTEGER | TARITH | TSIGNED,
		.size = 2,
		.align = 1,
		.n.rank = RANK_INT,
	},
	{      /* 10 = longtype */
		.op = INT,
		.letter = L_INT32,
		.prop = TDEFINED | TINTEGER | TARITH | TSIGNED,
		.size = 4,
		.align = 1,
		.n.rank = RANK_LONG,
	},
	{       /* 11 = ulongtype */
		.op = INT,
		.letter = L_UINT32,
		.prop = TDEFINED | TINTEGER | TARITH,
		.size = 4,
		.align = 1,
		.n.rank = RANK_ULONG,
	},
	{	/* 12 = ullongtype */
		.op = INT,
		.letter = L_UINT64,
		.prop = TDEFINED | TINTEGER | TARITH,
		.size = 8,
		.align = 1,
		.n.rank = RANK_ULLONG,
	},
	{       /* 13 = llongtype */
		.op = INT,
		.letter = L_INT64,
		.prop = TDEFINED | TINTEGER | TARITH | TSIGNED,
		.size = 8,
		.align = 1,
		.n.rank = RANK_LLONG,
	},
	{       /* 14 = floattype */
		.op = FLOAT,
		.letter = L_FLOAT,
		.prop = TDEFINED | TARITH,
		.size = 4,
		.align = 1,
		.n.rank = RANK_FLOAT,
	},
	{       /* 15 = doubletype */
		.op = FLOAT,
		.letter = L_DOUBLE,
		.prop = TDEFINED | TARITH,
		.size = 8,
		.align = 1,
		.n.rank = RANK_DOUBLE,
	},
	{       /* 16 = ldoubletype */
		.op = FLOAT,
		.letter = L_LDOUBLE,
		.prop = TDEFINED | TARITH,
		.size = 16,
		.align = 1,
		.n.rank = RANK_LDOUBLE,
	},
	{       /* 17 = sizettype */
		.op = INT,
		.letter = L_UINT16,
		.prop = TDEFINED | TINTEGER | TARITH,
		.size = 2,
		.align = 1,
		.n.rank = RANK_UINT,
	},
	{      /* 18 = ellipsis */
		.op = ELLIPSIS,
		.letter = L_ELLIPSIS,
		.prop = TDEFINED,
	},
	{       /* 7 = pdifftype */
		.op = INT,
		.letter = L_INT16,
		.prop = TDEFINED | TINTEGER | TARITH | TSIGNED,
		.size = 2,
		.align = 1,
		.n.rank = RANK_SHORT,
	},
	{       /* 20 = va_list_type */
		.op = PTR,
		.letter = L_POINTER,
		.prop = TDEFINED,
		.size = 2,
		.align = 1,
	}
};

Type *voidtype = &types[0], *pvoidtype = &types[1],
     *booltype = &types[2], *schartype = &types[3],
     *uchartype = &types[4], *chartype = &types[5],
     *ushortype = &types[6], *shortype = &types[7],
     *uinttype = &types[8], *inttype = &types[9],
     *longtype = &types[10], *ulongtype = &types[11],
     *ullongtype = &types[12], *llongtype = &types[13],
     *floattype = &types[14], *doubletype = &types[15],
     *ldoubletype = &types[16],
     *sizettype = &types[17], *pdifftype = &types[19],
     *ellipsistype = &types[18], *va_list_type = &types[20];


static Symbol dummy0 = {.u.i = 0, .type = &types[9]},
              dummy1 = {.u.i = 1, .type = &types[9]};
Symbol *zero = &dummy0, *one = &dummy1;

void
iarch(void)
{
}

int
valid_va_list(Type *tp)
{
	return eqtype(tp, va_list_type, 1);
}