2 xa51 specific general functions.
4 Note that mlh prepended _xa51_ on the static functions. Makes
5 it easier to set a breakpoint using the debugger.
12 static char _defaultRules[] =
17 /* list of key words used by xa51 */
18 static char *_xa51_keywords[] =
48 void _xa51_genAssemblerEnd () {
49 //fprintf (stderr, "Did %d rewind%c for c-line in asm comments\n", rewinds,
50 //rewinds==1 ? '\0' : 's');
53 void xa51_assignRegisters (eBBlock ** ebbs, int count);
55 static int regParmFlg = 0; /* determine if we can register a parameter */
60 asm_addTree (&asm_xa_asm_mapping);
64 _xa51_reset_regparm ()
70 _xa51_regparm (sym_link * l)
73 /* for this processor it is simple
74 can pass only the first parameter in a register */
83 _xa51_parseOptions (int *pargc, char **argv, int *i)
85 /* TODO: allow port-specific command line options to specify
92 _xa51_finaliseOptions (void)
94 port->mem.default_local_map = istack;
95 port->mem.default_globl_map = xdata;
99 _xa51_setDefaultOptions (void)
102 options.intlong_rent=1;
103 options.float_rent=1;
104 options.stack_loc=0x100;
108 _xa51_getRegName (struct regs *reg)
115 /* Generate interrupt vector table. */
117 _xa51_genIVT (FILE * of, symbol ** interrupts, int maxInterrupts)
122 /* Generate code to copy XINIT to XISEG */
123 static void _xa51_genXINIT (FILE * of) {
124 fprintf (of, "; _xa51_genXINIT() start\n");
125 fprintf (of, " mov r0,#l_XINIT\n");
126 fprintf (of, " beq 00002$\n");
127 fprintf (of, " mov r1,#s_XINIT\n");
128 fprintf (of, " mov r2,#s_XISEG\n");
129 fprintf (of, "00001$: movc r3l,[r1+]\n");
130 fprintf (of, " mov [r2+],r3l\n");
131 fprintf (of, " djnz r0,00001$\n");
132 fprintf (of, "00002$:\n");
133 fprintf (of, "; _xa51_genXINIT() end\n");
137 _xa51_genAssemblerPreamble (FILE * of)
139 symbol *mainExists=newSymbol("main", 0);
142 fprintf (of, "_errno\tsfr\t0x00; to keep the fp-lib's happy for now\n\n");
144 if ((mainExists=findSymWithLevel(SymbolTab, mainExists))) {
145 fprintf (of, "\t.area CSEG\t(CODE)\n");
146 fprintf (of, "__interrupt_vect:\n");
147 fprintf (of, "\t.dw\t0x8f00\n");
148 fprintf (of, "\t.dw\t__sdcc_gsinit_startup\n");
150 fprintf (of, "__sdcc_gsinit_startup:\n");
151 fprintf (of, "\tmov\tr7,#0x%04x\n", options.stack_loc);
152 fprintf (of, "\tcall\t_external_startup\n");
154 fprintf (of, "\tcall\t_main\n");
155 fprintf (of, "\treset\t;main should not return\n");
159 /* dummy linker for now */
163 /* Do CSE estimation */
164 static bool cseCostEstimation (iCode *ic, iCode *pdic)
166 operand *result = IC_RESULT(ic);
167 sym_link *result_type = operandType(result);
169 /* if it is a pointer then return ok for now */
170 if (IC_RESULT(ic) && IS_PTR(result_type)) return 1;
172 /* if bitwise | add & subtract then no since xa51 is pretty good at it
173 so we will cse only if they are local (i.e. both ic & pdic belong to
174 the same basic block */
175 if (IS_BITWISE_OP(ic) || ic->op == '+' || ic->op == '-') {
176 /* then if they are the same Basic block then ok */
177 if (ic->eBBlockNum == pdic->eBBlockNum) return 1;
181 /* for others it is cheaper to do the cse */
186 /** $1 is always the basename.
187 $2 is always the output file.
189 $l is the list of extra options that should be there somewhere...
190 MUST be terminated with a NULL.
192 static const char *_linkCmd[] =
194 "{bindir}{sep}aslink", "-nf", "$1", NULL
198 /* $3 is replaced by assembler.debug_opts resp. port->assembler.plain_opts */
199 static const char *_asmCmd[] =
201 "xa_asm", "$l", "$3", "$1.xa", NULL
209 "MCU 80C51XA", /* Target name */
211 FALSE, /* Emit glue around main */
218 "", /* Options with debug */
219 "", /* Options without debug */
222 NULL /* no do_assemble function */
234 /* Sizes: char, short, int, long, ptr, fptr, gptr, bit, float, max */
235 1, 2, 2, 4, 2, 2, 3, 1, 4, 4
242 NULL, //"ISEG (DATA)",
245 NULL, //"RSEG (DATA)",
247 NULL, //"OSEG (OVR,XDATA)",
250 "XISEG (XDATA)", // initialized xdata
251 "XINIT (CODE)", // a code copy of xiseg
252 NULL, // default local map
253 NULL, // default global map
257 -1, // stack grows down
258 0, // bank overhead NUY
260 4, // function call overhead
261 0, // reentrant overhead NUY
262 0 // banked overhead NUY
264 /* xa51 has an 16 bit mul */
271 _xa51_finaliseOptions,
272 _xa51_setDefaultOptions,
273 xa51_assignRegisters,
276 _xa51_genAssemblerPreamble,
277 _xa51_genAssemblerEnd,
282 NULL, // process_pragma()
283 NULL, // getMangledFunctionName()
284 NULL, // hasNativeMulFor()
285 TRUE, // use_dw_for_init
288 0, /* transform <= to ! > */
289 0, /* transform >= to ! < */
290 0, /* transform != to !(a == b) */
292 FALSE, /* No array initializer support. */
294 NULL, /* no builtin functions */
295 GPOINTER, /* treat unqualified pointers as "generic" pointers */
296 1, /* reset labelKey to 1 */
297 1, /* globals & local static allowed */