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 | |
106 | ADDRESS_TO_POINTER (builtin_type_void_data_ptr, buf, frame->pc); | |
107 | return val; | |
108 | } | |
109 | } | |
110 | ||
111 | static struct value * | |
112 | value_of_builtin_frame_sp_reg (struct frame_info *frame) | |
113 | { | |
114 | #ifdef SP_REGNUM | |
115 | if (SP_REGNUM >= 0) | |
116 | return value_of_register (SP_REGNUM, frame); | |
117 | #endif | |
118 | error ("Standard register ``$sp'' is not available for this target"); | |
119 | } | |
120 | ||
121 | static struct value * | |
122 | value_of_builtin_frame_ps_reg (struct frame_info *frame) | |
123 | { | |
124 | #ifdef PS_REGNUM | |
125 | if (PS_REGNUM >= 0) | |
126 | return value_of_register (PS_REGNUM, frame); | |
127 | #endif | |
128 | error ("Standard register ``$ps'' is not available for this target"); | |
129 | } | |
130 | ||
131 | void | |
132 | _initialize_frame_reg (void) | |
133 | { | |
134 | /* FIXME: cagney/2002-02-08: At present the local builtin types | |
135 | can't be initialized using _initialize*() or gdbarch. Due mainly | |
136 | to non-multi-arch targets, GDB initializes things piece meal and, | |
137 | as a consequence can leave these types NULL. */ | |
138 | REGISTER_GDBARCH_SWAP (builtin_type_frame_reg); | |
139 | ||
140 | /* Frame based $fp, $pc, $sp and $ps. These only come into play | |
141 | when the target does not define its own version of these | |
142 | registers. */ | |
143 | add_builtin_reg ("fp", value_of_builtin_frame_fp_reg); | |
144 | add_builtin_reg ("pc", value_of_builtin_frame_pc_reg); | |
145 | add_builtin_reg ("sp", value_of_builtin_frame_sp_reg); | |
146 | add_builtin_reg ("ps", value_of_builtin_frame_ps_reg); | |
147 | ||
148 | /* NOTE: cagney/2002-04-05: For moment leave the $frame / $gdbframe | |
149 | / $gdb.frame disabled. It isn't yet clear which of the many | |
150 | options is the best. */ | |
151 | if (0) | |
152 | add_builtin_reg ("frame", value_of_builtin_frame_reg); | |
153 | } |