sim/m32c/load.c

   1 /* load.c --- loading object files into the M32C simulator.
   2
   3 Copyright (C) 2005-2018 Free Software Foundation, Inc.
   4 Contributed by Red Hat, Inc.
   5
   6 This file is part of the GNU simulators.
   7
   8 This program is free software; you can redistribute it and/or modify
   9 it under the terms of the GNU General Public License as published by
  10 the Free Software Foundation; either version 3 of the License, or
  11 (at your option) any later version.
  12
  13 This program is distributed in the hope that it will be useful,
  14 but WITHOUT ANY WARRANTY; without even the implied warranty of
  15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16 GNU General Public License for more details.
  17
  18 You should have received a copy of the GNU General Public License
  19 along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
  20
  21 #include "config.h"
  22 #include <stdlib.h>
  23 #include <stdio.h>
  24 #include <string.h>
  25
  26 #include "bfd.h"
  27
  28 #include "cpu.h"
  29 #include "mem.h"
  30 #include "load.h"
  31
  32 int (*decode_opcode) (void) = 0;
  33 int default_machine = 0;
  34
  35 void
  36 m32c_set_mach (unsigned long mach)
  37 {
  38   switch (mach)
  39     {
  40     case bfd_mach_m16c:
  41       m32c_set_cpu (CPU_M16C);
  42       if (verbose)
  43         fprintf (stderr, "[cpu: r8c/m16c]\n");
  44       break;
  45     case bfd_mach_m32c:
  46       m32c_set_cpu (CPU_M32C);
  47       if (verbose)
  48         fprintf (stderr, "[cpu: m32cm/m32c]\n");
  49       break;
  50     default:
  51       fprintf (stderr, "unknown m32c machine type 0x%lx\n", mach);
  52       decode_opcode = 0;
  53       break;
  54     }
  55 }
  56
  57 void
  58 m32c_load (bfd * prog)
  59 {
  60   asection *s;
  61   unsigned long mach = bfd_get_mach (prog);
  62   unsigned long highest_addr_loaded = 0;
  63
  64   if (mach == 0 && default_machine != 0)
  65     mach = default_machine;
  66
  67   m32c_set_mach (mach);
  68
  69   for (s = prog->sections; s; s = s->next)
  70     {
  71 #if 0
  72       /* This was a good idea until we started storing the RAM data in
  73          ROM, at which point everything was all messed up.  The code
  74          remains as a reminder.  */
  75       if ((s->flags & SEC_ALLOC) && !(s->flags & SEC_READONLY))
  76         {
  77           if (strcmp (bfd_get_section_name (prog, s), ".stack"))
  78             {
  79               int secend =
  80                 bfd_get_section_size (s) + bfd_section_lma (prog, s);
  81               if (heaptop < secend && bfd_section_lma (prog, s) < 0x10000)
  82                 {
  83                   heaptop = heapbottom = secend;
  84                 }
  85             }
  86         }
  87 #endif
  88       if (s->flags & SEC_LOAD)
  89         {
  90           char *buf;
  91           bfd_size_type size;
  92           bfd_vma base;
  93
  94           size = bfd_get_section_size (s);
  95           if (size <= 0)
  96             continue;
  97
  98           base = bfd_section_lma (prog, s);
  99           if (verbose)
 100             fprintf (stderr, "[load a=%08x s=%08x %s]\n",
 101                      (int) base, (int) size, bfd_get_section_name (prog, s));
 102           buf = (char *) malloc (size);
 103           bfd_get_section_contents (prog, s, buf, 0, size);
 104           mem_put_blk (base, buf, size);
 105           free (buf);
 106           if (highest_addr_loaded < base + size - 1 && size >= 4)
 107             highest_addr_loaded = base + size - 1;
 108         }
 109     }
 110
 111   if (strcmp (bfd_get_target (prog), "srec") == 0)
 112     {
 113       heaptop = heapbottom = 0;
 114       switch (mach)
 115         {
 116         case bfd_mach_m16c:
 117           if (highest_addr_loaded > 0x10000)
 118             regs.r_pc = mem_get_si (0x000ffffc) & membus_mask;
 119           else
 120             regs.r_pc = mem_get_si (0x000fffc) & membus_mask;
 121           break;
 122         case bfd_mach_m32c:
 123           regs.r_pc = mem_get_si (0x00fffffc) & membus_mask;
 124           break;
 125         }
 126     }
 127   else
 128     regs.r_pc = prog->start_address;
 129   if (verbose)
 130     fprintf (stderr, "[start pc=%08x]\n", (unsigned int) regs.r_pc);
 131 }