a0508a9f3d16a3bc1581ed0764eabe325af2b490
1 /* Sequent Symmetry host interface, for GDB when running under Unix.
2 Copyright (C) 1986, 1987, 1989, 1991 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
30 #include <sys/param.h>
33 #include <sys/ioctl.h>
38 #define TERMINAL struct sgttyb
40 extern void print_387_control_word ();
41 extern void print_387_status_word ();
42 extern void i387_to_double (from
, to
);
44 store_inferior_registers(regno
)
47 struct pt_regset regs
;
49 extern char registers
[];
52 /* PREPARE_TO_STORE deals with this. */
56 regs
.pr_eax
= *(int *)®isters
[REGISTER_BYTE(0)];
57 regs
.pr_ebx
= *(int *)®isters
[REGISTER_BYTE(5)];
58 regs
.pr_ecx
= *(int *)®isters
[REGISTER_BYTE(2)];
59 regs
.pr_edx
= *(int *)®isters
[REGISTER_BYTE(1)];
60 regs
.pr_esi
= *(int *)®isters
[REGISTER_BYTE(6)];
61 regs
.pr_edi
= *(int *)®isters
[REGISTER_BYTE(7)];
62 regs
.pr_esp
= *(int *)®isters
[REGISTER_BYTE(14)];
63 regs
.pr_ebp
= *(int *)®isters
[REGISTER_BYTE(15)];
64 regs
.pr_eip
= *(int *)®isters
[REGISTER_BYTE(16)];
65 regs
.pr_flags
= *(int *)®isters
[REGISTER_BYTE(17)];
66 for (i
= 0; i
< 31; i
++) {
67 regs
.pr_fpa
.fpa_regs
[i
] =
68 *(int *)®isters
[REGISTER_BYTE(FP1_REGNUM
+i
)];
74 reg_tmp
= *(int *)®isters
[REGISTER_BYTE(regno
)];
75 ptrace(XPT_RREGS
, inferior_pid
, ®s
, 0);
79 regs
.pr_eax
= *(int *)®isters
[REGISTER_BYTE(0)];
82 regs
.pr_ebx
= *(int *)®isters
[REGISTER_BYTE(5)];
85 regs
.pr_ecx
= *(int *)®isters
[REGISTER_BYTE(2)];
88 regs
.pr_edx
= *(int *)®isters
[REGISTER_BYTE(1)];
91 regs
.pr_esi
= *(int *)®isters
[REGISTER_BYTE(6)];
94 regs
.pr_edi
= *(int *)®isters
[REGISTER_BYTE(7)];
97 regs
.pr_ebp
= *(int *)®isters
[REGISTER_BYTE(15)];
100 regs
.pr_esp
= *(int *)®isters
[REGISTER_BYTE(14)];
103 regs
.pr_eip
= *(int *)®isters
[REGISTER_BYTE(16)];
106 regs
.pr_flags
= *(int *)®isters
[REGISTER_BYTE(17)];
111 ptrace(XPT_WREGS
, inferior_pid
, ®s
, 0);
115 fetch_inferior_registers()
118 struct pt_regset regs
;
119 extern char registers
[];
121 registers_fetched ();
123 ptrace(XPT_RREGS
, inferior_pid
, ®s
, 0);
124 *(int *)®isters
[REGISTER_BYTE(0)] = regs
.pr_eax
;
125 *(int *)®isters
[REGISTER_BYTE(5)] = regs
.pr_ebx
;
126 *(int *)®isters
[REGISTER_BYTE(2)] = regs
.pr_ecx
;
127 *(int *)®isters
[REGISTER_BYTE(1)] = regs
.pr_edx
;
128 *(int *)®isters
[REGISTER_BYTE(6)] = regs
.pr_esi
;
129 *(int *)®isters
[REGISTER_BYTE(7)] = regs
.pr_edi
;
130 *(int *)®isters
[REGISTER_BYTE(15)] = regs
.pr_ebp
;
131 *(int *)®isters
[REGISTER_BYTE(14)] = regs
.pr_esp
;
132 *(int *)®isters
[REGISTER_BYTE(16)] = regs
.pr_eip
;
133 *(int *)®isters
[REGISTER_BYTE(17)] = regs
.pr_flags
;
134 for (i
= 0; i
< FPA_NREGS
; i
++) {
135 *(int *)®isters
[REGISTER_BYTE(FP1_REGNUM
+i
)] = regs
.pr_fpa
.fpa_regs
[i
];
137 bcopy(regs
.pr_fpu
.fpu_stack
[0], ®isters
[REGISTER_BYTE(3)], 10);
138 bcopy(regs
.pr_fpu
.fpu_stack
[1], ®isters
[REGISTER_BYTE(4)], 10);
139 bcopy(regs
.pr_fpu
.fpu_stack
[2], ®isters
[REGISTER_BYTE(8)], 10);
140 bcopy(regs
.pr_fpu
.fpu_stack
[3], ®isters
[REGISTER_BYTE(9)], 10);
141 bcopy(regs
.pr_fpu
.fpu_stack
[4], ®isters
[REGISTER_BYTE(10)], 10);
142 bcopy(regs
.pr_fpu
.fpu_stack
[5], ®isters
[REGISTER_BYTE(11)], 10);
143 bcopy(regs
.pr_fpu
.fpu_stack
[6], ®isters
[REGISTER_BYTE(12)], 10);
144 bcopy(regs
.pr_fpu
.fpu_stack
[7], ®isters
[REGISTER_BYTE(13)], 10);
148 /* Work with core dump and executable files, for GDB.
149 This code would be in core.c if it weren't machine-dependent. */
154 core_file_command (filename
, from_tty
)
159 extern char registers
[];
161 /* Discard all vestiges of any previous core file
162 and mark data and stack spaces as empty. */
174 stack_start
= STACK_END_ADDR
;
175 stack_end
= STACK_END_ADDR
;
177 /* Now, if a new core file was specified, open it and digest it. */
181 filename
= tilde_expand (filename
);
182 make_cleanup (free
, filename
);
184 if (have_inferior_p ())
185 error ("To look at a core file, you must kill the inferior with \"kill\".");
186 corechan
= open (filename
, O_RDONLY
, 0);
188 perror_with_name (filename
);
189 /* 4.2-style (and perhaps also sysV-style) core dump file. */
194 val
= myread (corechan
, &u
, sizeof u
);
196 perror_with_name (filename
);
197 data_start
= exec_data_start
;
199 data_end
= data_start
+ NBPG
* (u
.u_dsize
- u
.u_tsize
);
200 stack_start
= stack_end
- NBPG
* u
.u_ssize
;
201 data_offset
= NBPG
* UPAGES
;
202 stack_offset
= ctob(UPAGES
+ u
.u_dsize
- u
.u_tsize
);
203 reg_offset
= (int) u
.u_ar0
- KERNEL_U_ADDR
;
204 printf("u.u_tsize= %#x, u.u_dsize= %#x, u.u_ssize= %#x, stack_off= %#x\n",
205 u
.u_tsize
, u
.u_dsize
, u
.u_ssize
, stack_offset
);
207 core_aouthdr
.a_magic
= 0;
209 /* Read the register values out of the core file and store
210 them where `read_register' will find them. */
215 for (regno
= 0; regno
< NUM_REGS
; regno
++)
217 char buf
[MAX_REGISTER_RAW_SIZE
];
219 val
= lseek (corechan
, register_addr (regno
, reg_offset
), 0);
221 perror_with_name (filename
);
223 val
= myread (corechan
, buf
, sizeof buf
);
225 perror_with_name (filename
);
226 supply_register (regno
, buf
);
230 if (filename
[0] == '/')
231 corefile
= savestring (filename
, strlen (filename
));
234 corefile
= concat (current_directory
, "/", filename
, NULL
);
237 set_current_frame(create_new_frame(read_register(FP_REGNUM
),
239 /* set_current_frame (read_register (FP_REGNUM));*/
240 select_frame (get_current_frame (), 0);
244 printf ("No core file now.\n");
247 /* FIXME: This should be merged with i387-tdep.c as well. */
259 if (ep
.pr_fpu
.fpu_ip
== 0) {
260 printf(" not in use.\n");
265 if (ep
.pr_fpu
.fpu_status
!= 0) {
266 print_387_status_word (ep
.pr_fpu
.fpu_status
);
268 print_387_control_word (ep
.pr_fpu
.fpu_control
);
269 printf ("last exception: ");
270 printf ("opcode 0x%x; ", ep
.pr_fpu
.fpu_rsvd4
);
271 printf ("pc 0x%x:0x%x; ", ep
.pr_fpu
.fpu_cs
, ep
.pr_fpu
.fpu_ip
);
272 printf ("operand 0x%x:0x%x\n", ep
.pr_fpu
.fpu_data_offset
, ep
.pr_fpu
.fpu_op_sel
);
274 top
= (ep
.pr_fpu
.fpu_status
>> 11) & 7;
276 printf ("regno tag msb lsb value\n");
277 for (fpreg
= 7; fpreg
>= 0; fpreg
--)
281 printf ("%s %d: ", fpreg
== top
? "=>" : " ", fpreg
);
283 switch ((ep
.pr_fpu
.fpu_tag
>> (fpreg
* 2)) & 3)
285 case 0: printf ("valid "); break;
286 case 1: printf ("zero "); break;
287 case 2: printf ("trap "); break;
288 case 3: printf ("empty "); break;
290 for (i
= 9; i
>= 0; i
--)
291 printf ("%02x", ep
.pr_fpu
.fpu_stack
[fpreg
][i
]);
293 i387_to_double (ep
.pr_fpu
.fpu_stack
[fpreg
], (char *)&val
);
294 printf (" %g\n", val
);
296 if (ep
.pr_fpu
.fpu_rsvd1
)
297 printf ("warning: rsvd1 is 0x%x\n", ep
.pr_fpu
.fpu_rsvd1
);
298 if (ep
.pr_fpu
.fpu_rsvd2
)
299 printf ("warning: rsvd2 is 0x%x\n", ep
.pr_fpu
.fpu_rsvd2
);
300 if (ep
.pr_fpu
.fpu_rsvd3
)
301 printf ("warning: rsvd3 is 0x%x\n", ep
.pr_fpu
.fpu_rsvd3
);
302 if (ep
.pr_fpu
.fpu_rsvd5
)
303 printf ("warning: rsvd5 is 0x%x\n", ep
.pr_fpu
.fpu_rsvd5
);
307 print_1167_control_word(pcr
)
313 pcr_tmp
= pcr
& FPA_PCR_MODE
;
314 printf("\tMODE= %#x; RND= %#x ", pcr_tmp
, pcr_tmp
& 12);
315 switch (pcr_tmp
& 12) {
317 printf("RN (Nearest Value)");
323 printf("RP (Positive Infinity)");
326 printf("RM (Negative Infinity)");
329 printf("; IRND= %d ", pcr_tmp
& 2);
330 if (0 == pcr_tmp
& 2) {
331 printf("(same as RND)\n");
333 printf("(toward zero)\n");
335 pcr_tmp
= pcr
& FPA_PCR_EM
;
336 printf("\tEM= %#x", pcr_tmp
);
337 if (pcr_tmp
& FPA_PCR_EM_DM
) printf(" DM");
338 if (pcr_tmp
& FPA_PCR_EM_UOM
) printf(" UOM");
339 if (pcr_tmp
& FPA_PCR_EM_PM
) printf(" PM");
340 if (pcr_tmp
& FPA_PCR_EM_UM
) printf(" UM");
341 if (pcr_tmp
& FPA_PCR_EM_OM
) printf(" OM");
342 if (pcr_tmp
& FPA_PCR_EM_ZM
) printf(" ZM");
343 if (pcr_tmp
& FPA_PCR_EM_IM
) printf(" IM");
345 pcr_tmp
= FPA_PCR_CC
;
346 printf("\tCC= %#x", pcr_tmp
);
347 if (pcr_tmp
& FPA_PCR_20MHZ
) printf(" 20MHZ");
348 if (pcr_tmp
& FPA_PCR_CC_Z
) printf(" Z");
349 if (pcr_tmp
& FPA_PCR_CC_C2
) printf(" C2");
350 if (pcr_tmp
& FPA_PCR_CC_C1
) printf(" C1");
356 printf(" (Less than)");
359 printf(" (Greater than)");
361 case FPA_PCR_CC_Z
| FPA_PCR_CC_C1
| FPA_PCR_CC_C2
:
362 printf(" (Unordered)");
365 printf(" (Undefined)");
369 pcr_tmp
= pcr
& FPA_PCR_AE
;
370 printf("\tAE= %#x", pcr_tmp
);
371 if (pcr_tmp
& FPA_PCR_AE_DE
) printf(" DE");
372 if (pcr_tmp
& FPA_PCR_AE_UOE
) printf(" UOE");
373 if (pcr_tmp
& FPA_PCR_AE_PE
) printf(" PE");
374 if (pcr_tmp
& FPA_PCR_AE_UE
) printf(" UE");
375 if (pcr_tmp
& FPA_PCR_AE_OE
) printf(" OE");
376 if (pcr_tmp
& FPA_PCR_AE_ZE
) printf(" ZE");
377 if (pcr_tmp
& FPA_PCR_AE_EE
) printf(" EE");
378 if (pcr_tmp
& FPA_PCR_AE_IE
) printf(" IE");
382 print_1167_regs(regs
)
383 long regs
[FPA_NREGS
];
398 for (i
= 0; i
< FPA_NREGS
; i
++) {
400 printf("%%fp%d: raw= %#x, single= %f", i
+1, regs
[i
], xf
.f
);
406 printf(", double= %f\n", xd
.d
);
417 if (ep
.pr_fpa
.fpa_pcr
!=0) {
419 print_1167_control_word(ep
.pr_fpa
.fpa_pcr
);
420 print_1167_regs(ep
.pr_fpa
.fpa_regs
);
422 printf(" not in use.\n");
428 char ubuf
[UPAGES
*NBPG
];
429 struct pt_regset regset
;
432 if (have_inferior_p()) {
433 call_ptrace(XPT_RREGS
, inferior_pid
, ®set
, 0);
435 if (lseek (corechan
, 0, 0) < 0) {
436 perror ("seek on core file");
438 if (myread (corechan
, ubuf
, UPAGES
*NBPG
) < 0) {
439 perror ("read on core file");
441 /* only interested in the floating point registers */
442 regset
.pr_fpu
= ((struct user
*) ubuf
)->u_fpusave
;
443 regset
.pr_fpa
= ((struct user
*) ubuf
)->u_fpasave
;
445 print_fpu_status(regset
);
446 print_fpa_status(regset
);
This page took 0.041021 seconds and 3 git commands to generate.