1 /* S390 native-dependent code for GDB, the GNU debugger.
2 Copyright (C) 2001-2016 Free Software Foundation, Inc.
4 Contributed by D.J. Barrow (djbarrow@de.ibm.com,barrow_dj@yahoo.com)
5 for IBM Deutschland Entwicklung GmbH, IBM Corporation.
7 This file is part of GDB.
9 This program is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 3 of the License, or
12 (at your option) any later version.
14 This program is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
19 You should have received a copy of the GNU General Public License
20 along with this program. If not, see <http://www.gnu.org/licenses/>. */
26 #include "linux-nat.h"
30 #include "nat/linux-ptrace.h"
32 #include "s390-linux-tdep.h"
33 #include "elf/common.h"
35 #include <asm/ptrace.h>
36 #include "nat/gdb_ptrace.h"
37 #include <asm/types.h>
38 #include <sys/procfs.h>
39 #include <sys/ucontext.h>
42 /* Per-thread arch-specific data. */
46 /* Non-zero if the thread's PER info must be re-written. */
50 static int have_regset_last_break
= 0;
51 static int have_regset_system_call
= 0;
52 static int have_regset_tdb
= 0;
53 static int have_regset_vxrs
= 0;
55 /* Register map for 32-bit executables running under a 64-bit
59 static const struct regcache_map_entry s390_64_regmap_gregset
[] =
61 /* Skip PSWM and PSWA, since they must be handled specially. */
62 { 2, REGCACHE_MAP_SKIP
, 8 },
63 { 1, S390_R0_UPPER_REGNUM
, 4 }, { 1, S390_R0_REGNUM
, 4 },
64 { 1, S390_R1_UPPER_REGNUM
, 4 }, { 1, S390_R1_REGNUM
, 4 },
65 { 1, S390_R2_UPPER_REGNUM
, 4 }, { 1, S390_R2_REGNUM
, 4 },
66 { 1, S390_R3_UPPER_REGNUM
, 4 }, { 1, S390_R3_REGNUM
, 4 },
67 { 1, S390_R4_UPPER_REGNUM
, 4 }, { 1, S390_R4_REGNUM
, 4 },
68 { 1, S390_R5_UPPER_REGNUM
, 4 }, { 1, S390_R5_REGNUM
, 4 },
69 { 1, S390_R6_UPPER_REGNUM
, 4 }, { 1, S390_R6_REGNUM
, 4 },
70 { 1, S390_R7_UPPER_REGNUM
, 4 }, { 1, S390_R7_REGNUM
, 4 },
71 { 1, S390_R8_UPPER_REGNUM
, 4 }, { 1, S390_R8_REGNUM
, 4 },
72 { 1, S390_R9_UPPER_REGNUM
, 4 }, { 1, S390_R9_REGNUM
, 4 },
73 { 1, S390_R10_UPPER_REGNUM
, 4 }, { 1, S390_R10_REGNUM
, 4 },
74 { 1, S390_R11_UPPER_REGNUM
, 4 }, { 1, S390_R11_REGNUM
, 4 },
75 { 1, S390_R12_UPPER_REGNUM
, 4 }, { 1, S390_R12_REGNUM
, 4 },
76 { 1, S390_R13_UPPER_REGNUM
, 4 }, { 1, S390_R13_REGNUM
, 4 },
77 { 1, S390_R14_UPPER_REGNUM
, 4 }, { 1, S390_R14_REGNUM
, 4 },
78 { 1, S390_R15_UPPER_REGNUM
, 4 }, { 1, S390_R15_REGNUM
, 4 },
79 { 16, S390_A0_REGNUM
, 4 },
80 { 1, REGCACHE_MAP_SKIP
, 4 }, { 1, S390_ORIG_R2_REGNUM
, 4 },
84 static const struct regset s390_64_gregset
=
86 s390_64_regmap_gregset
,
87 regcache_supply_regset
,
88 regcache_collect_regset
91 #define S390_PSWM_OFFSET 0
92 #define S390_PSWA_OFFSET 8
95 /* Fill GDB's register array with the general-purpose register values
98 When debugging a 32-bit executable running under a 64-bit kernel,
99 we have to fix up the 64-bit registers we get from the kernel to
100 make them look like 32-bit registers. */
103 supply_gregset (struct regcache
*regcache
, const gregset_t
*regp
)
106 struct gdbarch
*gdbarch
= get_regcache_arch (regcache
);
107 if (gdbarch_ptr_bit (gdbarch
) == 32)
109 enum bfd_endian byte_order
= gdbarch_byte_order (gdbarch
);
113 regcache_supply_regset (&s390_64_gregset
, regcache
, -1,
114 regp
, sizeof (gregset_t
));
115 pswm
= extract_unsigned_integer ((const gdb_byte
*) regp
116 + S390_PSWM_OFFSET
, 8, byte_order
);
117 pswa
= extract_unsigned_integer ((const gdb_byte
*) regp
118 + S390_PSWA_OFFSET
, 8, byte_order
);
119 store_unsigned_integer (buf
, 4, byte_order
, (pswm
>> 32) | 0x80000);
120 regcache_raw_supply (regcache
, S390_PSWM_REGNUM
, buf
);
121 store_unsigned_integer (buf
, 4, byte_order
,
122 (pswa
& 0x7fffffff) | (pswm
& 0x80000000));
123 regcache_raw_supply (regcache
, S390_PSWA_REGNUM
, buf
);
128 regcache_supply_regset (&s390_gregset
, regcache
, -1, regp
,
132 /* Fill register REGNO (if it is a general-purpose register) in
133 *REGP with the value in GDB's register array. If REGNO is -1,
134 do this for all registers. */
137 fill_gregset (const struct regcache
*regcache
, gregset_t
*regp
, int regno
)
140 struct gdbarch
*gdbarch
= get_regcache_arch (regcache
);
141 if (gdbarch_ptr_bit (gdbarch
) == 32)
143 regcache_collect_regset (&s390_64_gregset
, regcache
, regno
,
144 regp
, sizeof (gregset_t
));
147 || regno
== S390_PSWM_REGNUM
|| regno
== S390_PSWA_REGNUM
)
149 enum bfd_endian byte_order
= gdbarch_byte_order (gdbarch
);
152 gdb_byte
*pswm_p
= (gdb_byte
*) regp
+ S390_PSWM_OFFSET
;
153 gdb_byte
*pswa_p
= (gdb_byte
*) regp
+ S390_PSWA_OFFSET
;
155 pswm
= extract_unsigned_integer (pswm_p
, 8, byte_order
);
157 if (regno
== -1 || regno
== S390_PSWM_REGNUM
)
160 regcache_raw_collect (regcache
, S390_PSWM_REGNUM
, buf
);
161 pswm
|= (extract_unsigned_integer (buf
, 4, byte_order
)
165 if (regno
== -1 || regno
== S390_PSWA_REGNUM
)
167 regcache_raw_collect (regcache
, S390_PSWA_REGNUM
, buf
);
168 pswa
= extract_unsigned_integer (buf
, 4, byte_order
);
169 pswm
^= (pswm
^ pswa
) & 0x80000000;
171 store_unsigned_integer (pswa_p
, 8, byte_order
, pswa
);
174 store_unsigned_integer (pswm_p
, 8, byte_order
, pswm
);
180 regcache_collect_regset (&s390_gregset
, regcache
, regno
, regp
,
184 /* Fill GDB's register array with the floating-point register values
187 supply_fpregset (struct regcache
*regcache
, const fpregset_t
*regp
)
189 regcache_supply_regset (&s390_fpregset
, regcache
, -1, regp
,
190 sizeof (fpregset_t
));
193 /* Fill register REGNO (if it is a general-purpose register) in
194 *REGP with the value in GDB's register array. If REGNO is -1,
195 do this for all registers. */
197 fill_fpregset (const struct regcache
*regcache
, fpregset_t
*regp
, int regno
)
199 regcache_collect_regset (&s390_fpregset
, regcache
, regno
, regp
,
200 sizeof (fpregset_t
));
203 /* Find the TID for the current inferior thread to use with ptrace. */
205 s390_inferior_tid (void)
207 /* GNU/Linux LWP ID's are process ID's. */
208 int tid
= ptid_get_lwp (inferior_ptid
);
210 tid
= ptid_get_pid (inferior_ptid
); /* Not a threaded program. */
215 /* Fetch all general-purpose registers from process/thread TID and
216 store their values in GDB's register cache. */
218 fetch_regs (struct regcache
*regcache
, int tid
)
223 parea
.len
= sizeof (regs
);
224 parea
.process_addr
= (addr_t
) ®s
;
225 parea
.kernel_addr
= offsetof (struct user_regs_struct
, psw
);
226 if (ptrace (PTRACE_PEEKUSR_AREA
, tid
, (long) &parea
, 0) < 0)
227 perror_with_name (_("Couldn't get registers"));
229 supply_gregset (regcache
, (const gregset_t
*) ®s
);
232 /* Store all valid general-purpose registers in GDB's register cache
233 into the process/thread specified by TID. */
235 store_regs (const struct regcache
*regcache
, int tid
, int regnum
)
240 parea
.len
= sizeof (regs
);
241 parea
.process_addr
= (addr_t
) ®s
;
242 parea
.kernel_addr
= offsetof (struct user_regs_struct
, psw
);
243 if (ptrace (PTRACE_PEEKUSR_AREA
, tid
, (long) &parea
, 0) < 0)
244 perror_with_name (_("Couldn't get registers"));
246 fill_gregset (regcache
, ®s
, regnum
);
248 if (ptrace (PTRACE_POKEUSR_AREA
, tid
, (long) &parea
, 0) < 0)
249 perror_with_name (_("Couldn't write registers"));
252 /* Fetch all floating-point registers from process/thread TID and store
253 their values in GDB's register cache. */
255 fetch_fpregs (struct regcache
*regcache
, int tid
)
260 parea
.len
= sizeof (fpregs
);
261 parea
.process_addr
= (addr_t
) &fpregs
;
262 parea
.kernel_addr
= offsetof (struct user_regs_struct
, fp_regs
);
263 if (ptrace (PTRACE_PEEKUSR_AREA
, tid
, (long) &parea
, 0) < 0)
264 perror_with_name (_("Couldn't get floating point status"));
266 supply_fpregset (regcache
, (const fpregset_t
*) &fpregs
);
269 /* Store all valid floating-point registers in GDB's register cache
270 into the process/thread specified by TID. */
272 store_fpregs (const struct regcache
*regcache
, int tid
, int regnum
)
277 parea
.len
= sizeof (fpregs
);
278 parea
.process_addr
= (addr_t
) &fpregs
;
279 parea
.kernel_addr
= offsetof (struct user_regs_struct
, fp_regs
);
280 if (ptrace (PTRACE_PEEKUSR_AREA
, tid
, (long) &parea
, 0) < 0)
281 perror_with_name (_("Couldn't get floating point status"));
283 fill_fpregset (regcache
, &fpregs
, regnum
);
285 if (ptrace (PTRACE_POKEUSR_AREA
, tid
, (long) &parea
, 0) < 0)
286 perror_with_name (_("Couldn't write floating point status"));
289 /* Fetch all registers in the kernel's register set whose number is
290 REGSET_ID, whose size is REGSIZE, and whose layout is described by
291 REGSET, from process/thread TID and store their values in GDB's
294 fetch_regset (struct regcache
*regcache
, int tid
,
295 int regset_id
, int regsize
, const struct regset
*regset
)
297 void *buf
= alloca (regsize
);
301 iov
.iov_len
= regsize
;
303 if (ptrace (PTRACE_GETREGSET
, tid
, (long) regset_id
, (long) &iov
) < 0)
305 if (errno
== ENODATA
)
306 regcache_supply_regset (regset
, regcache
, -1, NULL
, regsize
);
308 perror_with_name (_("Couldn't get register set"));
311 regcache_supply_regset (regset
, regcache
, -1, buf
, regsize
);
314 /* Store all registers in the kernel's register set whose number is
315 REGSET_ID, whose size is REGSIZE, and whose layout is described by
316 REGSET, from GDB's register cache back to process/thread TID. */
318 store_regset (struct regcache
*regcache
, int tid
,
319 int regset_id
, int regsize
, const struct regset
*regset
)
321 void *buf
= alloca (regsize
);
325 iov
.iov_len
= regsize
;
327 if (ptrace (PTRACE_GETREGSET
, tid
, (long) regset_id
, (long) &iov
) < 0)
328 perror_with_name (_("Couldn't get register set"));
330 regcache_collect_regset (regset
, regcache
, -1, buf
, regsize
);
332 if (ptrace (PTRACE_SETREGSET
, tid
, (long) regset_id
, (long) &iov
) < 0)
333 perror_with_name (_("Couldn't set register set"));
336 /* Check whether the kernel provides a register set with number REGSET
337 of size REGSIZE for process/thread TID. */
339 check_regset (int tid
, int regset
, int regsize
)
341 void *buf
= alloca (regsize
);
345 iov
.iov_len
= regsize
;
347 if (ptrace (PTRACE_GETREGSET
, tid
, (long) regset
, (long) &iov
) >= 0
353 /* Fetch register REGNUM from the child process. If REGNUM is -1, do
354 this for all registers. */
356 s390_linux_fetch_inferior_registers (struct target_ops
*ops
,
357 struct regcache
*regcache
, int regnum
)
359 int tid
= s390_inferior_tid ();
361 if (regnum
== -1 || S390_IS_GREGSET_REGNUM (regnum
))
362 fetch_regs (regcache
, tid
);
364 if (regnum
== -1 || S390_IS_FPREGSET_REGNUM (regnum
))
365 fetch_fpregs (regcache
, tid
);
367 if (have_regset_last_break
)
368 if (regnum
== -1 || regnum
== S390_LAST_BREAK_REGNUM
)
369 fetch_regset (regcache
, tid
, NT_S390_LAST_BREAK
, 8,
370 (gdbarch_ptr_bit (get_regcache_arch (regcache
)) == 32
371 ? &s390_last_break_regset
: &s390x_last_break_regset
));
373 if (have_regset_system_call
)
374 if (regnum
== -1 || regnum
== S390_SYSTEM_CALL_REGNUM
)
375 fetch_regset (regcache
, tid
, NT_S390_SYSTEM_CALL
, 4,
376 &s390_system_call_regset
);
379 if (regnum
== -1 || S390_IS_TDBREGSET_REGNUM (regnum
))
380 fetch_regset (regcache
, tid
, NT_S390_TDB
, s390_sizeof_tdbregset
,
383 if (have_regset_vxrs
)
385 if (regnum
== -1 || (regnum
>= S390_V0_LOWER_REGNUM
386 && regnum
<= S390_V15_LOWER_REGNUM
))
387 fetch_regset (regcache
, tid
, NT_S390_VXRS_LOW
, 16 * 8,
388 &s390_vxrs_low_regset
);
389 if (regnum
== -1 || (regnum
>= S390_V16_REGNUM
390 && regnum
<= S390_V31_REGNUM
))
391 fetch_regset (regcache
, tid
, NT_S390_VXRS_HIGH
, 16 * 16,
392 &s390_vxrs_high_regset
);
396 /* Store register REGNUM back into the child process. If REGNUM is
397 -1, do this for all registers. */
399 s390_linux_store_inferior_registers (struct target_ops
*ops
,
400 struct regcache
*regcache
, int regnum
)
402 int tid
= s390_inferior_tid ();
404 if (regnum
== -1 || S390_IS_GREGSET_REGNUM (regnum
))
405 store_regs (regcache
, tid
, regnum
);
407 if (regnum
== -1 || S390_IS_FPREGSET_REGNUM (regnum
))
408 store_fpregs (regcache
, tid
, regnum
);
410 /* S390_LAST_BREAK_REGNUM is read-only. */
412 if (have_regset_system_call
)
413 if (regnum
== -1 || regnum
== S390_SYSTEM_CALL_REGNUM
)
414 store_regset (regcache
, tid
, NT_S390_SYSTEM_CALL
, 4,
415 &s390_system_call_regset
);
417 if (have_regset_vxrs
)
419 if (regnum
== -1 || (regnum
>= S390_V0_LOWER_REGNUM
420 && regnum
<= S390_V15_LOWER_REGNUM
))
421 store_regset (regcache
, tid
, NT_S390_VXRS_LOW
, 16 * 8,
422 &s390_vxrs_low_regset
);
423 if (regnum
== -1 || (regnum
>= S390_V16_REGNUM
424 && regnum
<= S390_V31_REGNUM
))
425 store_regset (regcache
, tid
, NT_S390_VXRS_HIGH
, 16 * 16,
426 &s390_vxrs_high_regset
);
431 /* Hardware-assisted watchpoint handling. */
433 /* We maintain a list of all currently active watchpoints in order
434 to properly handle watchpoint removal.
436 The only thing we actually need is the total address space area
437 spanned by the watchpoints. */
439 typedef struct watch_area
445 DEF_VEC_O (s390_watch_area
);
447 VEC_s390_watch_area
*watch_areas
= NULL
;
450 s390_stopped_by_watchpoint (struct target_ops
*ops
)
452 per_lowcore_bits per_lowcore
;
456 /* Speed up common case. */
457 if (VEC_empty (s390_watch_area
, watch_areas
))
460 parea
.len
= sizeof (per_lowcore
);
461 parea
.process_addr
= (addr_t
) & per_lowcore
;
462 parea
.kernel_addr
= offsetof (struct user_regs_struct
, per_info
.lowcore
);
463 if (ptrace (PTRACE_PEEKUSR_AREA
, s390_inferior_tid (), &parea
, 0) < 0)
464 perror_with_name (_("Couldn't retrieve watchpoint status"));
466 result
= (per_lowcore
.perc_storage_alteration
== 1
467 && per_lowcore
.perc_store_real_address
== 0);
471 /* Do not report this watchpoint again. */
472 memset (&per_lowcore
, 0, sizeof (per_lowcore
));
473 if (ptrace (PTRACE_POKEUSR_AREA
, s390_inferior_tid (), &parea
, 0) < 0)
474 perror_with_name (_("Couldn't clear watchpoint status"));
480 /* Each time before resuming a thread, update its PER info. */
483 s390_prepare_to_resume (struct lwp_info
*lp
)
490 CORE_ADDR watch_lo_addr
= (CORE_ADDR
)-1, watch_hi_addr
= 0;
492 s390_watch_area
*area
;
493 struct arch_lwp_info
*lp_priv
= lwp_arch_private_info (lp
);
495 if (lp_priv
== NULL
|| !lp_priv
->per_info_changed
)
498 lp_priv
->per_info_changed
= 0;
500 tid
= ptid_get_lwp (ptid_of_lwp (lp
));
502 tid
= ptid_get_pid (ptid_of_lwp (lp
));
504 parea
.len
= sizeof (per_info
);
505 parea
.process_addr
= (addr_t
) & per_info
;
506 parea
.kernel_addr
= offsetof (struct user_regs_struct
, per_info
);
507 if (ptrace (PTRACE_PEEKUSR_AREA
, tid
, &parea
, 0) < 0)
508 perror_with_name (_("Couldn't retrieve watchpoint status"));
510 if (!VEC_empty (s390_watch_area
, watch_areas
))
513 VEC_iterate (s390_watch_area
, watch_areas
, ix
, area
);
516 watch_lo_addr
= min (watch_lo_addr
, area
->lo_addr
);
517 watch_hi_addr
= max (watch_hi_addr
, area
->hi_addr
);
520 per_info
.control_regs
.bits
.em_storage_alteration
= 1;
521 per_info
.control_regs
.bits
.storage_alt_space_ctl
= 1;
525 per_info
.control_regs
.bits
.em_storage_alteration
= 0;
526 per_info
.control_regs
.bits
.storage_alt_space_ctl
= 0;
528 per_info
.starting_addr
= watch_lo_addr
;
529 per_info
.ending_addr
= watch_hi_addr
;
531 if (ptrace (PTRACE_POKEUSR_AREA
, tid
, &parea
, 0) < 0)
532 perror_with_name (_("Couldn't modify watchpoint status"));
535 /* Mark the PER info as changed, so the next resume will update it. */
538 s390_mark_per_info_changed (struct lwp_info
*lp
)
540 if (lwp_arch_private_info (lp
) == NULL
)
541 lwp_set_arch_private_info (lp
, XCNEW (struct arch_lwp_info
));
543 lwp_arch_private_info (lp
)->per_info_changed
= 1;
546 /* When attaching to a new thread, mark its PER info as changed. */
549 s390_new_thread (struct lwp_info
*lp
)
551 s390_mark_per_info_changed (lp
);
554 /* Iterator callback for s390_refresh_per_info. */
557 s390_refresh_per_info_cb (struct lwp_info
*lp
, void *arg
)
559 s390_mark_per_info_changed (lp
);
561 if (!lwp_is_stopped (lp
))
566 /* Make sure that threads are stopped and mark PER info as changed. */
569 s390_refresh_per_info (void)
571 ptid_t pid_ptid
= pid_to_ptid (ptid_get_pid (current_lwp_ptid ()));
573 iterate_over_lwps (pid_ptid
, s390_refresh_per_info_cb
, NULL
);
578 s390_insert_watchpoint (struct target_ops
*self
,
579 CORE_ADDR addr
, int len
, enum target_hw_bp_type type
,
580 struct expression
*cond
)
582 s390_watch_area area
;
585 area
.hi_addr
= addr
+ len
- 1;
586 VEC_safe_push (s390_watch_area
, watch_areas
, &area
);
588 return s390_refresh_per_info ();
592 s390_remove_watchpoint (struct target_ops
*self
,
593 CORE_ADDR addr
, int len
, enum target_hw_bp_type type
,
594 struct expression
*cond
)
597 s390_watch_area
*area
;
600 VEC_iterate (s390_watch_area
, watch_areas
, ix
, area
);
603 if (area
->lo_addr
== addr
&& area
->hi_addr
== addr
+ len
- 1)
605 VEC_unordered_remove (s390_watch_area
, watch_areas
, ix
);
606 return s390_refresh_per_info ();
610 fprintf_unfiltered (gdb_stderr
,
611 "Attempt to remove nonexistent watchpoint.\n");
616 s390_can_use_hw_breakpoint (struct target_ops
*self
,
617 enum bptype type
, int cnt
, int othertype
)
619 return type
== bp_hardware_watchpoint
;
623 s390_region_ok_for_hw_watchpoint (struct target_ops
*self
,
624 CORE_ADDR addr
, int cnt
)
630 s390_target_wordsize (void)
634 /* Check for 64-bit inferior process. This is the case when the host is
635 64-bit, and in addition bit 32 of the PSW mask is set. */
640 pswm
= (long) ptrace (PTRACE_PEEKUSER
, s390_inferior_tid (), PT_PSWMASK
, 0);
641 if (errno
== 0 && (pswm
& 0x100000000ul
) != 0)
649 s390_auxv_parse (struct target_ops
*ops
, gdb_byte
**readptr
,
650 gdb_byte
*endptr
, CORE_ADDR
*typep
, CORE_ADDR
*valp
)
652 int sizeof_auxv_field
= s390_target_wordsize ();
653 enum bfd_endian byte_order
= gdbarch_byte_order (target_gdbarch ());
654 gdb_byte
*ptr
= *readptr
;
659 if (endptr
- ptr
< sizeof_auxv_field
* 2)
662 *typep
= extract_unsigned_integer (ptr
, sizeof_auxv_field
, byte_order
);
663 ptr
+= sizeof_auxv_field
;
664 *valp
= extract_unsigned_integer (ptr
, sizeof_auxv_field
, byte_order
);
665 ptr
+= sizeof_auxv_field
;
671 static const struct target_desc
*
672 s390_read_description (struct target_ops
*ops
)
674 int tid
= s390_inferior_tid ();
676 have_regset_last_break
677 = check_regset (tid
, NT_S390_LAST_BREAK
, 8);
678 have_regset_system_call
679 = check_regset (tid
, NT_S390_SYSTEM_CALL
, 4);
681 /* If GDB itself is compiled as 64-bit, we are running on a machine in
682 z/Architecture mode. If the target is running in 64-bit addressing
683 mode, report s390x architecture. If the target is running in 31-bit
684 addressing mode, but the kernel supports using 64-bit registers in
685 that mode, report s390 architecture with 64-bit GPRs. */
690 target_auxv_search (¤t_target
, AT_HWCAP
, &hwcap
);
691 have_regset_tdb
= (hwcap
& HWCAP_S390_TE
)
692 && check_regset (tid
, NT_S390_TDB
, s390_sizeof_tdbregset
);
694 have_regset_vxrs
= (hwcap
& HWCAP_S390_VX
)
695 && check_regset (tid
, NT_S390_VXRS_LOW
, 16 * 8)
696 && check_regset (tid
, NT_S390_VXRS_HIGH
, 16 * 16);
698 if (s390_target_wordsize () == 8)
699 return (have_regset_vxrs
?
700 (have_regset_tdb
? tdesc_s390x_tevx_linux64
:
701 tdesc_s390x_vx_linux64
) :
702 have_regset_tdb
? tdesc_s390x_te_linux64
:
703 have_regset_system_call
? tdesc_s390x_linux64v2
:
704 have_regset_last_break
? tdesc_s390x_linux64v1
:
705 tdesc_s390x_linux64
);
707 if (hwcap
& HWCAP_S390_HIGH_GPRS
)
708 return (have_regset_vxrs
?
709 (have_regset_tdb
? tdesc_s390_tevx_linux64
:
710 tdesc_s390_vx_linux64
) :
711 have_regset_tdb
? tdesc_s390_te_linux64
:
712 have_regset_system_call
? tdesc_s390_linux64v2
:
713 have_regset_last_break
? tdesc_s390_linux64v1
:
718 /* If GDB itself is compiled as 31-bit, or if we're running a 31-bit inferior
719 on a 64-bit kernel that does not support using 64-bit registers in 31-bit
720 mode, report s390 architecture with 32-bit GPRs. */
721 return (have_regset_system_call
? tdesc_s390_linux32v2
:
722 have_regset_last_break
? tdesc_s390_linux32v1
:
726 void _initialize_s390_nat (void);
729 _initialize_s390_nat (void)
731 struct target_ops
*t
;
733 /* Fill in the generic GNU/Linux methods. */
736 /* Add our register access methods. */
737 t
->to_fetch_registers
= s390_linux_fetch_inferior_registers
;
738 t
->to_store_registers
= s390_linux_store_inferior_registers
;
740 /* Add our watchpoint methods. */
741 t
->to_can_use_hw_breakpoint
= s390_can_use_hw_breakpoint
;
742 t
->to_region_ok_for_hw_watchpoint
= s390_region_ok_for_hw_watchpoint
;
743 t
->to_have_continuable_watchpoint
= 1;
744 t
->to_stopped_by_watchpoint
= s390_stopped_by_watchpoint
;
745 t
->to_insert_watchpoint
= s390_insert_watchpoint
;
746 t
->to_remove_watchpoint
= s390_remove_watchpoint
;
748 /* Detect target architecture. */
749 t
->to_read_description
= s390_read_description
;
750 t
->to_auxv_parse
= s390_auxv_parse
;
752 /* Register the target. */
753 linux_nat_add_target (t
);
754 linux_nat_set_new_thread (t
, s390_new_thread
);
755 linux_nat_set_prepare_to_resume (t
, s390_prepare_to_resume
);