1 /* Native support for Motorola 88k running Harris CX/UX.
2 Copyright 1988, 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc.
4 This file is part of GDB.
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.
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.
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. */
25 #include <sys/types.h>
26 #include <sys/param.h>
37 #ifndef USER /* added to support BCS ptrace_user */
38 #define USER ptrace_user
40 #include <sys/ioctl.h>
49 #include <sys/ptrace.h>
51 /* CX/UX provides them already, but as word offsets instead of char offsets */
52 #define SXIP_OFFSET (PT_SXIP * 4)
53 #define SNIP_OFFSET (PT_SNIP * 4)
54 #define SFIP_OFFSET (PT_SFIP * 4)
55 #define PSR_OFFSET (PT_PSR * sizeof(int))
56 #define FPSR_OFFSET (PT_FPSR * sizeof(int))
57 #define FPCR_OFFSET (PT_FPCR * sizeof(int))
59 #define XREGADDR(r) (((char *)&u.pt_x0-(char *)&u) + \
60 ((r)-X0_REGNUM)*sizeof(X_REGISTER_RAW_TYPE))
62 extern int have_symbol_file_p ();
64 extern jmp_buf stack_jmp
;
69 fetch_inferior_registers (regno
)
70 int regno
; /* Original value discarded */
72 register unsigned int regaddr
;
73 char buf
[MAX_REGISTER_RAW_SIZE
];
79 offset
= (char *) &u
.pt_r0
- (char *) &u
;
80 regaddr
= offset
; /* byte offset to r0; */
82 /* offset = ptrace (3, inferior_pid, (PTRACE_ARG3_TYPE) offset, 0) - KERNEL_U_ADDR; */
83 for (regno
= 0; regno
< PC_REGNUM
; regno
++)
85 /*regaddr = register_addr (regno, offset); */
88 for (i
= 0; i
< REGISTER_RAW_SIZE (regno
); i
+= sizeof (int))
90 *(int *) &buf
[i
] = ptrace (3, inferior_pid
,
91 (PTRACE_ARG3_TYPE
) regaddr
, 0);
92 regaddr
+= sizeof (int);
94 supply_register (regno
, buf
);
96 /* now load up registers 32-37; special pc registers */
97 *(int *) &buf
[0] = ptrace (3, inferior_pid
,
98 (PTRACE_ARG3_TYPE
) PSR_OFFSET
, 0);
99 supply_register (PSR_REGNUM
, buf
);
100 *(int *) &buf
[0] = ptrace (3, inferior_pid
,
101 (PTRACE_ARG3_TYPE
) FPSR_OFFSET
, 0);
102 supply_register (FPSR_REGNUM
, buf
);
103 *(int *) &buf
[0] = ptrace (3, inferior_pid
,
104 (PTRACE_ARG3_TYPE
) FPCR_OFFSET
, 0);
105 supply_register (FPCR_REGNUM
, buf
);
106 *(int *) &buf
[0] = ptrace (3, inferior_pid
,
107 (PTRACE_ARG3_TYPE
) SXIP_OFFSET
, 0);
108 supply_register (SXIP_REGNUM
, buf
);
109 *(int *) &buf
[0] = ptrace (3, inferior_pid
,
110 (PTRACE_ARG3_TYPE
) SNIP_OFFSET
, 0);
111 supply_register (SNIP_REGNUM
, buf
);
112 *(int *) &buf
[0] = ptrace (3, inferior_pid
,
113 (PTRACE_ARG3_TYPE
) SFIP_OFFSET
, 0);
114 supply_register (SFIP_REGNUM
, buf
);
116 if (target_is_m88110
)
118 for (regaddr
= XREGADDR (X0_REGNUM
), regno
= X0_REGNUM
;
120 regno
++, regaddr
+= 16)
122 X_REGISTER_RAW_TYPE xval
;
124 *(int *) &xval
.w1
= ptrace (3, inferior_pid
,
125 (PTRACE_ARG3_TYPE
) regaddr
, 0);
126 *(int *) &xval
.w2
= ptrace (3, inferior_pid
,
127 (PTRACE_ARG3_TYPE
) (regaddr
+ 4), 0);
128 *(int *) &xval
.w3
= ptrace (3, inferior_pid
,
129 (PTRACE_ARG3_TYPE
) (regaddr
+ 8), 0);
130 *(int *) &xval
.w4
= ptrace (3, inferior_pid
,
131 (PTRACE_ARG3_TYPE
) (regaddr
+ 12), 0);
132 supply_register (regno
, (void *) &xval
);
137 /* Store our register values back into the inferior.
138 If REGNO is -1, do this for all registers.
139 Otherwise, REGNO specifies which register (so we can save time). */
142 store_inferior_registers (int regno
)
144 register unsigned int regaddr
;
149 unsigned int offset
= (char *) &u
.pt_r0
- (char *) &u
;
153 /* Don't try to deal with EXIP_REGNUM or ENIP_REGNUM, because I think either
154 svr3 doesn't run on an 88110, or the kernel isolates the different (not
155 completely sure this is true, but seems to be. */
158 /* regaddr = register_addr (regno, offset); */
159 if (regno
< PC_REGNUM
)
161 regaddr
= offset
+ regno
* sizeof (int);
163 ptrace (6, inferior_pid
,
164 (PTRACE_ARG3_TYPE
) regaddr
, read_register (regno
));
167 sprintf (buf
, "writing register number %d", regno
);
168 perror_with_name (buf
);
171 else if (regno
== PSR_REGNUM
)
172 ptrace (6, inferior_pid
,
173 (PTRACE_ARG3_TYPE
) PSR_OFFSET
, read_register (regno
));
174 else if (regno
== FPSR_REGNUM
)
175 ptrace (6, inferior_pid
,
176 (PTRACE_ARG3_TYPE
) FPSR_OFFSET
, read_register (regno
));
177 else if (regno
== FPCR_REGNUM
)
178 ptrace (6, inferior_pid
,
179 (PTRACE_ARG3_TYPE
) FPCR_OFFSET
, read_register (regno
));
180 else if (regno
== SXIP_REGNUM
)
181 ptrace (6, inferior_pid
,
182 (PTRACE_ARG3_TYPE
) SXIP_OFFSET
, read_register (regno
));
183 else if (regno
== SNIP_REGNUM
)
184 ptrace (6, inferior_pid
,
185 (PTRACE_ARG3_TYPE
) SNIP_OFFSET
, read_register (regno
));
186 else if (regno
== SFIP_REGNUM
)
187 ptrace (6, inferior_pid
,
188 (PTRACE_ARG3_TYPE
) SFIP_OFFSET
, read_register (regno
));
189 else if (target_is_m88110
&& regno
< NUM_REGS
)
191 X_REGISTER_RAW_TYPE xval
;
193 read_register_bytes (REGISTER_BYTE (regno
), (char *) &xval
,
194 sizeof (X_REGISTER_RAW_TYPE
));
195 regaddr
= XREGADDR (regno
);
196 ptrace (6, inferior_pid
, (PTRACE_ARG3_TYPE
) regaddr
, xval
.w1
);
197 ptrace (6, inferior_pid
, (PTRACE_ARG3_TYPE
) regaddr
+ 4, xval
.w2
);
198 ptrace (6, inferior_pid
, (PTRACE_ARG3_TYPE
) regaddr
+ 8, xval
.w3
);
199 ptrace (6, inferior_pid
, (PTRACE_ARG3_TYPE
) regaddr
+ 12, xval
.w4
);
202 printf_unfiltered ("Bad register number for store_inferior routine\n");
206 for (regno
= 0; regno
< PC_REGNUM
; regno
++)
208 /* regaddr = register_addr (regno, offset); */
210 regaddr
= offset
+ regno
* sizeof (int);
211 ptrace (6, inferior_pid
,
212 (PTRACE_ARG3_TYPE
) regaddr
, read_register (regno
));
215 sprintf (buf
, "writing register number %d", regno
);
216 perror_with_name (buf
);
219 ptrace (6, inferior_pid
,
220 (PTRACE_ARG3_TYPE
) PSR_OFFSET
, read_register (regno
));
221 ptrace (6, inferior_pid
,
222 (PTRACE_ARG3_TYPE
) FPSR_OFFSET
, read_register (regno
));
223 ptrace (6, inferior_pid
,
224 (PTRACE_ARG3_TYPE
) FPCR_OFFSET
, read_register (regno
));
225 ptrace (6, inferior_pid
,
226 (PTRACE_ARG3_TYPE
) SXIP_OFFSET
, read_register (SXIP_REGNUM
));
227 ptrace (6, inferior_pid
,
228 (PTRACE_ARG3_TYPE
) SNIP_OFFSET
, read_register (SNIP_REGNUM
));
229 ptrace (6, inferior_pid
,
230 (PTRACE_ARG3_TYPE
) SFIP_OFFSET
, read_register (SFIP_REGNUM
));
231 if (target_is_m88110
)
233 for (regno
= X0_REGNUM
; regno
< NUM_REGS
; regno
++)
235 X_REGISTER_RAW_TYPE xval
;
237 read_register_bytes (REGISTER_BYTE (regno
), (char *) &xval
,
238 sizeof (X_REGISTER_RAW_TYPE
));
239 regaddr
= XREGADDR (regno
);
240 ptrace (6, inferior_pid
, (PTRACE_ARG3_TYPE
) regaddr
, xval
.w1
);
241 ptrace (6, inferior_pid
, (PTRACE_ARG3_TYPE
) (regaddr
+ 4), xval
.w2
);
242 ptrace (6, inferior_pid
, (PTRACE_ARG3_TYPE
) (regaddr
+ 8), xval
.w3
);
243 ptrace (6, inferior_pid
, (PTRACE_ARG3_TYPE
) (regaddr
+ 12), xval
.w4
);
249 /* blockend is the address of the end of the user structure */
251 m88k_register_u_addr (int blockend
, int regnum
)
254 int ustart
= blockend
- sizeof (struct USER
);
256 if (regnum
< PSR_REGNUM
)
257 return (ustart
+ ((int) &u
.pt_r0
- (int) &u
) +
258 REGISTER_SIZE
* regnum
);
259 else if (regnum
== PSR_REGNUM
)
260 return (ustart
+ ((int) &u
.pt_psr
) - (int) &u
);
261 else if (regnum
== FPSR_REGNUM
)
262 return (ustart
+ ((int) &u
.pt_fpsr
) - (int) &u
);
263 else if (regnum
== FPCR_REGNUM
)
264 return (ustart
+ ((int) &u
.pt_fpcr
) - (int) &u
);
265 else if (regnum
== SXIP_REGNUM
)
266 return (ustart
+ SXIP_OFFSET
);
267 else if (regnum
== SNIP_REGNUM
)
268 return (ustart
+ SNIP_OFFSET
);
269 else if (regnum
== SFIP_REGNUM
)
270 return (ustart
+ SFIP_OFFSET
);
271 else if (target_is_m88110
)
272 return (ustart
+ ((int) &u
.pt_x0
- (int) &u
) + /* Must be X register */
273 sizeof (u
.pt_x0
) * (regnum
- X0_REGNUM
));
275 return (blockend
+ REGISTER_SIZE
* regnum
);
280 #include <sys/procfs.h>
282 /* Prototypes for supply_gregset etc. */
285 /* Given a pointer to a general register set in /proc format (gregset_t *),
286 unpack the register contents and supply them as gdb's idea of the current
290 supply_gregset (gregset_t
*gregsetp
)
293 register greg_t
*regp
= (greg_t
*) gregsetp
;
295 for (regi
= 0; regi
<= SP_REGNUM
; regi
++)
296 supply_register (regi
, (char *) (regp
+ regi
));
298 supply_register (SXIP_REGNUM
, (char *) (regp
+ R_XIP
));
299 supply_register (SNIP_REGNUM
, (char *) (regp
+ R_NIP
));
300 supply_register (SFIP_REGNUM
, (char *) (regp
+ R_FIP
));
301 supply_register (PSR_REGNUM
, (char *) (regp
+ R_PSR
));
302 supply_register (FPSR_REGNUM
, (char *) (regp
+ R_FPSR
));
303 supply_register (FPCR_REGNUM
, (char *) (regp
+ R_FPCR
));
307 fill_gregset (gregset_t
*gregsetp
, int regno
)
310 register greg_t
*regp
= (greg_t
*) gregsetp
;
312 for (regi
= 0; regi
<= R_R31
; regi
++)
313 if ((regno
== -1) || (regno
== regi
))
314 *(regp
+ regi
) = *(int *) ®isters
[REGISTER_BYTE (regi
)];
316 if ((regno
== -1) || (regno
== SXIP_REGNUM
))
317 *(regp
+ R_XIP
) = *(int *) ®isters
[REGISTER_BYTE (SXIP_REGNUM
)];
318 if ((regno
== -1) || (regno
== SNIP_REGNUM
))
319 *(regp
+ R_NIP
) = *(int *) ®isters
[REGISTER_BYTE (SNIP_REGNUM
)];
320 if ((regno
== -1) || (regno
== SFIP_REGNUM
))
321 *(regp
+ R_FIP
) = *(int *) ®isters
[REGISTER_BYTE (SFIP_REGNUM
)];
322 if ((regno
== -1) || (regno
== PSR_REGNUM
))
323 *(regp
+ R_PSR
) = *(int *) ®isters
[REGISTER_BYTE (PSR_REGNUM
)];
324 if ((regno
== -1) || (regno
== FPSR_REGNUM
))
325 *(regp
+ R_FPSR
) = *(int *) ®isters
[REGISTER_BYTE (FPSR_REGNUM
)];
326 if ((regno
== -1) || (regno
== FPCR_REGNUM
))
327 *(regp
+ R_FPCR
) = *(int *) ®isters
[REGISTER_BYTE (FPCR_REGNUM
)];
330 #endif /* USE_PROC_FS */
332 /* This support adds the equivalent of adb's % command. When
333 the `add-shared-symbol-files' command is given, this routine scans
334 the dynamic linker's link map and reads the minimal symbols
335 from each shared object file listed in the map. */
339 unsigned long l_addr
; /* address at which object is mapped */
340 char *l_name
; /* full name of loaded object */
341 void *l_ld
; /* dynamic structure of object */
342 struct link_map
*l_next
; /* next link object */
343 struct link_map
*l_prev
; /* previous link object */
346 #define LINKS_MAP_POINTER "_ld_tail"
347 #define LIBC_FILE "/usr/lib/libc.so.1"
348 #define SHARED_OFFSET 0xf0001000
351 #define PATH_MAX 1023 /* maximum size of path name on OS */
355 add_shared_symbol_files (void)
358 struct link_map
*ld_map
, *lm
, lms
;
359 struct minimal_symbol
*minsym
;
360 struct objfile
*objfile
;
365 warning ("The program has not yet been started.");
369 objfile
= symbol_file_add (LIBC_FILE
, 0, NULL
, 0, OBJF_READNOW
);
370 minsym
= lookup_minimal_symbol (LINKS_MAP_POINTER
, objfile
);
372 ld_map
= (struct link_map
*)
373 read_memory_integer (((int) SYMBOL_VALUE_ADDRESS (minsym
) + SHARED_OFFSET
), 4);
379 read_memory ((CORE_ADDR
) lm
, (char *) &lms
, sizeof (struct link_map
));
382 if (target_read_string ((CORE_ADDR
) lms
.l_name
, &path_name
,
383 PATH_MAX
, &local_errno
))
385 struct section_addr_info section_addrs
;
386 memset (§ion_addrs
, 0, sizeof (section_addrs
));
387 section_addrs
.other
[0].addr
= lms
.l_addr
;
388 section_addrs
.other
[0].name
= ".text";
389 symbol_file_add (path_name
, 1, §ion_addrs
, 0, 0);
393 /* traverse links in reverse order so that we get the
394 the symbols the user actually gets. */
398 /* Getting new symbols may change our opinion about what is
400 reinit_frame_cache ();
405 #include <sys/regset.h>
408 m88k_harris_core_register_addr (int regno
, int reg_ptr
)
410 unsigned int word_offset
;
415 word_offset
= R_EPSR
;
418 word_offset
= R_FPSR
;
421 word_offset
= R_FPCR
;
424 word_offset
= R_EXIP
;
427 word_offset
= R_ENIP
;
430 word_offset
= R_EFIP
;
433 if (regno
<= FP_REGNUM
)
436 word_offset
= ((regno
- X0_REGNUM
) * 4);
438 return (word_offset
* 4);
444 _initialize_m88k_nat (void)
447 /* Enable 88110 support, as we don't support the 88100 under ES/MP. */
449 target_is_m88110
= 1;
450 #elif defined(_CX_UX)
451 /* Determine whether we're running on an 88100 or an 88110. */
452 target_is_m88110
= (sinfo (SYSMACHINE
, 0) == SYS5800
);
457 /* Given a pointer to a general register set in /proc format (gregset_t *),
458 unpack the register contents and supply them as gdb's idea of the current
462 supply_gregset (gregset_t
*gregsetp
)
465 register greg_t
*regp
= (greg_t
*) gregsetp
;
467 for (regi
= 0; regi
< R_R31
; regi
++)
469 supply_register (regi
, (char *) (regp
+ regi
));
471 supply_register (PSR_REGNUM
, (char *) (regp
+ R_EPSR
));
472 supply_register (FPSR_REGNUM
, (char *) (regp
+ R_FPSR
));
473 supply_register (FPCR_REGNUM
, (char *) (regp
+ R_FPCR
));
474 supply_register (SXIP_REGNUM
, (char *) (regp
+ R_EXIP
));
475 supply_register (SNIP_REGNUM
, (char *) (regp
+ R_ENIP
));
476 supply_register (SFIP_REGNUM
, (char *) (regp
+ R_EFIP
));
479 /* Given a pointer to a floating point register set in /proc format
480 (fpregset_t *), unpack the register contents and supply them as gdb's
481 idea of the current floating point register values. */
484 supply_fpregset (fpregset_t
*fpregsetp
)
489 for (regi
= FP0_REGNUM
; regi
<= FPLAST_REGNUM
; regi
++)
491 from
= (char *) &((*fpregsetp
)[regi
- FP0_REGNUM
]);
492 supply_register (regi
, from
);
500 #include <sys/regset.h>
503 m88k_harris_core_register_addr (int regno
, int reg_ptr
)
505 unsigned int word_offset
;
513 word_offset
= R_FPSR
;
516 word_offset
= R_FPCR
;
528 if (regno
<= FP_REGNUM
)
531 word_offset
= ((regno
- X0_REGNUM
) * 4) + R_X0
;
533 return (word_offset
* 4);