X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Fmcs51%2Fmain.c;h=9a18499e38f42c04ad68dcf4dcb851f600af7c34;hb=270fddefec4feae4a03851b3fd06e8ea759fbd62;hp=6dd76d9242338d651e29f0f2ba0f3924a0779b79;hpb=958a651d053c089412d87ab75101812383d03f19;p=fw%2Fsdcc

diff --git a/src/mcs51/main.c b/src/mcs51/main.c
index 6dd76d92..9a18499e 100644
--- a/src/mcs51/main.c
+++ b/src/mcs51/main.c
@@ -1,48 +1,366 @@
+/** @file main.c
+    mcs51 specific general functions.
+
+    Note that mlh prepended _mcs51_ on the static functions.  Makes
+    it easier to set a breakpoint using the debugger.
+*/
 #include "common.h"
 #include "main.h"
+#include "ralloc.h"
+#include "gen.h"
+#include "../SDCCutil.h"
 
-void mcs51_assignRegisters (eBBlock **ebbs, int count);
+static char _defaultRules[] =
+{
+#include "peeph.rul"
+};
 
-static bool _mcs51_parseOptions(int *pargc, char **argv)
+/* list of key words used by msc51 */
+static char *_mcs51_keywords[] =
 {
-    return FALSE;
+  "at",
+  "bit",
+  "code",
+  "critical",
+  "data",
+  "far",
+  "idata",
+  "interrupt",
+  "near",
+  "pdata",
+  "reentrant",
+  "sfr",
+  "sbit",
+  "using",
+  "xdata",
+  "_data",
+  "_code",
+  "_generic",
+  "_near",
+  "_xdata",
+  "_pdata",
+  "_idata",
+  "_naked",
+  "_overlay",
+  NULL
+};
+
+
+void mcs51_assignRegisters (eBBlock ** ebbs, int count);
+
+static int regParmFlg = 0;	/* determine if we can register a parameter */
+
+static void
+_mcs51_init (void)
+{
+  asm_addTree (&asm_asxxxx_mapping);
 }
 
-static void _mcs51_finaliseOptions(void)
+static void
+_mcs51_reset_regparm ()
 {
+  regParmFlg = 0;
 }
 
