1 /* Native support for Motorola 88k running Harris CX/UX.
2 Copyright 1988, 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2000,
3 2001 Free Software Foundation, Inc.
5 This file is part of GDB.
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 2 of the License, or
10 (at your option) any later version.
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.
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 59 Temple Place - Suite 330,
20 Boston, MA 02111-1307, USA. */
26 #include <sys/types.h>
27 #include <sys/param.h>
39 #ifndef USER /* added to support BCS ptrace_user */
40 #define USER ptrace_user
42 #include <sys/ioctl.h>
51 #include <sys/ptrace.h>
53 /* CX/UX provides them already, but as word offsets instead of char offsets */
54 #define SXIP_OFFSET (PT_SXIP * 4)
55 #define SNIP_OFFSET (PT_SNIP * 4)
56 #define SFIP_OFFSET (PT_SFIP * 4)
57 #define PSR_OFFSET (PT_PSR * sizeof(int))
58 #define FPSR_OFFSET (PT_FPSR * sizeof(int))
59 #define FPCR_OFFSET (PT_FPCR * sizeof(int))
61 #define XREGADDR(r) (((char *)&u.pt_x0-(char *)&u) + \
62 ((r)-X0_REGNUM)*sizeof(X_REGISTER_RAW_TYPE))
64 extern int have_symbol_file_p ();
66 extern jmp_buf stack_jmp
;
71 fetch_inferior_registers (int regno
)
73 register unsigned int regaddr
;
74 char buf
[MAX_REGISTER_RAW_SIZE
];
80 offset
= (char *) &u
.pt_r0
- (char *) &u
;
81 regaddr
= offset
; /* byte offset to r0; */
83 /* offset = ptrace (3, inferior_pid, (PTRACE_ARG3_TYPE) offset, 0) - KERNEL_U_ADDR; */
84 for (regno
= 0; regno
< PC_REGNUM
; regno
++)
86 /*regaddr = register_addr (regno, offset); */
89 for (i
= 0; i
< REGISTER_RAW_SIZE (regno
); i
+= sizeof (int))
91 *(int *) &buf
[i
] = ptrace (3, inferior_pid
,
92 (PTRACE_ARG3_TYPE
) regaddr
, 0);
93 regaddr
+= sizeof (int);
95 supply_register (regno
, buf
);
97 /* now load up registers 32-37; special pc registers */
98 *(int *) &buf
[0] = ptrace (3, inferior_pid
,
99 (PTRACE_ARG3_TYPE
) PSR_OFFSET
, 0);
100 supply_register (PSR_REGNUM
, buf
);
101 *(int *) &buf
[0] = ptrace (3, inferior_pid
,
102 (PTRACE_ARG3_TYPE
) FPSR_OFFSET
, 0);
103 supply_register (FPSR_REGNUM
, buf
);
104 *(int *) &buf
[0] = ptrace (3, inferior_pid
,
105 (PTRACE_ARG3_TYPE
) FPCR_OFFSET
, 0);
106 supply_register (FPCR_REGNUM
, buf
);
107 *(int *) &buf
[0] = ptrace (3, inferior_pid
,
108 (PTRACE_ARG3_TYPE
) SXIP_OFFSET
, 0);
109 supply_register (SXIP_REGNUM
, buf
);
110 *(int *) &buf
[0] = ptrace (3, inferior_pid
,
111 (PTRACE_ARG3_TYPE
) SNIP_OFFSET
, 0);
112 supply_register (SNIP_REGNUM
, buf
);
113 *(int *) &buf
[0] = ptrace (3, inferior_pid
,
114 (PTRACE_ARG3_TYPE
) SFIP_OFFSET
, 0);
115 supply_register (SFIP_REGNUM
, buf
);
117 if (target_is_m88110
)
119 for (regaddr
= XREGADDR (X0_REGNUM
), regno
= X0_REGNUM
;
121 regno
++, regaddr
+= 16)
123 X_REGISTER_RAW_TYPE xval
;
125 *(int *) &xval
.w1
= ptrace (3, inferior_pid
,
126 (PTRACE_ARG3_TYPE
) regaddr
, 0);
127 *(int *) &xval
.w2
= ptrace (3, inferior_pid
,
128 (PTRACE_ARG3_TYPE
) (regaddr
+ 4), 0);
129 *(int *) &xval
.w3
= ptrace (3, inferior_pid
,
130 (PTRACE_ARG3_TYPE
) (regaddr
+ 8), 0);
131 *(int *) &xval
.w4
= ptrace (3, inferior_pid
,
132 (PTRACE_ARG3_TYPE
) (regaddr
+ 12), 0);
133 supply_register (regno
, (void *) &xval
);
138 /* Store our register values back into the inferior.
139 If REGNO is -1, do this for all registers.
140 Otherwise, REGNO specifies which register (so we can save time). */
143 store_inferior_registers (int regno
)
145 register unsigned int regaddr
;
150 unsigned int offset
= (char *) &u
.pt_r0
- (char *) &u
;
154 /* Don't try to deal with EXIP_REGNUM or ENIP_REGNUM, because I think either
155 svr3 doesn't run on an 88110, or the kernel isolates the different (not
156 completely sure this is true, but seems to be. */
159 /* regaddr = register_addr (regno, offset); */
160 if (regno
< PC_REGNUM
)
162 regaddr
= offset
+ regno
* sizeof (int);
164 ptrace (6, inferior_pid
,
165 (PTRACE_ARG3_TYPE
) regaddr
, read_register (regno
));
168 sprintf (buf
, "writing register number %d", regno
);
169 perror_with_name (buf
);
172 else if (regno
== PSR_REGNUM
)
173 ptrace (6, inferior_pid
,
174 (PTRACE_ARG3_TYPE
) PSR_OFFSET
, read_register (regno
));
175 else if (regno
== FPSR_REGNUM
)
176 ptrace (6, inferior_pid
,
177 (PTRACE_ARG3_TYPE
) FPSR_OFFSET
, read_register (regno
));
178 else if (regno
== FPCR_REGNUM
)
179 ptrace (6, inferior_pid
,
180 (PTRACE_ARG3_TYPE
) FPCR_OFFSET
, read_register (regno
));
181 else if (regno
== SXIP_REGNUM
)
182 ptrace (6, inferior_pid
,
183 (PTRACE_ARG3_TYPE
) SXIP_OFFSET
, read_register (regno
));
184 else if (regno
== SNIP_REGNUM
)
185 ptrace (6, inferior_pid
,
186 (PTRACE_ARG3_TYPE
) SNIP_OFFSET
, read_register (regno
));
187 else if (regno
== SFIP_REGNUM
)
188 ptrace (6, inferior_pid
,
189 (PTRACE_ARG3_TYPE
) SFIP_OFFSET
, read_register (regno
));
190 else if (target_is_m88110
&& regno
< NUM_REGS
)
192 X_REGISTER_RAW_TYPE xval
;
194 read_register_bytes (REGISTER_BYTE (regno
), (char *) &xval
,
195 sizeof (X_REGISTER_RAW_TYPE
));
196 regaddr
= XREGADDR (regno
);
197 ptrace (6, inferior_pid
, (PTRACE_ARG3_TYPE
) regaddr
, xval
.w1
);
198 ptrace (6, inferior_pid
, (PTRACE_ARG3_TYPE
) regaddr
+ 4, xval
.w2
);
199 ptrace (6, inferior_pid
, (PTRACE_ARG3_TYPE
) regaddr
+ 8, xval
.w3
);
200 ptrace (6, inferior_pid
, (PTRACE_ARG3_TYPE
) regaddr
+ 12, xval
.w4
);
203 printf_unfiltered ("Bad register number for store_inferior routine\n");
207 for (regno
= 0; regno
< PC_REGNUM
; regno
++)
209 /* regaddr = register_addr (regno, offset); */
211 regaddr
= offset
+ regno
* sizeof (int);
212 ptrace (6, inferior_pid
,
213 (PTRACE_ARG3_TYPE
) regaddr
, read_register (regno
));
216 sprintf (buf
, "writing register number %d", regno
);
217 perror_with_name (buf
);
220 ptrace (6, inferior_pid
,
221 (PTRACE_ARG3_TYPE
) PSR_OFFSET
, read_register (regno
));
222 ptrace (6, inferior_pid
,
223 (PTRACE_ARG3_TYPE
) FPSR_OFFSET
, read_register (regno
));
224 ptrace (6, inferior_pid
,
225 (PTRACE_ARG3_TYPE
) FPCR_OFFSET
, read_register (regno
));
226 ptrace (6, inferior_pid
,
227 (PTRACE_ARG3_TYPE
) SXIP_OFFSET
, read_register (SXIP_REGNUM
));
228 ptrace (6, inferior_pid
,
229 (PTRACE_ARG3_TYPE
) SNIP_OFFSET
, read_register (SNIP_REGNUM
));
230 ptrace (6, inferior_pid
,
231 (PTRACE_ARG3_TYPE
) SFIP_OFFSET
, read_register (SFIP_REGNUM
));
232 if (target_is_m88110
)
234 for (regno
= X0_REGNUM
; regno
< NUM_REGS
; regno
++)
236 X_REGISTER_RAW_TYPE xval
;
238 read_register_bytes (REGISTER_BYTE (regno
), (char *) &xval
,
239 sizeof (X_REGISTER_RAW_TYPE
));
240 regaddr
= XREGADDR (regno
);
241 ptrace (6, inferior_pid
, (PTRACE_ARG3_TYPE
) regaddr
, xval
.w1
);
242 ptrace (6, inferior_pid
, (PTRACE_ARG3_TYPE
) (regaddr
+ 4), xval
.w2
);
243 ptrace (6, inferior_pid
, (PTRACE_ARG3_TYPE
) (regaddr
+ 8), xval
.w3
);
244 ptrace (6, inferior_pid
, (PTRACE_ARG3_TYPE
) (regaddr
+ 12), xval
.w4
);
250 /* blockend is the address of the end of the user structure */
252 m88k_register_u_addr (int blockend
, int regnum
)
255 int ustart
= blockend
- sizeof (struct USER
);
257 if (regnum
< PSR_REGNUM
)
258 return (ustart
+ ((int) &u
.pt_r0
- (int) &u
) +
259 REGISTER_SIZE
* regnum
);
260 else if (regnum
== PSR_REGNUM
)
261 return (ustart
+ ((int) &u
.pt_psr
) - (int) &u
);
262 else if (regnum
== FPSR_REGNUM
)
263 return (ustart
+ ((int) &u
.pt_fpsr
) - (int) &u
);
264 else if (regnum
== FPCR_REGNUM
)
265 return (ustart
+ ((int) &u
.pt_fpcr
) - (int) &u
);
266 else if (regnum
== SXIP_REGNUM
)
267 return (ustart
+ SXIP_OFFSET
);
268 else if (regnum
== SNIP_REGNUM
)
269 return (ustart
+ SNIP_OFFSET
);
270 else if (regnum
== SFIP_REGNUM
)
271 return (ustart
+ SFIP_OFFSET
);
272 else if (target_is_m88110
)
273 return (ustart
+ ((int) &u
.pt_x0
- (int) &u
) + /* Must be X register */
274 sizeof (u
.pt_x0
) * (regnum
- X0_REGNUM
));
276 return (blockend
+ REGISTER_SIZE
* regnum
);
281 #include <sys/procfs.h>
283 /* Prototypes for supply_gregset etc. */
286 /* Given a pointer to a general register set in /proc format (gregset_t *),
287 unpack the register contents and supply them as gdb's idea of the current
291 supply_gregset (gregset_t
*gregsetp
)
294 register greg_t
*regp
= (greg_t
*) gregsetp
;
296 for (regi
= 0; regi
<= SP_REGNUM
; regi
++)
297 supply_register (regi
, (char *) (regp
+ regi
));
299 supply_register (SXIP_REGNUM
, (char *) (regp
+ R_XIP
));
300 supply_register (SNIP_REGNUM
, (char *) (regp
+ R_NIP
));
301 supply_register (SFIP_REGNUM
, (char *) (regp
+ R_FIP
));
302 supply_register (PSR_REGNUM
, (char *) (regp
+ R_PSR
));
303 supply_register (FPSR_REGNUM
, (char *) (regp
+ R_FPSR
));
304 supply_register (FPCR_REGNUM
, (char *) (regp
+ R_FPCR
));
308 fill_gregset (gregset_t
*gregsetp
, int regno
)
311 register greg_t
*regp
= (greg_t
*) gregsetp
;
313 for (regi
= 0; regi
<= R_R31
; regi
++)
314 if ((regno
== -1) || (regno
== regi
))
315 *(regp
+ regi
) = *(int *) ®isters
[REGISTER_BYTE (regi
)];
317 if ((regno
== -1) || (regno
== SXIP_REGNUM
))
318 *(regp
+ R_XIP
) = *(int *) ®isters
[REGISTER_BYTE (SXIP_REGNUM
)];
319 if ((regno
== -1) || (regno
== SNIP_REGNUM
))
320 *(regp
+ R_NIP
) = *(int *) ®isters
[REGISTER_BYTE (SNIP_REGNUM
)];
321 if ((regno
== -1) || (regno
== SFIP_REGNUM
))
322 *(regp
+ R_FIP
) = *(int *) ®isters
[REGISTER_BYTE (SFIP_REGNUM
)];
323 if ((regno
== -1) || (regno
== PSR_REGNUM
))
324 *(regp
+ R_PSR
) = *(int *) ®isters
[REGISTER_BYTE (PSR_REGNUM
)];
325 if ((regno
== -1) || (regno
== FPSR_REGNUM
))
326 *(regp
+ R_FPSR
) = *(int *) ®isters
[REGISTER_BYTE (FPSR_REGNUM
)];
327 if ((regno
== -1) || (regno
== FPCR_REGNUM
))
328 *(regp
+ R_FPCR
) = *(int *) ®isters
[REGISTER_BYTE (FPCR_REGNUM
)];
331 #endif /* USE_PROC_FS */
333 /* This support adds the equivalent of adb's % command. When
334 the `add-shared-symbol-files' command is given, this routine scans
335 the dynamic linker's link map and reads the minimal symbols
336 from each shared object file listed in the map. */
340 unsigned long l_addr
; /* address at which object is mapped */
341 char *l_name
; /* full name of loaded object */
342 void *l_ld
; /* dynamic structure of object */
343 struct link_map
*l_next
; /* next link object */
344 struct link_map
*l_prev
; /* previous link object */
347 #define LINKS_MAP_POINTER "_ld_tail"
348 #define LIBC_FILE "/usr/lib/libc.so.1"
349 #define SHARED_OFFSET 0xf0001000
352 #define PATH_MAX 1023 /* maximum size of path name on OS */
356 add_shared_symbol_files (void)
359 struct link_map
*ld_map
, *lm
, lms
;
360 struct minimal_symbol
*minsym
;
361 struct objfile
*objfile
;
366 warning ("The program has not yet been started.");
370 objfile
= symbol_file_add (LIBC_FILE
, 0, NULL
, 0, OBJF_READNOW
);
371 minsym
= lookup_minimal_symbol (LINKS_MAP_POINTER
, objfile
);
373 ld_map
= (struct link_map
*)
374 read_memory_integer (((int) SYMBOL_VALUE_ADDRESS (minsym
) + SHARED_OFFSET
), 4);
380 read_memory ((CORE_ADDR
) lm
, (char *) &lms
, sizeof (struct link_map
));
383 if (target_read_string ((CORE_ADDR
) lms
.l_name
, &path_name
,
384 PATH_MAX
, &local_errno
))
386 struct section_addr_info section_addrs
;
387 memset (§ion_addrs
, 0, sizeof (section_addrs
));
388 section_addrs
.other
[0].addr
= lms
.l_addr
;
389 section_addrs
.other
[0].name
= ".text";
390 symbol_file_add (path_name
, 1, §ion_addrs
, 0, 0);
394 /* traverse links in reverse order so that we get the
395 the symbols the user actually gets. */
399 /* Getting new symbols may change our opinion about what is
401 reinit_frame_cache ();
406 #include <sys/regset.h>
409 m88k_harris_core_register_addr (int regno
, int reg_ptr
)
411 unsigned int word_offset
;
416 word_offset
= R_EPSR
;
419 word_offset
= R_FPSR
;
422 word_offset
= R_FPCR
;
425 word_offset
= R_EXIP
;
428 word_offset
= R_ENIP
;
431 word_offset
= R_EFIP
;
434 if (regno
<= FP_REGNUM
)
437 word_offset
= ((regno
- X0_REGNUM
) * 4);
439 return (word_offset
* 4);
445 _initialize_m88k_nat (void)
448 /* Enable 88110 support, as we don't support the 88100 under ES/MP. */
450 target_is_m88110
= 1;
451 #elif defined(_CX_UX)
452 /* Determine whether we're running on an 88100 or an 88110. */
453 target_is_m88110
= (sinfo (SYSMACHINE
, 0) == SYS5800
);
458 /* Given a pointer to a general register set in /proc format (gregset_t *),
459 unpack the register contents and supply them as gdb's idea of the current
463 supply_gregset (gregset_t
*gregsetp
)
466 register greg_t
*regp
= (greg_t
*) gregsetp
;
468 for (regi
= 0; regi
< R_R31
; regi
++)
470 supply_register (regi
, (char *) (regp
+ regi
));
472 supply_register (PSR_REGNUM
, (char *) (regp
+ R_EPSR
));
473 supply_register (FPSR_REGNUM
, (char *) (regp
+ R_FPSR
));
474 supply_register (FPCR_REGNUM
, (char *) (regp
+ R_FPCR
));
475 supply_register (SXIP_REGNUM
, (char *) (regp
+ R_EXIP
));
476 supply_register (SNIP_REGNUM
, (char *) (regp
+ R_ENIP
));
477 supply_register (SFIP_REGNUM
, (char *) (regp
+ R_EFIP
));
480 /* Given a pointer to a floating point register set in /proc format
481 (fpregset_t *), unpack the register contents and supply them as gdb's
482 idea of the current floating point register values. */
485 supply_fpregset (fpregset_t
*fpregsetp
)
490 for (regi
= FP0_REGNUM
; regi
<= FPLAST_REGNUM
; regi
++)
492 from
= (char *) &((*fpregsetp
)[regi
- FP0_REGNUM
]);
493 supply_register (regi
, from
);
501 #include <sys/regset.h>
504 m88k_harris_core_register_addr (int regno
, int reg_ptr
)
506 unsigned int word_offset
;
514 word_offset
= R_FPSR
;
517 word_offset
= R_FPCR
;
529 if (regno
<= FP_REGNUM
)
532 word_offset
= ((regno
- X0_REGNUM
) * 4) + R_X0
;
534 return (word_offset
* 4);