X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Fxa51%2Fmain.c;h=a9b329cbcab4f3db73732f0b3199852fac466383;hb=830f8429290c5ab30fe839957c7f62af51f482c9;hp=ae66dd3c59d1a6a3c38dbb7e4439537757e73930;hpb=962eca671d11f56d193b9d687ef1aee539c3f32b;p=fw%2Fsdcc diff --git a/src/xa51/main.c b/src/xa51/main.c index ae66dd3c..a9b329cb 100755 --- a/src/xa51/main.c +++ b/src/xa51/main.c @@ -1,9 +1,7 @@ -/** @file main.c - xa51 specific general functions. - - Note that mlh prepended _xa51_ on the static functions. Makes - it easier to set a breakpoint using the debugger. +/* @file main.c + xa51 specific general functions. */ + #include "common.h" #include "main.h" #include "ralloc.h" @@ -40,29 +38,39 @@ static char *_xa51_keywords[] = //"_pdata", //"_idata", "_naked", - "_overlay", + //"_overlay", NULL }; +/* rewinds declared in asm.c, function printCLine(). + * Currently commented out. + * + * extern int rewinds; + */ +void _xa51_genAssemblerEnd (FILE * of) +{ + //fprintf (stderr, "Did %d rewind%c for c-line in asm comments\n", rewinds, + //rewinds==1 ? '\0' : 's'); +} -void xa51_assignRegisters (eBBlock ** ebbs, int count); +void xa51_assignRegisters (ebbIndex *); static int regParmFlg = 0; /* determine if we can register a parameter */ static void _xa51_init (void) { - asm_addTree (&asm_asxxxx_mapping); + asm_addTree (&asm_xa_asm_mapping); } static void -_xa51_reset_regparm () +_xa51_reset_regparm (void) { regParmFlg = 0; } static int -_xa51_regparm (sym_link * l) +_xa51_regparm (sym_link * l, bool reentrant) { return 0; // for now /* for this processor it is simple @@ -86,8 +94,13 @@ _xa51_parseOptions (int *pargc, char **argv, int *i) static void _xa51_finaliseOptions (void) { + fprintf (stderr, "*** WARNING *** The XA51 port isn't yet complete\n"); port->mem.default_local_map = istack; port->mem.default_globl_map = xdata; + if (options.model!=MODEL_PAGE0) { + fprintf (stderr, "-mxa51 only supports --model-page0\n"); + exit (1); + } } static void @@ -96,6 +109,8 @@ _xa51_setDefaultOptions (void) options.stackAuto=1; options.intlong_rent=1; options.float_rent=1; + options.stack_loc=0x100; + options.data_loc=0; } static const char * @@ -106,49 +121,54 @@ _xa51_getRegName (struct regs *reg) return "err"; } -static void -_xa51_genAssemblerPreamble (FILE * of) -{ -} - /* Generate interrupt vector table. */ static int _xa51_genIVT (FILE * of, symbol ** interrupts, int maxInterrupts) { - return FALSE; + return TRUE; } /* Generate code to copy XINIT to XISEG */ static void _xa51_genXINIT (FILE * of) { fprintf (of, "; _xa51_genXINIT() start\n"); - fprintf (of, " mov a,#l_XINIT\n"); - fprintf (of, " orl a,#l_XINIT>>8\n"); - fprintf (of, " jz 00003$\n"); - fprintf (of, " mov a,#s_XINIT\n"); - fprintf (of, " add a,#l_XINIT\n"); - fprintf (of, " mov r1,a\n"); - fprintf (of, " mov a,#s_XINIT>>8\n"); - fprintf (of, " addc a,#l_XINIT>>8\n"); - fprintf (of, " mov r2,a\n"); - fprintf (of, " mov dptr,#s_XINIT\n"); - fprintf (of, " mov r0,#s_XISEG\n"); - fprintf (of, " mov p2,#(s_XISEG >> 8)\n"); - fprintf (of, "00001$: clr a\n"); - fprintf (of, " movc a,@a+dptr\n"); - fprintf (of, " movx @r0,a\n"); - fprintf (of, " inc dptr\n"); - fprintf (of, " inc r0\n"); - fprintf (of, " cjne r0,#0,00002$\n"); - fprintf (of, " inc p2\n"); - fprintf (of, "00002$: mov a,dpl\n"); - fprintf (of, " cjne a,ar1,00001$\n"); - fprintf (of, " mov a,dph\n"); - fprintf (of, " cjne a,ar2,00001$\n"); - fprintf (of, " mov p2,#0xFF\n"); - fprintf (of, "00003$:\n"); + fprintf (of, " mov r0,#l_XINIT\n"); + fprintf (of, " beq 00002$\n"); + fprintf (of, " mov r1,#s_XINIT\n"); + fprintf (of, " mov r2,#s_XISEG\n"); + fprintf (of, "00001$: movc r3l,[r1+]\n"); + fprintf (of, " mov [r2+],r3l\n"); + fprintf (of, " djnz r0,00001$\n"); + fprintf (of, "00002$:\n"); fprintf (of, "; _xa51_genXINIT() end\n"); } +static void +_xa51_genAssemblerPreamble (FILE * of) +{ + symbol *mainExists=newSymbol("main", 0); + mainExists->block=0; + + if ((mainExists=findSymWithLevel(SymbolTab, mainExists))) { + fprintf (of, "\t.area GSINIT\t(CODE)\n"); + fprintf (of, "__interrupt_vect:\n"); + fprintf (of, "\t.dw\t0x8f00\n"); + fprintf (of, "\t.dw\t__sdcc_gsinit_startup\n"); + fprintf (of, "\n"); + fprintf (of, "__sdcc_gsinit_startup:\n"); + fprintf (of, ";\tmov.b\t_SCR,#0x01\t; page zero mode\n"); + fprintf (of, "\t.db 0x96,0x48,0x40,0x01\n"); + fprintf (of, "\tmov\tr7,#0x%04x\n", options.stack_loc); + fprintf (of, "\tcall\t_external_startup\n"); + _xa51_genXINIT(of); + fprintf (of, "\t.area CSEG\t(CODE)\n"); + fprintf (of, "\tcall\t_main\n"); + fprintf (of, "\treset\t;main should not return\n"); + } +} + +/* dummy linker for now */ +void xa_link(void) { +} /* Do CSE estimation */ static bool cseCostEstimation (iCode *ic, iCode *pdic) @@ -172,6 +192,30 @@ static bool cseCostEstimation (iCode *ic, iCode *pdic) return 1; } +/* Indicate which extended bit operations this port supports */ +static bool +hasExtBitOp (int op, int size) +{ + if (op == RRC + || op == RLC + || op == GETHBIT + ) + return TRUE; + else + return FALSE; +} + +/* Indicate the expense of an access to an output storage class */ +static int +oclsExpense (struct memmap *oclass) +{ + if (IN_FARSPACE(oclass)) + return 1; + + return 0; +} + + /** $1 is always the basename. $2 is always the output file. $3 varies @@ -180,13 +224,13 @@ static bool cseCostEstimation (iCode *ic, iCode *pdic) */ static const char *_linkCmd[] = { - "{bindir}{sep}aslink", "-nf", "$1", NULL + "xa_link", "", "\"$1\"", NULL }; /* $3 is replaced by assembler.debug_opts resp. port->assembler.plain_opts */ static const char *_asmCmd[] = { - "xa_asm", "$l", "$3", "$1.asm", NULL + "xa_rasm", "$l", "$3", "\"$1.asm\"", NULL }; /* Globals */ @@ -195,16 +239,18 @@ PORT xa51_port = TARGET_ID_XA51, "xa51", "MCU 80C51XA", /* Target name */ + NULL, /* Processor name */ { - TRUE, /* Emit glue around main */ - MODEL_LARGE, - MODEL_LARGE + glue, + FALSE, /* Emit glue around main */ + MODEL_PAGE0, + MODEL_PAGE0 }, { _asmCmd, NULL, - "-plosgffc", /* Options with debug */ - "-plosgff", /* Options without debug */ + "", /* Options with debug */ + "", /* Options without debug */ 0, ".asm", NULL /* no do_assemble function */ @@ -213,7 +259,8 @@ PORT xa51_port = _linkCmd, NULL, NULL, - ".rel" + ".rel", + 1 }, { _defaultRules @@ -224,28 +271,31 @@ PORT xa51_port = }, { "XSEG (XDATA)", - "STACK (DATA)", + "STACK (XDATA)", "CSEG (CODE)", "DSEG (DATA)", - "ISEG (DATA)", + NULL, //"ISEG (DATA)", + NULL, //"PSEG (PAG,XDATA)", "XSEG (XDATA)", "BSEG (BIT)", - "RSEG (DATA)", + NULL, //"RSEG (DATA)", "GSINIT (CODE)", - "OSEG (OVR,DATA)", + NULL, //"OSEG (OVR,XDATA)", "GSFINAL (CODE)", "HOME (CODE)", "XISEG (XDATA)", // initialized xdata "XINIT (CODE)", // a code copy of xiseg + "CONST (CODE)", // const_name - const data (code or not) NULL, // default local map NULL, // default global map 1 }, + { NULL, NULL }, { -1, // stack grows down 0, // bank overhead NUY - 6, // isr overhead - 4, // function call overhead + 4, // isr overhead, page zero mode + 2, // function call overhead, page zero mode 0, // reentrant overhead NUY 0 // banked overhead NUY }, @@ -253,24 +303,43 @@ PORT xa51_port = { 2, -2 }, + { + xa51_emitDebuggerSymbol + }, + { + 255/3, /* maxCount */ + 3, /* sizeofElement */ + /* The rest of these costs are bogus. They approximate */ + /* the behavior of src/SDCCicode.c 1.207 and earlier. */ + {4,4,4}, /* sizeofMatchJump[] */ + {0,0,0}, /* sizeofRangeCompare[] */ + 0, /* sizeofSubtract */ + 3, /* sizeofDispatch */ + }, "_", _xa51_init, _xa51_parseOptions, + NULL, + NULL, _xa51_finaliseOptions, _xa51_setDefaultOptions, xa51_assignRegisters, _xa51_getRegName, _xa51_keywords, _xa51_genAssemblerPreamble, - NULL, /* no genAssemblerEnd */ + _xa51_genAssemblerEnd, _xa51_genIVT, _xa51_genXINIT, + NULL, /* genInitStartup */ _xa51_reset_regparm, _xa51_regparm, - NULL, - NULL, - NULL, - FALSE, + NULL, // process_pragma() + NULL, // getMangledFunctionName() + NULL, // hasNativeMulFor() + hasExtBitOp, /* hasExtBitOp */ + oclsExpense, /* oclsExpense */ + TRUE, // use_dw_for_init + TRUE, /* little endian */ 0, /* leave lt */ 0, /* leave gt */ 1, /* transform <= to ! > */