Commit | Line | Data |
---|---|---|
0406ec40 AC |
1 | /* Builtin frame register, for GDB, the GNU debugger. |
2 | ||
3 | Copyright 2002 Free Software Foundation, Inc. | |
4 | ||
5 | Contributed by Red Hat. | |
6 | ||
7 | This file is part of GDB. | |
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 2 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, write to the Free Software | |
21 | Foundation, Inc., 59 Temple Place - Suite 330, | |
22 | Boston, MA 02111-1307, USA. */ | |
23 | ||
24 | #include "defs.h" | |
25 | #include "builtin-regs.h" | |
26 | #include "frame.h" | |
27 | #include "gdbtypes.h" | |
28 | #include "value.h" | |
b66d6d2e | 29 | #include "gdb_string.h" |
0406ec40 AC |
30 | |
31 | /* Types that describe the various builtin registers. */ | |
32 | ||
33 | static struct type *builtin_type_frame_reg; | |
34 | ||
35 | /* Constructors for those types. */ | |
36 | ||
37 | static void | |
38 | build_builtin_type_frame_reg (void) | |
39 | { | |
40 | /* $frame. */ | |
41 | if (builtin_type_frame_reg == NULL) | |
42 | { | |
43 | #if 0 | |
44 | struct frame | |
45 | { | |
46 | void *base; | |
47 | }; | |
48 | #endif | |
49 | builtin_type_frame_reg = init_composite_type ("frame", TYPE_CODE_STRUCT); | |
50 | append_composite_type_field (builtin_type_frame_reg, "base", | |
51 | builtin_type_void_data_ptr); | |
52 | } | |
53 | } | |
54 | ||
55 | static struct value * | |
56 | value_of_builtin_frame_reg (struct frame_info *frame) | |
57 | { | |
58 | struct value *val; | |
59 | char *buf; | |
60 | build_builtin_type_frame_reg (); | |
61 | val = allocate_value (builtin_type_frame_reg); | |
62 | VALUE_LVAL (val) = not_lval; | |
63 | buf = VALUE_CONTENTS_RAW (val); | |
64 | memset (buf, TYPE_LENGTH (VALUE_TYPE (val)), 0); | |
65 | /* frame.base. */ | |
66 | if (frame != NULL) | |
8b36eed8 AC |
67 | ADDRESS_TO_POINTER (builtin_type_void_data_ptr, buf, |
68 | get_frame_base (frame)); | |
0406ec40 AC |
69 | buf += TYPE_LENGTH (builtin_type_void_data_ptr); |
70 | /* frame.XXX. */ | |
71 | return val; | |
72 | } | |
73 | ||
74 | static struct value * | |
75 | value_of_builtin_frame_fp_reg (struct frame_info *frame) | |
76 | { | |
77 | #ifdef FP_REGNUM | |
78 | if (FP_REGNUM >= 0) | |
79 | return value_of_register (FP_REGNUM, frame); | |
80 | #endif | |
81 | { | |
82 | struct value *val = allocate_value (builtin_type_void_data_ptr); | |
83 | char *buf = VALUE_CONTENTS_RAW (val); | |
84 | if (frame == NULL) | |
85 | memset (buf, TYPE_LENGTH (VALUE_TYPE (val)), 0); | |
86 | else | |
8b36eed8 AC |
87 | ADDRESS_TO_POINTER (builtin_type_void_data_ptr, buf, |
88 | get_frame_base (frame)); | |
0406ec40 AC |
89 | return val; |
90 | } | |
91 | } | |
92 | ||
93 | static struct value * | |
94 | value_of_builtin_frame_pc_reg (struct frame_info *frame) | |
95 | { | |
96 | #ifdef PC_REGNUM | |
97 | if (PC_REGNUM >= 0) | |
98 | return value_of_register (PC_REGNUM, frame); | |
99 | #endif | |
100 | { | |
101 | struct value *val = allocate_value (builtin_type_void_data_ptr); | |
102 | char *buf = VALUE_CONTENTS_RAW (val); | |
103 | if (frame == NULL) | |
104 | memset (buf, TYPE_LENGTH (VALUE_TYPE (val)), 0); | |
105 | else | |
bdd78e62 AC |
106 | ADDRESS_TO_POINTER (builtin_type_void_data_ptr, buf, |
107 | get_frame_pc (frame)); | |
0406ec40 AC |
108 | return val; |
109 | } | |
110 | } | |
111 | ||
112 | static struct value * | |
113 | value_of_builtin_frame_sp_reg (struct frame_info *frame) | |
114 | { | |
115 | #ifdef SP_REGNUM | |
116 | if (SP_REGNUM >= 0) | |
117 | return value_of_register (SP_REGNUM, frame); | |
118 | #endif | |
119 | error ("Standard register ``$sp'' is not available for this target"); | |
120 | } | |
121 | ||
122 | static struct value * | |
123 | value_of_builtin_frame_ps_reg (struct frame_info *frame) | |
124 | { | |
125 | #ifdef PS_REGNUM | |
126 | if (PS_REGNUM >= 0) | |
127 | return value_of_register (PS_REGNUM, frame); | |
128 | #endif | |
129 | error ("Standard register ``$ps'' is not available for this target"); | |
130 | } | |
131 | ||
132 | void | |
133 | _initialize_frame_reg (void) | |
134 | { | |
135 | /* FIXME: cagney/2002-02-08: At present the local builtin types | |
136 | can't be initialized using _initialize*() or gdbarch. Due mainly | |
137 | to non-multi-arch targets, GDB initializes things piece meal and, | |
138 | as a consequence can leave these types NULL. */ | |
139 | REGISTER_GDBARCH_SWAP (builtin_type_frame_reg); | |
140 | ||
141 | /* Frame based $fp, $pc, $sp and $ps. These only come into play | |
142 | when the target does not define its own version of these | |
143 | registers. */ | |
144 | add_builtin_reg ("fp", value_of_builtin_frame_fp_reg); | |
145 | add_builtin_reg ("pc", value_of_builtin_frame_pc_reg); | |
146 | add_builtin_reg ("sp", value_of_builtin_frame_sp_reg); | |
147 | add_builtin_reg ("ps", value_of_builtin_frame_ps_reg); | |
148 | ||
149 | /* NOTE: cagney/2002-04-05: For moment leave the $frame / $gdbframe | |
150 | / $gdb.frame disabled. It isn't yet clear which of the many | |
151 | options is the best. */ | |
152 | if (0) | |
153 | add_builtin_reg ("frame", value_of_builtin_frame_reg); | |
154 | } |