git.gag.com Git - fw/sdcc/blob - src/avr/main.c

   1 /** @file main.c
   2     avr specific general functions.
   3
   4     Note that mlh prepended _avr_ on the static functions.  Makes
   5     it easier to set a breakpoint using the debugger.
   6 */
   7 #include "common.h"
   8 #include "main.h"
   9 #include "ralloc.h"
  10 #include "gen.h"
  11
  12 static char _defaultRules[] = {
  13 #include "peeph.rul"
  14 };
  15
  16 /* list of key words used by msc51 */
  17 static char *_avr_keywords[] = {
  18         "at",
  19         "code",
  20         "critical",
  21         "eeprom",
  22         "interrupt",
  23         "sfr",
  24         "xdata",
  25         "_code",
  26         "_eeprom",
  27         "_generic",
  28         "_xdata",
  29         "sram",
  30         "_sram",
  31         "flash",
  32         "_flash",
  33         NULL
  34 };
  35
  36 static int regParmFlg = 0;      /* determine if we can register a parameter */
  37
  38 static void
  39 _avr_init (void)
  40 {
  41         asm_addTree (&asm_asxxxx_mapping);
  42 }
  43
  44 static void
  45 _avr_reset_regparm ()
  46 {
  47         regParmFlg = 0;
  48 }
  49
  50 static int
  51 _avr_regparm (sym_link * l)
  52 {
  53         /* the first eight bytes will be passed in
  54            registers r16-r23. but we won't split variables
  55            i.e. if not enough registers left to hold
  56            the parameter then the whole parameter along
  57            with rest of the parameters go onto the stack */
  58         if (regParmFlg < 8) {
  59                 int size;
  60                 if ((size = getSize (l)) > (8 - regParmFlg)) {
  61                         /* all remaining go on stack */
  62                         regParmFlg = 8;
  63                         return 0;
  64                 }
  65                 regParmFlg += size;
  66                 return 1;
  67         }
  68
  69         return 0;
  70 }
  71
  72 void avr_assignRegisters (eBBlock ** ebbs, int count);
  73
  74 static bool
  75 _avr_parseOptions (int *pargc, char **argv, int *i)
  76 {
  77         /* TODO: allow port-specific command line options to specify
  78          * segment names here.
  79          */
  80         return FALSE;
  81 }
  82
  83 static void
  84 _avr_finaliseOptions (void)
  85 {
  86         port->mem.default_local_map = port->mem.default_globl_map = xdata;
  87         /* change stack to be in far space */
  88         /* internal stack segment ;
  89            SFRSPACE       -   NO
  90            FAR-SPACE      -   YES
  91            PAGED          -   NO
  92            DIRECT-ACCESS  -   NO
  93            BIT-ACCESS     -   NO
  94            CODE-ACESS     -   NO
  95            DEBUG-NAME     -   'B'
  96            POINTER-TYPE   -   FPOINTER
  97          */
  98         istack =
  99                 allocMap (0, 1, 0, 0, 0, 0, options.stack_loc, ISTACK_NAME,
 100                           'B', FPOINTER);
 101
 102         /* also change xdata to be direct space since we can use lds/sts */
 103         xdata->direct = 1;
 104
 105 }
 106
 107 static void
 108 _avr_setDefaultOptions (void)
 109 {
 110         options.stackAuto = 1;
 111 }
 112
 113 static const char *
 114 _avr_getRegName (struct regs *reg)
 115 {
 116         if (reg)
 117                 return reg->name;
 118         return "err";
 119 }
 120
 121 static void
 122 _avr_genAssemblerPreamble (FILE * of)
 123 {
 124
 125 }
 126
 127 /* Generate interrupt vector table. */
 128 static int
 129 _avr_genIVT (FILE * of, symbol ** interrupts, int maxInterrupts)
 130 {
 131         return TRUE;
 132 }
 133
 134 /* Indicate which extended bit operations this port supports */
 135 static bool
 136 hasExtBitOp (int op, int size)
 137 {
 138   if (op == RRC
 139       || op == RLC
 140       || op == GETHBIT
 141      )
 142     return TRUE;
 143   else
 144     return FALSE;
 145 }
 146
 147 /* Indicate the expense of an access to an output storage class */
 148 static int
 149 oclsExpense (struct memmap *oclass)
 150 {
 151   if (IN_FARSPACE(oclass))
 152     return 1;
 153
 154   return 0;
 155 }
 156
 157 /** $1 is always the basename.
 158     $2 is always the output file.
 159     $3 varies
 160     $l is the list of extra options that should be there somewhere...
 161     MUST be terminated with a NULL.
 162 */
 163 static const char *_linkCmd[] = {
 164         "linkavr", "", "\"$1\"", NULL
 165 };
 166
 167 /* $3 is replaced by assembler.debug_opts resp. port->assembler.plain_opts */
 168 static const char *_asmCmd[] = {
 169         "asavr", "$l" , "$3", "\"$1.s\"", NULL
 170 };
 171
 172 /* Globals */
 173 PORT avr_port = {
 174         TARGET_ID_AVR,
 175         "avr",
 176         "ATMEL AVR",            /* Target name */
 177         NULL,                   /* processor */
 178         {
 179          glue,
 180          TRUE,                  /* Emit glue around main */
 181          MODEL_LARGE | MODEL_SMALL,
 182          MODEL_SMALL
 183         },
 184         {
 185          _asmCmd,
 186          NULL,
 187          "-plosgff",            /* Options with debug */
 188          "-plosgff",            /* Options without debug */
 189          0,
 190         ".s",
 191          NULL,                  /* no do_assemble */
 192         },
 193         {
 194          _linkCmd,
 195          NULL,
 196          NULL,
 197          ".rel",
 198          1},
 199         {
 200          _defaultRules},
 201         {
 202          /* Sizes: char, short, int, long, ptr, fptr, gptr, bit, float, max */
 203          1, 2, 2, 4, 2, 2, 3, 1, 4, 4},
 204         {
 205          "XSEG",
 206          "STACK",
 207          "CSEG",
 208          "DSEG",
 209          "ISEG",
 210          "XSEG",
 211          "BSEG",
 212          "RSEG",
 213          "GSINIT",
 214          "OSEG",
 215          "GSFINAL",
 216          "HOME",
 217          NULL, // initialized xdata
 218          NULL, // a code copy of xiseg
 219          NULL,
 220          NULL,
 221          0,
 222          },
 223         { NULL, NULL },
 224         {
 225          -1, 1, 4, 1, 1, 0},
 226         /* avr has an 8 bit mul */
 227         {
 228           1, -1
 229         },
 230         {
 231           avr_emitDebuggerSymbol
 232         },
 233         {
 234           255/3,      /* maxCount */
 235           3,          /* sizeofElement */
 236           /* The rest of these costs are bogus. They approximate */
 237           /* the behavior of src/SDCCicode.c 1.207 and earlier.  */
 238           {4,4,4},    /* sizeofMatchJump[] */
 239           {0,0,0},    /* sizeofRangeCompare[] */
 240           0,          /* sizeofSubtract */
 241           3,          /* sizeofDispatch */
 242         },
 243         "_",
 244         _avr_init,
 245         _avr_parseOptions,
 246         NULL,
 247         NULL,
 248         _avr_finaliseOptions,
 249         _avr_setDefaultOptions,
 250         avr_assignRegisters,
 251         _avr_getRegName,
 252         _avr_keywords,
 253         _avr_genAssemblerPreamble,
 254         NULL,                           /* no genAssemblerEnd */
 255         _avr_genIVT,
 256         NULL, // _avr_genXINIT
 257         NULL,                   /* genInitStartup */
 258         _avr_reset_regparm,
 259         _avr_regparm,
 260         NULL,
 261         NULL,
 262         NULL,
 263         hasExtBitOp,            /* hasExtBitOp */
 264         oclsExpense,            /* oclsExpense */
 265         FALSE,
 266         TRUE,                   /* little endian */
 267         0,                      /* leave lt */
 268         1,                      /* transform gt ==> not le */
 269         0,                      /* leave le */
 270         0,                      /* leave ge */
 271         0,                      /* leave !=  */
 272         0,                      /* leave == */
 273         FALSE,                  /* No array initializer support. */
 274         0,                      /* no CSE cost estimation yet */
 275         NULL,                   /* no builtin functions */
 276         GPOINTER,               /* treat unqualified pointers as "generic" pointers */
 277         1,                      /* reset labelKey to 1 */
 278         1,                      /* globals & local static allowed */
 279         PORT_MAGIC
 280 };