sim/m32c/load.c

   1 /* load.c --- loading object files into the M32C simulator.
   2
   3 Copyright (C) 2005-2021 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 /* This must come before any other includes.  */
  22 #include "defs.h"
  23
  24 #include <stdlib.h>
  25 #include <stdio.h>
  26 #include <string.h>
  27
  28 #include "bfd.h"
  29
  30 #include "cpu.h"
  31 #include "mem.h"
  32 #include "load.h"
  33
  34 int (*decode_opcode) (void) = 0;
  35 int default_machine = 0;
  36
  37 void
  38 m32c_set_mach (unsigned long mach)
  39 {
  40   switch (mach)
  41     {
  42     case bfd_mach_m16c:
  43       m32c_set_cpu (CPU_M16C);
  44       if (verbose)
  45         fprintf (stderr, "[cpu: r8c/m16c]\n");
  46       break;
  47     case bfd_mach_m32c:
  48       m32c_set_cpu (CPU_M32C);
  49       if (verbose)
  50         fprintf (stderr, "[cpu: m32cm/m32c]\n");
  51       break;
  52     default:
  53       fprintf (stderr, "unknown m32c machine type 0x%lx\n", mach);
  54       decode_opcode = 0;
  55       break;
  56     }
  57 }
  58
  59 void
  60 m32c_load (bfd * prog)
  61 {
  62   asection *s;
  63   unsigned long mach = bfd_get_mach (prog);
  64   unsigned long highest_addr_loaded = 0;
  65
  66   if (mach == 0 && default_machine != 0)
  67     mach = default_machine;
  68
  69   m32c_set_mach (mach);
  70
  71   for (s = prog->sections; s; s = s->next)
  72     {
  73 #if 0
  74       /* This was a good idea until we started storing the RAM data in
  75          ROM, at which point everything was all messed up.  The code
  76          remains as a reminder.  */
  77       if ((s->flags & SEC_ALLOC) && !(s->flags & SEC_READONLY))
  78         {
  79           if (strcmp (bfd_section_name (s), ".stack"))
  80             {
  81               int secend =
  82                 bfd_section_size (s) + bfd_section_lma (s);
  83               if (heaptop < secend && bfd_section_lma (s) < 0x10000)
  84                 {
  85                   heaptop = heapbottom = secend;
  86                 }
  87             }
  88         }
  89 #endif
  90       if (s->flags & SEC_LOAD)
  91         {
  92           char *buf;
  93           bfd_size_type size;
  94           bfd_vma base;
  95
  96           size = bfd_section_size (s);
  97           if (size <= 0)
  98             continue;
  99
 100           base = bfd_section_lma (s);
 101           if (verbose)
 102             fprintf (stderr, "[load a=%08" BFD_VMA_FMT "x s=%08x %s]\n",
 103                      base, (int) size, bfd_section_name (s));
 104           buf = (char *) malloc (size);
 105           bfd_get_section_contents (prog, s, buf, 0, size);
 106           mem_put_blk (base, buf, size);
 107           free (buf);
 108           if (highest_addr_loaded < base + size - 1 && size >= 4)
 109             highest_addr_loaded = base + size - 1;
 110         }
 111     }
 112
 113   if (strcmp (bfd_get_target (prog), "srec") == 0)
 114     {
 115       heaptop = heapbottom = 0;
 116       switch (mach)
 117         {
 118         case bfd_mach_m16c:
 119           if (highest_addr_loaded > 0x10000)
 120             regs.r_pc = mem_get_si (0x000ffffc) & membus_mask;
 121           else
 122             regs.r_pc = mem_get_si (0x000fffc) & membus_mask;
 123           break;
 124         case bfd_mach_m32c:
 125           regs.r_pc = mem_get_si (0x00fffffc) & membus_mask;
 126           break;
 127         }
 128     }
 129   else
 130     regs.r_pc = prog->start_address;
 131   if (verbose)
 132     fprintf (stderr, "[start pc=%08x]\n", (unsigned int) regs.r_pc);
 133 }