-static void _mcs51_setDefaultOptions(void)
-{    
+static int
+_mcs51_regparm (sym_link * l)
+{
+    if (options.parms_in_bank1 == 0) {
+	/* simple can pass only the first parameter in a register */
+	if (regParmFlg)
+	    return 0;
+
+	regParmFlg = 1;
+	return 1;
+    } else {
+	int size = getSize(l);
+	int remain ;
+
+	/* first one goes the usual way to DPTR */
+	if (regParmFlg == 0) {
+	    regParmFlg += 4 ;
+	    return 1;
+	}
+	/* second one onwards goes to RB1_0 thru RB1_7 */
+        remain = regParmFlg - 4;
+	if (size > (8 - remain)) {
+	    regParmFlg = 12 ;
+	    return 0;
+	}
+	regParmFlg += size ;
+	return regParmFlg - size + 1;	
+    }
 }
 
-/* Globals */
-PORT mcs51_port = {
-    "mcs51",
-    "MCU 8051",			/* Target name */
-    {	
-	"asx8051",		/* Assembler executable name */
-	"-plosgffc",		/* Options with debug */
-	"-plosgff",		/* Options without debug */
-	FALSE			/* TRUE if the assembler requires an output name */
-    },
-    {
-	"aslink",		/* Linker executable name */
-    },
-    {
-    	/* Sizes: char, short, int, long, ptr, fptr, gptr, bit, float, max */
-	1, 1, 2, 4, 1, 2, 3, 1, 4, 4
-    },
-    { 
-	+1, 1, 4, 0, 0
-    },
-    /* mcs51 has an 8 bit mul */
+static bool
+_mcs51_parseOptions (int *pargc, char **argv, int *i)
+{
+  /* TODO: allow port-specific command line options to specify
+   * segment names here.
+   */
+  return FALSE;
+}
+
+static void
+_mcs51_finaliseOptions (void)
+{
+  if (options.noXinitOpt) {
+    port->genXINIT=0;
+  }
+
+  if (options.model == MODEL_LARGE) {
+      port->mem.default_local_map = xdata;
+      port->mem.default_globl_map = xdata;
+    }
+  else
     {
-	1
-    },
-    _mcs51_parseOptions,
-    _mcs51_finaliseOptions,
-    _mcs51_setDefaultOptions,
-    mcs51_assignRegisters
+      port->mem.default_local_map = data;
+      port->mem.default_globl_map = data;
+    }
+
+  if (options.parms_in_bank1) {
+      addSet(&preArgvSet, Safe_strdup("-DSDCC_PARMS_IN_BANK1"));
+  }
+}
+
+static void
+_mcs51_setDefaultOptions (void)
+{
+}
+
+static const char *
+_mcs51_getRegName (struct regs *reg)
+{
+  if (reg)
+    return reg->name;
+  return "err";
+}
+
+static void
+_mcs51_genAssemblerPreamble (FILE * of)
+{
+    if (options.parms_in_bank1) {
+	int i ;
+	for (i=0; i < 8 ; i++ )
+	    fprintf (of,"b1_%d = 0x%x \n",i,8+i);
+    }
+}
+
+/* Generate interrupt vector table. */
+static int
+_mcs51_genIVT (FILE * of, symbol ** interrupts, int maxInterrupts)
+{
+  return FALSE;
+}
+
+/* Generate code to clear XSEG and idata memory. 
+   This clears XSEG, DSEG, BSEG, OSEG, SSEG */
+static void _mcs51_genRAMCLEAR (FILE * of) {
+  fprintf (of, ";	_mcs51_genRAMCLEAR() start\n");
+  fprintf (of, "	mov	r0,#l_XSEG\n");
+  fprintf (of, "	mov	a,r0\n");
+  fprintf (of, "	orl	a,#(l_XSEG >> 8)\n");
+  fprintf (of, "	jz	00005$\n");
+  fprintf (of, "	mov	r1,#((l_XSEG + 255) >> 8)\n");
+  fprintf (of, "	mov	dptr,#s_XSEG\n");
+  fprintf (of, "	clr     a\n");
+  fprintf (of, "00004$:	movx	@dptr,a\n");
+  fprintf (of, "	inc	dptr\n");
+  fprintf (of, "	djnz	r0,00004$\n");
+  fprintf (of, "	djnz	r1,00004$\n");
+  /* r0 is zero now. Clearing 256 byte assuming 128 byte devices don't mind */
+  fprintf (of, "00005$:	mov	@r0,a\n");   
+  fprintf (of, "	djnz	r0,00005$\n");
+  fprintf (of, ";	_mcs51_genRAMCLEAR() end\n");
+}
+
+/* Generate code to copy XINIT to XISEG */
+static void _mcs51_genXINIT (FILE * of) {
+  fprintf (of, ";	_mcs51_genXINIT() start\n");
+  fprintf (of, "	mov	r1,#l_XINIT\n");
+  fprintf (of, "	mov	a,r1\n");
+  fprintf (of, "	orl	a,#(l_XINIT >> 8)\n");
+  fprintf (of, "	jz	00003$\n");
+  fprintf (of, "	mov	r2,#((l_XINIT+255) >> 8)\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$:	djnz	r1,00001$\n");
+  fprintf (of, "	djnz	r2,00001$\n");
+  fprintf (of, "	mov	p2,#0xFF\n");
+  fprintf (of, "00003$:\n");
+  fprintf (of, ";	_mcs51_genXINIT() end\n");
+  
+  if (!getenv("SDCC_NOGENRAMCLEAR")) _mcs51_genRAMCLEAR (of);
+}
+
+
+/* Do CSE estimation */
+static bool cseCostEstimation (iCode *ic, iCode *pdic)
+{
+    operand *result = IC_RESULT(ic);
+    sym_link *result_type = operandType(result);
+
+    /* if it is a pointer then return ok for now */
+    if (IC_RESULT(ic) && IS_PTR(result_type)) return 1;
+    
+    /* if bitwise | add & subtract then no since mcs51 is pretty good at it 
+       so we will cse only if they are local (i.e. both ic & pdic belong to
+       the same basic block */
+    if (IS_BITWISE_OP(ic) || ic->op == '+' || ic->op == '-') {
+	/* then if they are the same Basic block then ok */
+	if (ic->eBBlockNum == pdic->eBBlockNum) return 1;
+	else return 0;
+    }
+	
+    /* for others it is cheaper to do the cse */
+    return 1;
+}
+
+/* Indicate which extended bit operations this port supports */
+static bool
+hasExtBitOp (int op, int size)
+{
+  if (op == RRC
+      || op == RLC
+      || op == GETHBIT
+      || (op == SWAP && size <= 2)
+     )
+    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
+    $l is the list of extra options that should be there somewhere...
+    MUST be terminated with a NULL.
+*/
+static const char *_linkCmd[] =
+{
+  "aslink", "-nf", "\"$1\"", NULL
 };
 
+/* $3 is replaced by assembler.debug_opts resp. port->assembler.plain_opts */
+static const char *_asmCmd[] =
+{
+  "asx8051", "$l", "$3", "\"$1.asm\"", NULL
+};
+
+/* Globals */
+PORT mcs51_port =
+{
+  TARGET_ID_MCS51,
+  "mcs51",
+  "MCU 8051",			/* Target name */
+  NULL,				/* Processor name */
+  {
+    glue,
+    TRUE,			/* Emit glue around main */
+    MODEL_SMALL | MODEL_LARGE,
+    MODEL_SMALL
+  },
+  {
+    _asmCmd,
+    NULL,
+    "-plosgffc",		/* Options with debug */
+    "-plosgff",			/* Options without debug */
+    0,
+    ".asm",
+    NULL			/* no do_assemble function */
+  },
+  {
+    _linkCmd,
+    NULL,
+    NULL,
+    ".rel",
+    1
+  },
+  {
+    _defaultRules
+  },
+  {
+	/* Sizes: char, short, int, long, ptr, fptr, gptr, bit, float, max */
+    1, 2, 2, 4, 1, 2, 3, 1, 4, 4
+  },
+  {
+    "XSEG    (XDATA)",
+    "STACK   (DATA)",
+    "CSEG    (CODE)",
+    "DSEG    (DATA)",
+    "ISEG    (DATA)",
+    "XSEG    (XDATA)",
+    "BSEG    (BIT)",
+    "RSEG    (DATA)",
+    "GSINIT  (CODE)",
+    "OSEG    (OVR,DATA)",
+    "GSFINAL (CODE)",
+    "HOME    (CODE)",
+    "XISEG   (XDATA)", // initialized xdata
+    "XINIT   (CODE)", // a code copy of xiseg
+    NULL,
+    NULL,
+    1
+  },
+  { NULL, NULL },
+  {
+    +1, 0, 4, 1, 1, 0
+  },
+    /* mcs51 has an 8 bit mul */
+  {
+    1, -1
+  },
+  "_",
+  _mcs51_init,
+  _mcs51_parseOptions,
+  NULL,
+  _mcs51_finaliseOptions,
+  _mcs51_setDefaultOptions,
+  mcs51_assignRegisters,
+  _mcs51_getRegName,
+  _mcs51_keywords,
+  _mcs51_genAssemblerPreamble,
+  NULL,				/* no genAssemblerEnd */
+  _mcs51_genIVT,
+  _mcs51_genXINIT,
+  _mcs51_reset_regparm,
+  _mcs51_regparm,
+  NULL,
+  NULL,
+  NULL,
+  hasExtBitOp,			/* hasExtBitOp */
+  oclsExpense,			/* oclsExpense */
+  FALSE,
+  TRUE,				/* little endian */
+  0,				/* leave lt */
+  0,				/* leave gt */
+  1,				/* transform <= to ! > */
+  1,				/* transform >= to ! < */
+  1,				/* transform != to !(a == b) */
+  0,				/* leave == */
+  FALSE,                        /* No array initializer support. */
+  cseCostEstimation,
+  NULL, 			/* no builtin functions */
+  GPOINTER,			/* treat unqualified pointers as "generic" pointers */
+  1,				/* reset labelKey to 1 */
+  1,				/* globals & local static allowed */
+  PORT_MAGIC
+};