3 static char _z80_defaultRules[] =
6 #include "peeph-z80.rul"
9 static char _gbz80_defaultRules[] =
12 #include "peeph-gbz80.rul"
28 static char *_keywords[] = {
34 extern PORT gbz80_port;
39 static void _z80_init(void)
41 z80_opts.sub = SUB_Z80;
42 asm_addTree(&_asxxxx_z80);
45 static void _gbz80_init(void)
47 z80_opts.sub = SUB_GBZ80;
50 static int regParmFlg = 0; /* determine if we can register a parameter */
52 static void _reset_regparm()
57 static int _reg_parm(link *l)
66 static bool _startsWith(const char *sz, const char *key)
68 return !strncmp(sz, key, strlen(key));
71 static void _chomp(char *sz)
74 while ((nl = strrchr(sz, '\n')))
78 static int _process_pragma(const char *sz)
80 if (_startsWith(sz, "bank=")) {
84 if (isdigit(buffer[0])) {
87 else if (!strcmp(buffer, "BASE")) {
88 strcpy(buffer, "HOME");
90 if (isdigit(buffer[0])) {
91 /* Arg was a bank number. Handle in an ASM independent
99 sprintf(buffer, "CODE_%s", num);
102 sprintf(buffer, "CODE,BANK[%s]", num);
105 /* PENDING: what to use for ISAS? */
106 sprintf(buffer, "CODE,BANK(%s)", num);
112 gbz80_port.mem.code_name = gc_strdup(buffer);
113 code->sname = gbz80_port.mem.code_name;
119 static const char *_gbz80_rgbasmCmd[] = {
120 "rgbasm", "-o$1.o", "$1.asm", NULL
123 static const char *_gbz80_rgblinkCmd[] = {
124 "xlink", "-tg", "-n$1.sym", "-m$1.map", "-zFF", "$1.lnk", NULL
127 static void _gbz80_rgblink(void)
138 /* first we need to create the <filename>.lnk file */
139 sprintf(buffer,"%s.lnk", sz);
140 if (!(lnkfile = fopen(buffer,"w"))) {
141 werror(E_FILE_OPEN_ERR, buffer);
145 fprintf(lnkfile, "[Objects]\n");
148 fprintf(lnkfile, "%s.o\n", sz);
150 for (i = 0 ; i < nrelFiles ; i++ )
151 fprintf (lnkfile,"%s\n",relFiles[i]);
153 fprintf(lnkfile, "\n[Libraries]\n");
154 /* additional libraries if any */
155 for (i = 0 ; i < nlibFiles; i++)
156 fprintf (lnkfile,"%s\n",libFiles[i]);
159 fprintf(lnkfile,"\n[Output]\n" "%s.gb",sz);
163 buildCmdLine(buffer, argv, port->linker.cmd, sz, NULL, NULL, NULL);
164 /* call the linker */
165 if (my_system(argv[0], argv)) {
166 perror("Cannot exec linker");
171 static bool _parseOptions(int *pargc, char **argv, int *i)
173 if (argv[*i][0] == '-') {
174 if (argv[*i][1] == 'b' && IS_GB) {
175 int bank = atoi(argv[*i] + 3);
177 switch (argv[*i][2]) {
180 sprintf(buffer, "CODE_%u", bank);
181 gbz80_port.mem.code_name = gc_strdup(buffer);
185 sprintf(buffer, "DATA_%u", bank);
186 gbz80_port.mem.data_name = gc_strdup(buffer);
190 else if (!strncmp(argv[*i], "--asm=", 6)) {
191 if (!strcmp(argv[*i], "--asm=rgbds")) {
192 asm_addTree(&_rgbds_gb);
193 gbz80_port.assembler.cmd = _gbz80_rgbasmCmd;
194 gbz80_port.linker.cmd = _gbz80_rgblinkCmd;
195 gbz80_port.linker.do_link = _gbz80_rgblink;
196 _G.asmType = ASM_TYPE_RGBDS;
199 else if (!strcmp(argv[*i], "--asm=asxxxx")) {
200 _G.asmType = ASM_TYPE_ASXXXX;
203 else if (!strcmp(argv[*i], "--asm=isas")) {
204 asm_addTree(&_isas_gb);
205 /* Munge the function prefix */
206 gbz80_port.fun_prefix = "";
207 _G.asmType = ASM_TYPE_ISAS;
215 static void _finaliseOptions(void)
217 port->mem.default_local_map = data;
218 port->mem.default_globl_map = data;
219 if (_G.asmType == ASM_TYPE_ASXXXX && IS_GB)
220 asm_addTree(&_asxxxx_gb);
223 static void _setDefaultOptions(void)
225 options.genericPtr = 1; /* default on */
227 options.stackAuto = 1;
228 options.mainreturn = 1;
229 options.noregparms = 1;
231 /* first the options part */
232 options.intlong_rent = 1;
234 optimize.global_cse = 1;
239 optimize.loopInvariant = 1;
240 optimize.loopInduction = 0;
243 static const char *_getRegName(struct regs *reg)
251 /** $1 is always the basename.
252 $2 is always the output file.
254 $l is the list of extra options that should be there somewhere...
255 MUST be terminated with a NULL.
257 static const char *_z80_linkCmd[] = {
258 "link-z80", "-nf", "$1", NULL
261 static const char *_z80_asmCmd[] = {
262 "as-z80", "-plosgff", "$1.asm", NULL
265 /** $1 is always the basename.
266 $2 is always the output file.
268 $l is the list of extra options that should be there somewhere...
269 MUST be terminated with a NULL.
271 static const char *_gbz80_linkCmd[] = {
272 "link-gbz80", "-nf", "$1", NULL
275 static const char *_gbz80_asmCmd[] = {
276 "as-gbz80", "-plosgff", "$1.o", "$1.asm", NULL
282 "Zilog Z80", /* Target name */
288 "-plosgff", /* Options with debug */
289 "-plosgff", /* Options without debug */
300 /* Sizes: char, short, int, long, ptr, fptr, gptr, bit, float, max */
301 1, 1, 2, 4, 2, 2, 2, 1, 4, 4
323 /* Z80 has no native mul/div commands */
335 0, /* no assembler preamble */
336 0, /* no local IVT generation code */
346 "Gameboy Z80-like", /* Target name */
352 "-plosgff", /* Options with debug */
353 "-plosgff", /* Options without debug */
365 /* Sizes: char, short, int, long, ptr, fptr, gptr, bit, float, max */
366 1, 1, 2, 4, 2, 2, 2, 1, 4, 4
388 /* gbZ80 has no native mul/div commands */
400 0, /* no assembler preamble */
401 0, /* no local IVT generation code */