1 /* Sequent Symmetry host interface, for GDB when running under Unix.
2 Copyright 1986, 1987, 1989, 1991, 1992 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., 675 Mass Ave, Cambridge, MA 02139, USA. */
20 /* FIXME, some 387-specific items of use taken from i387-tdep.c -- ought to be
29 #include <sys/param.h>
32 #include <sys/ioctl.h>
37 #define TERMINAL struct sgttyb
42 store_inferior_registers(regno
)
45 struct pt_regset regs
;
47 extern char registers
[];
50 /* PREPARE_TO_STORE deals with this. */
54 regs
.pr_eax
= *(int *)®isters
[REGISTER_BYTE(0)];
55 regs
.pr_ebx
= *(int *)®isters
[REGISTER_BYTE(5)];
56 regs
.pr_ecx
= *(int *)®isters
[REGISTER_BYTE(2)];
57 regs
.pr_edx
= *(int *)®isters
[REGISTER_BYTE(1)];
58 regs
.pr_esi
= *(int *)®isters
[REGISTER_BYTE(6)];
59 regs
.pr_edi
= *(int *)®isters
[REGISTER_BYTE(7)];
60 regs
.pr_esp
= *(int *)®isters
[REGISTER_BYTE(14)];
61 regs
.pr_ebp
= *(int *)®isters
[REGISTER_BYTE(15)];
62 regs
.pr_eip
= *(int *)®isters
[REGISTER_BYTE(16)];
63 regs
.pr_flags
= *(int *)®isters
[REGISTER_BYTE(17)];
64 for (i
= 0; i
< 31; i
++) {
65 regs
.pr_fpa
.fpa_regs
[i
] =
66 *(int *)®isters
[REGISTER_BYTE(FP1_REGNUM
+i
)];
72 reg_tmp
= *(int *)®isters
[REGISTER_BYTE(regno
)];
73 ptrace(XPT_RREGS
, inferior_pid
, (PTRACE_ARG3_TYPE
) ®s
, 0);
77 regs
.pr_eax
= *(int *)®isters
[REGISTER_BYTE(0)];
80 regs
.pr_ebx
= *(int *)®isters
[REGISTER_BYTE(5)];
83 regs
.pr_ecx
= *(int *)®isters
[REGISTER_BYTE(2)];
86 regs
.pr_edx
= *(int *)®isters
[REGISTER_BYTE(1)];
89 regs
.pr_esi
= *(int *)®isters
[REGISTER_BYTE(6)];
92 regs
.pr_edi
= *(int *)®isters
[REGISTER_BYTE(7)];
95 regs
.pr_ebp
= *(int *)®isters
[REGISTER_BYTE(15)];
98 regs
.pr_esp
= *(int *)®isters
[REGISTER_BYTE(14)];
101 regs
.pr_eip
= *(int *)®isters
[REGISTER_BYTE(16)];
104 regs
.pr_flags
= *(int *)®isters
[REGISTER_BYTE(17)];
109 ptrace(XPT_WREGS
, inferior_pid
, (PTRACE_ARG3_TYPE
) ®s
, 0);
113 fetch_inferior_registers (regno
)
117 struct pt_regset regs
;
118 extern char registers
[];
120 registers_fetched ();
122 ptrace(XPT_RREGS
, inferior_pid
, (PTRACE_ARG3_TYPE
) ®s
, 0);
123 *(int *)®isters
[REGISTER_BYTE(0)] = regs
.pr_eax
;
124 *(int *)®isters
[REGISTER_BYTE(5)] = regs
.pr_ebx
;
125 *(int *)®isters
[REGISTER_BYTE(2)] = regs
.pr_ecx
;
126 *(int *)®isters
[REGISTER_BYTE(1)] = regs
.pr_edx
;
127 *(int *)®isters
[REGISTER_BYTE(6)] = regs
.pr_esi
;
128 *(int *)®isters
[REGISTER_BYTE(7)] = regs
.pr_edi
;
129 *(int *)®isters
[REGISTER_BYTE(15)] = regs
.pr_ebp
;
130 *(int *)®isters
[REGISTER_BYTE(14)] = regs
.pr_esp
;
131 *(int *)®isters
[REGISTER_BYTE(16)] = regs
.pr_eip
;
132 *(int *)®isters
[REGISTER_BYTE(17)] = regs
.pr_flags
;
133 for (i
= 0; i
< FPA_NREGS
; i
++) {
134 *(int *)®isters
[REGISTER_BYTE(FP1_REGNUM
+i
)] = regs
.pr_fpa
.fpa_regs
[i
];
136 bcopy(regs
.pr_fpu
.fpu_stack
[0], ®isters
[REGISTER_BYTE(3)], 10);
137 bcopy(regs
.pr_fpu
.fpu_stack
[1], ®isters
[REGISTER_BYTE(4)], 10);
138 bcopy(regs
.pr_fpu
.fpu_stack
[2], ®isters
[REGISTER_BYTE(8)], 10);
139 bcopy(regs
.pr_fpu
.fpu_stack
[3], ®isters
[REGISTER_BYTE(9)], 10);
140 bcopy(regs
.pr_fpu
.fpu_stack
[4], ®isters
[REGISTER_BYTE(10)], 10);
141 bcopy(regs
.pr_fpu
.fpu_stack
[5], ®isters
[REGISTER_BYTE(11)], 10);
142 bcopy(regs
.pr_fpu
.fpu_stack
[6], ®isters
[REGISTER_BYTE(12)], 10);
143 bcopy(regs
.pr_fpu
.fpu_stack
[7], ®isters
[REGISTER_BYTE(13)], 10);
147 /* Work with core dump and executable files, for GDB.
148 This code would be in core.c if it weren't machine-dependent. */
151 core_file_command (filename
, from_tty
)
156 extern char registers
[];
158 /* Discard all vestiges of any previous core file
159 and mark data and stack spaces as empty. */
171 stack_start
= STACK_END_ADDR
;
172 stack_end
= STACK_END_ADDR
;
174 /* Now, if a new core file was specified, open it and digest it. */
178 filename
= tilde_expand (filename
);
179 make_cleanup (free
, filename
);
181 if (have_inferior_p ())
182 error ("To look at a core file, you must kill the program with \"kill\".");
183 corechan
= open (filename
, O_RDONLY
, 0);
185 perror_with_name (filename
);
186 /* 4.2-style (and perhaps also sysV-style) core dump file. */
191 val
= myread (corechan
, &u
, sizeof u
);
193 perror_with_name (filename
);
194 data_start
= exec_data_start
;
196 data_end
= data_start
+ NBPG
* (u
.u_dsize
- u
.u_tsize
);
197 stack_start
= stack_end
- NBPG
* u
.u_ssize
;
198 data_offset
= NBPG
* UPAGES
;
199 stack_offset
= ctob(UPAGES
+ u
.u_dsize
- u
.u_tsize
);
200 reg_offset
= (int) u
.u_ar0
- KERNEL_U_ADDR
;
201 printf("u.u_tsize= %#x, u.u_dsize= %#x, u.u_ssize= %#x, stack_off= %#x\n",
202 u
.u_tsize
, u
.u_dsize
, u
.u_ssize
, stack_offset
);
204 core_aouthdr
.a_magic
= 0;
206 /* Read the register values out of the core file and store
207 them where `read_register' will find them. */
212 for (regno
= 0; regno
< NUM_REGS
; regno
++)
214 char buf
[MAX_REGISTER_RAW_SIZE
];
216 val
= lseek (corechan
, register_addr (regno
, reg_offset
), 0);
218 perror_with_name (filename
);
220 val
= myread (corechan
, buf
, sizeof buf
);
222 perror_with_name (filename
);
223 supply_register (regno
, buf
);
227 if (filename
[0] == '/')
228 corefile
= savestring (filename
, strlen (filename
));
231 corefile
= concat (current_directory
, "/", filename
, NULL
);
234 set_current_frame(create_new_frame(read_register(FP_REGNUM
),
236 /* set_current_frame (read_register (FP_REGNUM));*/
237 select_frame (get_current_frame (), 0);
241 printf ("No core file now.\n");
244 /* FIXME: This should be merged with i387-tdep.c as well. */
256 if (ep
.pr_fpu
.fpu_ip
== 0) {
257 printf(" not in use.\n");
262 if (ep
.pr_fpu
.fpu_status
!= 0) {
263 print_387_status_word (ep
.pr_fpu
.fpu_status
);
265 print_387_control_word (ep
.pr_fpu
.fpu_control
);
266 printf ("last exception: ");
267 printf ("opcode 0x%x; ", ep
.pr_fpu
.fpu_rsvd4
);
268 printf ("pc 0x%x:0x%x; ", ep
.pr_fpu
.fpu_cs
, ep
.pr_fpu
.fpu_ip
);
269 printf ("operand 0x%x:0x%x\n", ep
.pr_fpu
.fpu_data_offset
, ep
.pr_fpu
.fpu_op_sel
);
271 top
= (ep
.pr_fpu
.fpu_status
>> 11) & 7;
273 printf ("regno tag msb lsb value\n");
274 for (fpreg
= 7; fpreg
>= 0; fpreg
--)
278 printf ("%s %d: ", fpreg
== top
? "=>" : " ", fpreg
);
280 switch ((ep
.pr_fpu
.fpu_tag
>> (fpreg
* 2)) & 3)
282 case 0: printf ("valid "); break;
283 case 1: printf ("zero "); break;
284 case 2: printf ("trap "); break;
285 case 3: printf ("empty "); break;
287 for (i
= 9; i
>= 0; i
--)
288 printf ("%02x", ep
.pr_fpu
.fpu_stack
[fpreg
][i
]);
290 i387_to_double (ep
.pr_fpu
.fpu_stack
[fpreg
], (char *)&val
);
291 printf (" %g\n", val
);
293 if (ep
.pr_fpu
.fpu_rsvd1
)
294 warning ("rsvd1 is 0x%x\n", ep
.pr_fpu
.fpu_rsvd1
);
295 if (ep
.pr_fpu
.fpu_rsvd2
)
296 warning ("rsvd2 is 0x%x\n", ep
.pr_fpu
.fpu_rsvd2
);
297 if (ep
.pr_fpu
.fpu_rsvd3
)
298 warning ("rsvd3 is 0x%x\n", ep
.pr_fpu
.fpu_rsvd3
);
299 if (ep
.pr_fpu
.fpu_rsvd5
)
300 warning ("rsvd5 is 0x%x\n", ep
.pr_fpu
.fpu_rsvd5
);
304 print_1167_control_word(pcr
)
310 pcr_tmp
= pcr
& FPA_PCR_MODE
;
311 printf("\tMODE= %#x; RND= %#x ", pcr_tmp
, pcr_tmp
& 12);
312 switch (pcr_tmp
& 12) {
314 printf("RN (Nearest Value)");
320 printf("RP (Positive Infinity)");
323 printf("RM (Negative Infinity)");
326 printf("; IRND= %d ", pcr_tmp
& 2);
327 if (0 == pcr_tmp
& 2) {
328 printf("(same as RND)\n");
330 printf("(toward zero)\n");
332 pcr_tmp
= pcr
& FPA_PCR_EM
;
333 printf("\tEM= %#x", pcr_tmp
);
334 if (pcr_tmp
& FPA_PCR_EM_DM
) printf(" DM");
335 if (pcr_tmp
& FPA_PCR_EM_UOM
) printf(" UOM");
336 if (pcr_tmp
& FPA_PCR_EM_PM
) printf(" PM");
337 if (pcr_tmp
& FPA_PCR_EM_UM
) printf(" UM");
338 if (pcr_tmp
& FPA_PCR_EM_OM
) printf(" OM");
339 if (pcr_tmp
& FPA_PCR_EM_ZM
) printf(" ZM");
340 if (pcr_tmp
& FPA_PCR_EM_IM
) printf(" IM");
342 pcr_tmp
= FPA_PCR_CC
;
343 printf("\tCC= %#x", pcr_tmp
);
344 if (pcr_tmp
& FPA_PCR_20MHZ
) printf(" 20MHZ");
345 if (pcr_tmp
& FPA_PCR_CC_Z
) printf(" Z");
346 if (pcr_tmp
& FPA_PCR_CC_C2
) printf(" C2");
347 if (pcr_tmp
& FPA_PCR_CC_C1
) printf(" C1");
353 printf(" (Less than)");
356 printf(" (Greater than)");
358 case FPA_PCR_CC_Z
| FPA_PCR_CC_C1
| FPA_PCR_CC_C2
:
359 printf(" (Unordered)");
362 printf(" (Undefined)");
366 pcr_tmp
= pcr
& FPA_PCR_AE
;
367 printf("\tAE= %#x", pcr_tmp
);
368 if (pcr_tmp
& FPA_PCR_AE_DE
) printf(" DE");
369 if (pcr_tmp
& FPA_PCR_AE_UOE
) printf(" UOE");
370 if (pcr_tmp
& FPA_PCR_AE_PE
) printf(" PE");
371 if (pcr_tmp
& FPA_PCR_AE_UE
) printf(" UE");
372 if (pcr_tmp
& FPA_PCR_AE_OE
) printf(" OE");
373 if (pcr_tmp
& FPA_PCR_AE_ZE
) printf(" ZE");
374 if (pcr_tmp
& FPA_PCR_AE_EE
) printf(" EE");
375 if (pcr_tmp
& FPA_PCR_AE_IE
) printf(" IE");
379 print_1167_regs(regs
)
380 long regs
[FPA_NREGS
];
395 for (i
= 0; i
< FPA_NREGS
; i
++) {
397 printf("%%fp%d: raw= %#x, single= %f", i
+1, regs
[i
], xf
.f
);
403 printf(", double= %f\n", xd
.d
);
414 if (ep
.pr_fpa
.fpa_pcr
!=0) {
416 print_1167_control_word(ep
.pr_fpa
.fpa_pcr
);
417 print_1167_regs(ep
.pr_fpa
.fpa_regs
);
419 printf(" not in use.\n");
425 char ubuf
[UPAGES
*NBPG
];
426 struct pt_regset regset
;
429 if (have_inferior_p()) {
430 call_ptrace(XPT_RREGS
, inferior_pid
, (PTRACE_ARG3_TYPE
) ®set
, 0);
432 if (lseek (corechan
, 0, 0) < 0) {
433 perror ("seek on core file");
435 if (myread (corechan
, ubuf
, UPAGES
*NBPG
) < 0) {
436 perror ("read on core file");
438 /* only interested in the floating point registers */
439 regset
.pr_fpu
= ((struct user
*) ubuf
)->u_fpusave
;
440 regset
.pr_fpa
= ((struct user
*) ubuf
)->u_fpasave
;
442 print_fpu_status(regset
);
443 print_fpa_status(regset
);
This page took 0.038577 seconds and 4 git commands to generate.