scc

simple c99 compiler
git clone git://git.simple-cc.org/scc
Log | Files | Refs | Submodules | README | LICENSE

z80-scc.c (3936B)

      1 #include <scc/scc.h>
      2 #include "cc1.h"
      3 
      4 #define RANK_BOOL    0
      5 #define RANK_SCHAR   1
      6 #define RANK_UCHAR   1
      7 #define RANK_CHAR    1
      8 #define RANK_SHORT   2
      9 #define RANK_USHORT  2
     10 #define RANK_INT     3
     11 #define RANK_UINT    3
     12 #define RANK_LONG    4
     13 #define RANK_ULONG   4
     14 #define RANK_LLONG   5
     15 #define RANK_ULLONG  5
     16 #define RANK_FLOAT   6
     17 #define RANK_DOUBLE  7
     18 #define RANK_LDOUBLE 8
     19 
     20 static int
     21 local_valid_va_list(Type *tp)
     22 {
     23 	return eqtype(tp, va_list_type, EQUIV);
     24 }
     25 
     26 Arch *
     27 z80_scc(void)
     28 {
     29 	static Arch arch = {
     30 		.voidtype = {
     31 			.op = VOID,
     32 			.letter = L_VOID,
     33 		},
     34 		.pvoidtype = {
     35 			.op = PTR,
     36 			.letter = L_POINTER,
     37 			.prop = TDEFINED,
     38 			.size = 8,
     39 			.align = 8,
     40 		},
     41 		.booltype = {
     42 			.op = INT,
     43 			.letter = L_BOOL,
     44 			.prop = TDEFINED | TINTEGER | TARITH,
     45 			.size = 1,
     46 			.align = 1,
     47 			.n.rank = RANK_BOOL,
     48 		},
     49 		.schartype = {
     50 			.op = INT,
     51 			.letter = L_INT8,
     52 			.prop = TDEFINED | TINTEGER | TARITH | TSIGNED,
     53 			.size = 1,
     54 			.align = 1,
     55 			.n.rank = RANK_SCHAR,
     56 
     57 		},
     58 		.uchartype = {
     59 			.op = INT,
     60 			.letter = L_UINT8,
     61 			.prop = TDEFINED | TINTEGER | TARITH,
     62 			.size = 1,
     63 			.align = 1,
     64 			.n.rank = RANK_UCHAR,
     65 		},
     66 		.chartype = {
     67 			.op = INT,
     68 			.letter = L_INT8,
     69 			.prop = TDEFINED | TINTEGER | TARITH,
     70 			.size = 1,
     71 			.align = 1,
     72 			.n.rank = RANK_CHAR,
     73 		},
     74 		.ushorttype = {
     75 			.op = INT,
     76 			.letter = L_UINT16,
     77 			.prop = TDEFINED | TINTEGER | TARITH,
     78 			.size = 2,
     79 			.align = 2,
     80 			.n.rank = RANK_USHORT,
     81 
     82 		},
     83 		.shorttype = {
     84 			.op = INT,
     85 			.letter = L_INT16,
     86 			.prop = TDEFINED | TINTEGER | TARITH | TSIGNED,
     87 			.size = 2,
     88 			.align = 2,
     89 			.n.rank = RANK_SHORT,
     90 		},
     91 		.uinttype = {
     92 			.op = INT,
     93 			.letter = L_UINT16,
     94 			.prop = TDEFINED | TINTEGER | TARITH,
     95 			.size = 2,
     96 			.align = 1,
     97 			.n.rank = RANK_UINT,
     98 		},
     99 		.inttype = {
    100 			.op = INT,
    101 			.letter = L_INT16,
    102 			.prop = TDEFINED | TINTEGER | TARITH | TSIGNED,
    103 			.size = 2,
    104 			.align = 1,
    105 			.n.rank = RANK_INT,
    106 		},
    107 		.longtype = {
    108 			.op = INT,
    109 			.letter = L_INT32,
    110 			.prop = TDEFINED | TINTEGER | TARITH | TSIGNED,
    111 			.size = 4,
    112 			.align = 1,
    113 			.n.rank = RANK_LONG,
    114 		},
    115 		.ulongtype = {
    116 			.op = INT,
    117 			.letter = L_UINT32,
    118 			.prop = TDEFINED | TINTEGER | TARITH,
    119 			.size = 4,
    120 			.align = 1,
    121 			.n.rank = RANK_ULONG,
    122 		},
    123 		.ullongtype = {
    124 			.op = INT,
    125 			.letter = L_UINT64,
    126 			.prop = TDEFINED | TINTEGER | TARITH,
    127 			.size = 8,
    128 			.align = 8,
    129 			.n.rank = RANK_ULLONG,
    130 		},
    131 		.llongtype = {
    132 			.op = INT,
    133 			.letter = L_INT64,
    134 			.prop = TDEFINED | TINTEGER | TARITH | TSIGNED,
    135 			.size = 8,
    136 			.align = 8,
    137 			.n.rank = RANK_LLONG,
    138 		},
    139 		.floattype = {
    140 			.op = FLOAT,
    141 			.letter = L_FLOAT,
    142 			.prop = TDEFINED | TARITH,
    143 			.size = 4,
    144 			.align = 1,
    145 			.n.rank = RANK_FLOAT,
    146 		},
    147 		.doubletype = {
    148 			.op = FLOAT,
    149 			.letter = L_DOUBLE,
    150 			.prop = TDEFINED | TARITH,
    151 			.size = 8,
    152 			.align = 1,
    153 			.n.rank = RANK_DOUBLE,
    154 		},
    155 		.ldoubletype = {
    156 			.op = FLOAT,
    157 			.letter = L_LDOUBLE,
    158 			.prop = TDEFINED | TARITH,
    159 			.size = 16,
    160 			.align = 1,
    161 			.n.rank = RANK_LDOUBLE,
    162 		},
    163 		.sizettype = {
    164 			.op = INT,
    165 			.letter = L_UINT16,
    166 			.prop = TDEFINED | TINTEGER | TARITH,
    167 			.size = 2,
    168 			.align = 1,
    169 			.n.rank = RANK_UINT,
    170 		},
    171 		.pdifftype = {
    172 			.op = INT,
    173 			.letter = L_INT16,
    174 			.prop = TDEFINED | TINTEGER | TARITH | TSIGNED,
    175 			.size = 2,
    176 			.align = 1,
    177 			.n.rank = RANK_SHORT,
    178 		},
    179 		.ellipsistype = {
    180 			.op = ELLIPSIS,
    181 			.letter = L_ELLIPSIS,
    182 			.prop = TDEFINED,
    183 		},
    184 		.va_type = {
    185 			.op = PTR,
    186 			.letter = L_POINTER,
    187 			.prop = TDEFINED,
    188 			.size = 2,
    189 			.align = 1,
    190 		},
    191 		.va_list_type = {
    192 			.op = PTR,
    193 			.letter = L_POINTER,
    194 			.prop = TDEFINED,
    195 			.size = 2,
    196 			.align = 1,
    197 		},
    198 		.wchartype = {
    199 			.op = INT,
    200 			.letter = L_UINT16,
    201 			.prop = TDEFINED | TINTEGER | TARITH | TSIGNED,
    202 			.size = 2,
    203 			.align = 1,
    204 			.n.rank = RANK_INT,
    205 		},
    206 	};
    207 	arch.valid_va_list = local_valid_va_list;
    208 	arch.pvoidtype.type = &arch.voidtype;
    209 	arch.va_type.type = &arch.inttype;
    210 
    211 	return &arch;
    212 }