sim/m32c/load.c

   1 /* load.c --- loading object files into the M32C simulator.
   2
   3 Copyright (C) 2005, 2007, 2008, 2009, 2010, 2011
   4 Free Software Foundation, Inc.
   5 Contributed by Red Hat, Inc.
   6
   7 This file is part of the GNU simulators.
   8
   9 This program is free software; you can redistribute it and/or modify
  10 it under the terms of the GNU General Public License as published by
  11 the Free Software Foundation; either version 3 of the License, or
  12 (at your option) any later version.
  13
  14 This program is distributed in the hope that it will be useful,
  15 but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17 GNU General Public License for more details.
  18
  19 You should have received a copy of the GNU General Public License
  20 along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
  21
  22
  23 #include <stdlib.h>
  24 #include <stdio.h>
  25 #include <string.h>
  26
  27 #include "bfd.h"
  28
  29 #include "cpu.h"
  30 #include "mem.h"
  31
  32 int (*decode_opcode) () = 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
  93           size = bfd_get_section_size (s);
  94           if (size <= 0)
  95             continue;
  96
  97           bfd_vma base = bfd_section_lma (prog, s);
  98           if (verbose)
  99             fprintf (stderr, "[load a=%08x s=%08x %s]\n",
 100                      (int) base, (int) size, bfd_get_section_name (prog, s));
 101           buf = (char *) malloc (size);
 102           bfd_get_section_contents (prog, s, buf, 0, size);
 103           mem_put_blk (base, buf, size);
 104           free (buf);
 105           if (highest_addr_loaded < base + size - 1 && size >= 4)
 106             highest_addr_loaded = base + size - 1;
 107         }
 108     }
 109
 110   if (strcmp (bfd_get_target (prog), "srec") == 0)
 111     {
 112       heaptop = heapbottom = 0;
 113       switch (mach)
 114         {
 115         case bfd_mach_m16c:
 116           if (highest_addr_loaded > 0x10000)
 117             regs.r_pc = mem_get_si (0x000ffffc) & membus_mask;
 118           else
 119             regs.r_pc = mem_get_si (0x000fffc) & membus_mask;
 120           break;
 121         case bfd_mach_m32c:
 122           regs.r_pc = mem_get_si (0x00fffffc) & membus_mask;
 123           break;
 124         }
 125     }
 126   else
 127     regs.r_pc = prog->start_address;
 128   if (verbose)
 129     fprintf (stderr, "[start pc=%08x]\n", (unsigned int) regs.r_pc);
 130 }