(Ada) crash assigning to record component which is an array
[external/binutils.git] / gdb / i386-dicos-tdep.c
1 /* Target-dependent code for DICOS running on i386's, for GDB.
2
3    Copyright (C) 2008-2017 Free Software Foundation, Inc.
4
5    This file is part of GDB.
6
7    This program is free software; you can redistribute it and/or modify
8    it under the terms of the GNU General Public License as published by
9    the Free Software Foundation; either version 3 of the License, or
10    (at your option) any later version.
11
12    This program is distributed in the hope that it will be useful,
13    but WITHOUT ANY WARRANTY; without even the implied warranty of
14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15    GNU General Public License for more details.
16
17    You should have received a copy of the GNU General Public License
18    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
19
20 #include "defs.h"
21 #include "osabi.h"
22 #include "dicos-tdep.h"
23
24 static void
25 i386_dicos_init_abi (struct gdbarch_info info, struct gdbarch *gdbarch)
26 {
27   dicos_init_abi (gdbarch);
28 }
29
30 static enum gdb_osabi
31 i386_dicos_osabi_sniffer (bfd *abfd)
32 {
33   char *target_name = bfd_get_target (abfd);
34
35   /* On x86-DICOS, the Load Module's "header" section is 36 bytes.  */
36   if (strcmp (target_name, "elf32-i386") == 0
37       && dicos_load_module_p (abfd, 36))
38     return GDB_OSABI_DICOS;
39
40   return GDB_OSABI_UNKNOWN;
41 }
42
43 void
44 _initialize_i386_dicos_tdep (void)
45 {
46   gdbarch_register_osabi_sniffer (bfd_arch_i386, bfd_target_elf_flavour,
47                                   i386_dicos_osabi_sniffer);
48
49   gdbarch_register_osabi (bfd_arch_i386, 0, GDB_OSABI_DICOS,
50                           i386_dicos_init_abi);
51 }