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 (int regno)
71 register unsigned int regaddr;
72 char buf[MAX_REGISTER_RAW_SIZE];
78 offset = (char *) &u.pt_r0 - (char *) &u;
79 regaddr = offset; /* byte offset to r0; */
81 /* offset = ptrace (3, inferior_pid, (PTRACE_ARG3_TYPE) offset, 0) - KERNEL_U_ADDR; */
82 for (regno = 0; regno < PC_REGNUM; regno++)
84 /*regaddr = register_addr (regno, offset); */
87 for (i = 0; i < REGISTER_RAW_SIZE (regno); i += sizeof (int))
89 *(int *) &buf[i] = ptrace (3, inferior_pid,
90 (PTRACE_ARG3_TYPE) regaddr, 0);
91 regaddr += sizeof (int);
93 supply_register (regno, buf);
95 /* now load up registers 32-37; special pc registers */
96 *(int *) &buf[0] = ptrace (3, inferior_pid,
97 (PTRACE_ARG3_TYPE) PSR_OFFSET, 0);
98 supply_register (PSR_REGNUM, buf);
99 *(int *) &buf[0] = ptrace (3, inferior_pid,
100 (PTRACE_ARG3_TYPE) FPSR_OFFSET, 0);
101 supply_register (FPSR_REGNUM, buf);
102 *(int *) &buf[0] = ptrace (3, inferior_pid,
103 (PTRACE_ARG3_TYPE) FPCR_OFFSET, 0);
104 supply_register (FPCR_REGNUM, buf);
105 *(int *) &buf[0] = ptrace (3, inferior_pid,
106 (PTRACE_ARG3_TYPE) SXIP_OFFSET, 0);
107 supply_register (SXIP_REGNUM, buf);
108 *(int *) &buf[0] = ptrace (3, inferior_pid,
109 (PTRACE_ARG3_TYPE) SNIP_OFFSET, 0);
110 supply_register (SNIP_REGNUM, buf);
111 *(int *) &buf[0] = ptrace (3, inferior_pid,
112 (PTRACE_ARG3_TYPE) SFIP_OFFSET, 0);
113 supply_register (SFIP_REGNUM, buf);
115 if (target_is_m88110)
117 for (regaddr = XREGADDR (X0_REGNUM), regno = X0_REGNUM;
119 regno++, regaddr += 16)
121 X_REGISTER_RAW_TYPE xval;
123 *(int *) &xval.w1 = ptrace (3, inferior_pid,
124 (PTRACE_ARG3_TYPE) regaddr, 0);
125 *(int *) &xval.w2 = ptrace (3, inferior_pid,
126 (PTRACE_ARG3_TYPE) (regaddr + 4), 0);
127 *(int *) &xval.w3 = ptrace (3, inferior_pid,
128 (PTRACE_ARG3_TYPE) (regaddr + 8), 0);
129 *(int *) &xval.w4 = ptrace (3, inferior_pid,
130 (PTRACE_ARG3_TYPE) (regaddr + 12), 0);
131 supply_register (regno, (void *) &xval);
136 /* Store our register values back into the inferior.
137 If REGNO is -1, do this for all registers.
138 Otherwise, REGNO specifies which register (so we can save time). */
141 store_inferior_registers (int regno)
143 register unsigned int regaddr;
148 unsigned int offset = (char *) &u.pt_r0 - (char *) &u;
152 /* Don't try to deal with EXIP_REGNUM or ENIP_REGNUM, because I think either
153 svr3 doesn't run on an 88110, or the kernel isolates the different (not
154 completely sure this is true, but seems to be. */
157 /* regaddr = register_addr (regno, offset); */
158 if (regno < PC_REGNUM)
160 regaddr = offset + regno * sizeof (int);
162 ptrace (6, inferior_pid,
163 (PTRACE_ARG3_TYPE) regaddr, read_register (regno));
166 sprintf (buf, "writing register number %d", regno);
167 perror_with_name (buf);
170 else if (regno == PSR_REGNUM)
171 ptrace (6, inferior_pid,
172 (PTRACE_ARG3_TYPE) PSR_OFFSET, read_register (regno));
173 else if (regno == FPSR_REGNUM)
174 ptrace (6, inferior_pid,
175 (PTRACE_ARG3_TYPE) FPSR_OFFSET, read_register (regno));
176 else if (regno == FPCR_REGNUM)
177 ptrace (6, inferior_pid,
178 (PTRACE_ARG3_TYPE) FPCR_OFFSET, read_register (regno));
179 else if (regno == SXIP_REGNUM)
180 ptrace (6, inferior_pid,
181 (PTRACE_ARG3_TYPE) SXIP_OFFSET, read_register (regno));
182 else if (regno == SNIP_REGNUM)
183 ptrace (6, inferior_pid,
184 (PTRACE_ARG3_TYPE) SNIP_OFFSET, read_register (regno));
185 else if (regno == SFIP_REGNUM)
186 ptrace (6, inferior_pid,
187 (PTRACE_ARG3_TYPE) SFIP_OFFSET, read_register (regno));
188 else if (target_is_m88110 && regno < NUM_REGS)
190 X_REGISTER_RAW_TYPE xval;
192 read_register_bytes (REGISTER_BYTE (regno), (char *) &xval,
193 sizeof (X_REGISTER_RAW_TYPE));
194 regaddr = XREGADDR (regno);
195 ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, xval.w1);
196 ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) regaddr + 4, xval.w2);
197 ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) regaddr + 8, xval.w3);
198 ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) regaddr + 12, xval.w4);
201 printf_unfiltered ("Bad register number for store_inferior routine\n");
205 for (regno = 0; regno < PC_REGNUM; regno++)
207 /* regaddr = register_addr (regno, offset); */
209 regaddr = offset + regno * sizeof (int);
210 ptrace (6, inferior_pid,
211 (PTRACE_ARG3_TYPE) regaddr, read_register (regno));
214 sprintf (buf, "writing register number %d", regno);
215 perror_with_name (buf);
218 ptrace (6, inferior_pid,
219 (PTRACE_ARG3_TYPE) PSR_OFFSET, read_register (regno));
220 ptrace (6, inferior_pid,
221 (PTRACE_ARG3_TYPE) FPSR_OFFSET, read_register (regno));
222 ptrace (6, inferior_pid,
223 (PTRACE_ARG3_TYPE) FPCR_OFFSET, read_register (regno));
224 ptrace (6, inferior_pid,
225 (PTRACE_ARG3_TYPE) SXIP_OFFSET, read_register (SXIP_REGNUM));
226 ptrace (6, inferior_pid,
227 (PTRACE_ARG3_TYPE) SNIP_OFFSET, read_register (SNIP_REGNUM));
228 ptrace (6, inferior_pid,
229 (PTRACE_ARG3_TYPE) SFIP_OFFSET, read_register (SFIP_REGNUM));
230 if (target_is_m88110)
232 for (regno = X0_REGNUM; regno < NUM_REGS; regno++)
234 X_REGISTER_RAW_TYPE xval;
236 read_register_bytes (REGISTER_BYTE (regno), (char *) &xval,
237 sizeof (X_REGISTER_RAW_TYPE));
238 regaddr = XREGADDR (regno);
239 ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, xval.w1);
240 ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) (regaddr + 4), xval.w2);
241 ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) (regaddr + 8), xval.w3);
242 ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) (regaddr + 12), xval.w4);
248 /* blockend is the address of the end of the user structure */
250 m88k_register_u_addr (int blockend, int regnum)
253 int ustart = blockend - sizeof (struct USER);
255 if (regnum < PSR_REGNUM)
256 return (ustart + ((int) &u.pt_r0 - (int) &u) +
257 REGISTER_SIZE * regnum);
258 else if (regnum == PSR_REGNUM)
259 return (ustart + ((int) &u.pt_psr) - (int) &u);
260 else if (regnum == FPSR_REGNUM)
261 return (ustart + ((int) &u.pt_fpsr) - (int) &u);
262 else if (regnum == FPCR_REGNUM)
263 return (ustart + ((int) &u.pt_fpcr) - (int) &u);
264 else if (regnum == SXIP_REGNUM)
265 return (ustart + SXIP_OFFSET);
266 else if (regnum == SNIP_REGNUM)
267 return (ustart + SNIP_OFFSET);
268 else if (regnum == SFIP_REGNUM)
269 return (ustart + SFIP_OFFSET);
270 else if (target_is_m88110)
271 return (ustart + ((int) &u.pt_x0 - (int) &u) + /* Must be X register */
272 sizeof (u.pt_x0) * (regnum - X0_REGNUM));
274 return (blockend + REGISTER_SIZE * regnum);
279 #include <sys/procfs.h>
281 /* Prototypes for supply_gregset etc. */
284 /* Given a pointer to a general register set in /proc format (gregset_t *),
285 unpack the register contents and supply them as gdb's idea of the current
289 supply_gregset (gregset_t *gregsetp)
292 register greg_t *regp = (greg_t *) gregsetp;
294 for (regi = 0; regi <= SP_REGNUM; regi++)
295 supply_register (regi, (char *) (regp + regi));
297 supply_register (SXIP_REGNUM, (char *) (regp + R_XIP));
298 supply_register (SNIP_REGNUM, (char *) (regp + R_NIP));
299 supply_register (SFIP_REGNUM, (char *) (regp + R_FIP));
300 supply_register (PSR_REGNUM, (char *) (regp + R_PSR));
301 supply_register (FPSR_REGNUM, (char *) (regp + R_FPSR));
302 supply_register (FPCR_REGNUM, (char *) (regp + R_FPCR));
306 fill_gregset (gregset_t *gregsetp, int regno)
309 register greg_t *regp = (greg_t *) gregsetp;
311 for (regi = 0; regi <= R_R31; regi++)
312 if ((regno == -1) || (regno == regi))
313 *(regp + regi) = *(int *) ®isters[REGISTER_BYTE (regi)];
315 if ((regno == -1) || (regno == SXIP_REGNUM))
316 *(regp + R_XIP) = *(int *) ®isters[REGISTER_BYTE (SXIP_REGNUM)];
317 if ((regno == -1) || (regno == SNIP_REGNUM))
318 *(regp + R_NIP) = *(int *) ®isters[REGISTER_BYTE (SNIP_REGNUM)];
319 if ((regno == -1) || (regno == SFIP_REGNUM))
320 *(regp + R_FIP) = *(int *) ®isters[REGISTER_BYTE (SFIP_REGNUM)];
321 if ((regno == -1) || (regno == PSR_REGNUM))
322 *(regp + R_PSR) = *(int *) ®isters[REGISTER_BYTE (PSR_REGNUM)];
323 if ((regno == -1) || (regno == FPSR_REGNUM))
324 *(regp + R_FPSR) = *(int *) ®isters[REGISTER_BYTE (FPSR_REGNUM)];
325 if ((regno == -1) || (regno == FPCR_REGNUM))
326 *(regp + R_FPCR) = *(int *) ®isters[REGISTER_BYTE (FPCR_REGNUM)];
329 #endif /* USE_PROC_FS */
331 /* This support adds the equivalent of adb's % command. When
332 the `add-shared-symbol-files' command is given, this routine scans
333 the dynamic linker's link map and reads the minimal symbols
334 from each shared object file listed in the map. */
338 unsigned long l_addr; /* address at which object is mapped */
339 char *l_name; /* full name of loaded object */
340 void *l_ld; /* dynamic structure of object */
341 struct link_map *l_next; /* next link object */
342 struct link_map *l_prev; /* previous link object */
345 #define LINKS_MAP_POINTER "_ld_tail"
346 #define LIBC_FILE "/usr/lib/libc.so.1"
347 #define SHARED_OFFSET 0xf0001000
350 #define PATH_MAX 1023 /* maximum size of path name on OS */
354 add_shared_symbol_files (void)
357 struct link_map *ld_map, *lm, lms;
358 struct minimal_symbol *minsym;
359 struct objfile *objfile;
364 warning ("The program has not yet been started.");
368 objfile = symbol_file_add (LIBC_FILE, 0, NULL, 0, OBJF_READNOW);
369 minsym = lookup_minimal_symbol (LINKS_MAP_POINTER, objfile);
371 ld_map = (struct link_map *)
372 read_memory_integer (((int) SYMBOL_VALUE_ADDRESS (minsym) + SHARED_OFFSET), 4);
378 read_memory ((CORE_ADDR) lm, (char *) &lms, sizeof (struct link_map));
381 if (target_read_string ((CORE_ADDR) lms.l_name, &path_name,
382 PATH_MAX, &local_errno))
384 struct section_addr_info section_addrs;
385 memset (§ion_addrs, 0, sizeof (section_addrs));
386 section_addrs.other[0].addr = lms.l_addr;
387 section_addrs.other[0].name = ".text";
388 symbol_file_add (path_name, 1, §ion_addrs, 0, 0);
392 /* traverse links in reverse order so that we get the
393 the symbols the user actually gets. */
397 /* Getting new symbols may change our opinion about what is
399 reinit_frame_cache ();
404 #include <sys/regset.h>
407 m88k_harris_core_register_addr (int regno, int reg_ptr)
409 unsigned int word_offset;
414 word_offset = R_EPSR;
417 word_offset = R_FPSR;
420 word_offset = R_FPCR;
423 word_offset = R_EXIP;
426 word_offset = R_ENIP;
429 word_offset = R_EFIP;
432 if (regno <= FP_REGNUM)
435 word_offset = ((regno - X0_REGNUM) * 4);
437 return (word_offset * 4);
443 _initialize_m88k_nat (void)
446 /* Enable 88110 support, as we don't support the 88100 under ES/MP. */
448 target_is_m88110 = 1;
449 #elif defined(_CX_UX)
450 /* Determine whether we're running on an 88100 or an 88110. */
451 target_is_m88110 = (sinfo (SYSMACHINE, 0) == SYS5800);
456 /* Given a pointer to a general register set in /proc format (gregset_t *),
457 unpack the register contents and supply them as gdb's idea of the current
461 supply_gregset (gregset_t *gregsetp)
464 register greg_t *regp = (greg_t *) gregsetp;
466 for (regi = 0; regi < R_R31; regi++)
468 supply_register (regi, (char *) (regp + regi));
470 supply_register (PSR_REGNUM, (char *) (regp + R_EPSR));
471 supply_register (FPSR_REGNUM, (char *) (regp + R_FPSR));
472 supply_register (FPCR_REGNUM, (char *) (regp + R_FPCR));
473 supply_register (SXIP_REGNUM, (char *) (regp + R_EXIP));
474 supply_register (SNIP_REGNUM, (char *) (regp + R_ENIP));
475 supply_register (SFIP_REGNUM, (char *) (regp + R_EFIP));
478 /* Given a pointer to a floating point register set in /proc format
479 (fpregset_t *), unpack the register contents and supply them as gdb's
480 idea of the current floating point register values. */
483 supply_fpregset (fpregset_t *fpregsetp)
488 for (regi = FP0_REGNUM; regi <= FPLAST_REGNUM; regi++)
490 from = (char *) &((*fpregsetp)[regi - FP0_REGNUM]);
491 supply_register (regi, from);
499 #include <sys/regset.h>
502 m88k_harris_core_register_addr (int regno, int reg_ptr)
504 unsigned int word_offset;
512 word_offset = R_FPSR;
515 word_offset = R_FPCR;
527 if (regno <= FP_REGNUM)
530 word_offset = ((regno - X0_REGNUM) * 4) + R_X0;
532 return (word_offset * 4);