OpenCores
URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [gdb-5.3/] [gdb/] [alphafbsd-tdep.c] - Blame information for rev 1774

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 1181 sfurman
/* Target-dependent code for FreeBSD/Alpha.
2
   Copyright 2001, 2002 Free Software Foundation, Inc.
3
 
4
   This file is part of GDB.
5
 
6
   This program is free software; you can redistribute it and/or modify
7
   it under the terms of the GNU General Public License as published by
8
   the Free Software Foundation; either version 2 of the License, or
9
   (at your option) any later version.
10
 
11
   This program is distributed in the hope that it will be useful,
12
   but WITHOUT ANY WARRANTY; without even the implied warranty of
13
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14
   GNU General Public License for more details.
15
 
16
   You should have received a copy of the GNU General Public License
17
   along with this program; if not, write to the Free Software
18
   Foundation, Inc., 59 Temple Place - Suite 330,
19
   Boston, MA 02111-1307, USA.  */
20
 
21
#include "defs.h"
22
#include "value.h"
23
 
24
#include "alpha-tdep.h"
25
 
26
static int
27
alphafbsd_use_struct_convention (int gcc_p, struct type *type)
28
{
29
  enum type_code code;
30
  int i;
31
 
32
  /* All aggregate types that won't fit in a register must be returned
33
     in memory.  */
34
  if (TYPE_LENGTH (type) > REGISTER_SIZE)
35
    return 1;
36
 
37
  /* The only aggregate types that can be returned in a register are
38
     structs and unions.  Arrays must be returned in memory.  */
39
  code = TYPE_CODE (type);
40
  if (code != TYPE_CODE_STRUCT && code != TYPE_CODE_UNION)
41
    return 1;
42
 
43
  /* We need to check if this struct/union is "integer" like.  For
44
     this to be true, the offset of each adressable subfield must be
45
     zero.  Note that bit fields are not addressable.  */
46
  for (i = 0; i < TYPE_NFIELDS (type); i++)
47
    {
48
      /* If the field bitsize is non-zero, it isn't adressable.  */
49
      if (TYPE_FIELD_BITPOS (type, i) != 0
50
          && TYPE_FIELD_BITSIZE (type, i) == 0)
51
        return 1;
52
    }
53
 
54
  return 0;
55
}
56
 
57
static int
58
alphafbsd_pc_in_sigtramp (CORE_ADDR pc, char *func_name)
59
{
60
  /* FIXME */
61
  return 0;
62
}
63
 
64
static void
65
alphafbsd_init_abi (struct gdbarch_info info,
66
                    struct gdbarch *gdbarch)
67
{
68
  struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
69
 
70
  set_gdbarch_pc_in_sigtramp (gdbarch, alphafbsd_pc_in_sigtramp);
71
 
72
  set_gdbarch_use_struct_convention (gdbarch, alphafbsd_use_struct_convention);
73
 
74
  tdep->jb_pc = 2;
75
  tdep->jb_elt_size = 8;
76
}
77
 
78
void
79
_initialize_alphafbsd_tdep (void)
80
{
81
  gdbarch_register_osabi (bfd_arch_alpha, GDB_OSABI_FREEBSD_ELF,
82
                          alphafbsd_init_abi);
83
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.