1 /* load.c --- loading object files into the M32C simulator. 2 3 Copyright (C) 2005-2015 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 31 int (*decode_opcode) () = 0; 32 int default_machine = 0; 33 34 void 35 m32c_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 56 void 57 m32c_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