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