Add the target_ops needed for software breakpoints in GDBServer.
[deliverable/binutils-gdb.git] / gdb / gdbserver / linux-s390-low.c
1 /* GNU/Linux S/390 specific low level interface, for the remote server
2 for GDB.
3 Copyright (C) 2001-2015 Free Software Foundation, Inc.
4
5 This file is part of GDB.
6
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3 of the License, or
10 (at your option) any later version.
11
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
16
17 You should have received a copy of the GNU General Public License
18 along with this program. If not, see <http://www.gnu.org/licenses/>. */
19
20 /* This file is used for both 31-bit and 64-bit S/390 systems. */
21
22 #include "server.h"
23 #include "linux-low.h"
24 #include "elf/common.h"
25
26 #include <asm/ptrace.h>
27 #include "nat/gdb_ptrace.h"
28 #include <sys/uio.h>
29 #include <elf.h>
30
31 #ifndef HWCAP_S390_HIGH_GPRS
32 #define HWCAP_S390_HIGH_GPRS 512
33 #endif
34
35 #ifndef HWCAP_S390_TE
36 #define HWCAP_S390_TE 1024
37 #endif
38
39 #ifndef HWCAP_S390_VX
40 #define HWCAP_S390_VX 2048
41 #endif
42
43 /* Defined in auto-generated file s390-linux32.c. */
44 void init_registers_s390_linux32 (void);
45 extern const struct target_desc *tdesc_s390_linux32;
46
47 /* Defined in auto-generated file s390-linux32v1.c. */
48 void init_registers_s390_linux32v1 (void);
49 extern const struct target_desc *tdesc_s390_linux32v1;
50
51 /* Defined in auto-generated file s390-linux32v2.c. */
52 void init_registers_s390_linux32v2 (void);
53 extern const struct target_desc *tdesc_s390_linux32v2;
54
55 /* Defined in auto-generated file s390-linux64.c. */
56 void init_registers_s390_linux64 (void);
57 extern const struct target_desc *tdesc_s390_linux64;
58
59 /* Defined in auto-generated file s390-linux64v1.c. */
60 void init_registers_s390_linux64v1 (void);
61 extern const struct target_desc *tdesc_s390_linux64v1;
62
63 /* Defined in auto-generated file s390-linux64v2.c. */
64 void init_registers_s390_linux64v2 (void);
65 extern const struct target_desc *tdesc_s390_linux64v2;
66
67 /* Defined in auto-generated file s390-te-linux64.c. */
68 void init_registers_s390_te_linux64 (void);
69 extern const struct target_desc *tdesc_s390_te_linux64;
70
71 /* Defined in auto-generated file s390-vx-linux64.c. */
72 void init_registers_s390_vx_linux64 (void);
73 extern const struct target_desc *tdesc_s390_vx_linux64;
74
75 /* Defined in auto-generated file s390-tevx-linux64.c. */
76 void init_registers_s390_tevx_linux64 (void);
77 extern const struct target_desc *tdesc_s390_tevx_linux64;
78
79 /* Defined in auto-generated file s390x-linux64.c. */
80 void init_registers_s390x_linux64 (void);
81 extern const struct target_desc *tdesc_s390x_linux64;
82
83 /* Defined in auto-generated file s390x-linux64v1.c. */
84 void init_registers_s390x_linux64v1 (void);
85 extern const struct target_desc *tdesc_s390x_linux64v1;
86
87 /* Defined in auto-generated file s390x-linux64v2.c. */
88 void init_registers_s390x_linux64v2 (void);
89 extern const struct target_desc *tdesc_s390x_linux64v2;
90
91 /* Defined in auto-generated file s390x-te-linux64.c. */
92 void init_registers_s390x_te_linux64 (void);
93 extern const struct target_desc *tdesc_s390x_te_linux64;
94
95 /* Defined in auto-generated file s390x-vx-linux64.c. */
96 void init_registers_s390x_vx_linux64 (void);
97 extern const struct target_desc *tdesc_s390x_vx_linux64;
98
99 /* Defined in auto-generated file s390x-tevx-linux64.c. */
100 void init_registers_s390x_tevx_linux64 (void);
101 extern const struct target_desc *tdesc_s390x_tevx_linux64;
102
103 #define s390_num_regs 52
104
105 static int s390_regmap[] = {
106 PT_PSWMASK, PT_PSWADDR,
107
108 PT_GPR0, PT_GPR1, PT_GPR2, PT_GPR3,
109 PT_GPR4, PT_GPR5, PT_GPR6, PT_GPR7,
110 PT_GPR8, PT_GPR9, PT_GPR10, PT_GPR11,
111 PT_GPR12, PT_GPR13, PT_GPR14, PT_GPR15,
112
113 PT_ACR0, PT_ACR1, PT_ACR2, PT_ACR3,
114 PT_ACR4, PT_ACR5, PT_ACR6, PT_ACR7,
115 PT_ACR8, PT_ACR9, PT_ACR10, PT_ACR11,
116 PT_ACR12, PT_ACR13, PT_ACR14, PT_ACR15,
117
118 PT_FPC,
119
120 #ifndef __s390x__
121 PT_FPR0_HI, PT_FPR1_HI, PT_FPR2_HI, PT_FPR3_HI,
122 PT_FPR4_HI, PT_FPR5_HI, PT_FPR6_HI, PT_FPR7_HI,
123 PT_FPR8_HI, PT_FPR9_HI, PT_FPR10_HI, PT_FPR11_HI,
124 PT_FPR12_HI, PT_FPR13_HI, PT_FPR14_HI, PT_FPR15_HI,
125 #else
126 PT_FPR0, PT_FPR1, PT_FPR2, PT_FPR3,
127 PT_FPR4, PT_FPR5, PT_FPR6, PT_FPR7,
128 PT_FPR8, PT_FPR9, PT_FPR10, PT_FPR11,
129 PT_FPR12, PT_FPR13, PT_FPR14, PT_FPR15,
130 #endif
131
132 PT_ORIGGPR2,
133 };
134
135 #ifdef __s390x__
136 #define s390_num_regs_3264 68
137
138 static int s390_regmap_3264[] = {
139 PT_PSWMASK, PT_PSWADDR,
140
141 PT_GPR0, PT_GPR0, PT_GPR1, PT_GPR1,
142 PT_GPR2, PT_GPR2, PT_GPR3, PT_GPR3,
143 PT_GPR4, PT_GPR4, PT_GPR5, PT_GPR5,
144 PT_GPR6, PT_GPR6, PT_GPR7, PT_GPR7,
145 PT_GPR8, PT_GPR8, PT_GPR9, PT_GPR9,
146 PT_GPR10, PT_GPR10, PT_GPR11, PT_GPR11,
147 PT_GPR12, PT_GPR12, PT_GPR13, PT_GPR13,
148 PT_GPR14, PT_GPR14, PT_GPR15, PT_GPR15,
149
150 PT_ACR0, PT_ACR1, PT_ACR2, PT_ACR3,
151 PT_ACR4, PT_ACR5, PT_ACR6, PT_ACR7,
152 PT_ACR8, PT_ACR9, PT_ACR10, PT_ACR11,
153 PT_ACR12, PT_ACR13, PT_ACR14, PT_ACR15,
154
155 PT_FPC,
156
157 PT_FPR0, PT_FPR1, PT_FPR2, PT_FPR3,
158 PT_FPR4, PT_FPR5, PT_FPR6, PT_FPR7,
159 PT_FPR8, PT_FPR9, PT_FPR10, PT_FPR11,
160 PT_FPR12, PT_FPR13, PT_FPR14, PT_FPR15,
161
162 PT_ORIGGPR2,
163 };
164 #endif
165
166
167 static int
168 s390_cannot_fetch_register (int regno)
169 {
170 return 0;
171 }
172
173 static int
174 s390_cannot_store_register (int regno)
175 {
176 return 0;
177 }
178
179 static void
180 s390_collect_ptrace_register (struct regcache *regcache, int regno, char *buf)
181 {
182 int size = register_size (regcache->tdesc, regno);
183 if (size < sizeof (long))
184 {
185 const struct regs_info *regs_info = (*the_low_target.regs_info) ();
186 struct usrregs_info *usr = regs_info->usrregs;
187 int regaddr = usr->regmap[regno];
188
189 memset (buf, 0, sizeof (long));
190
191 if ((regno ^ 1) < usr->num_regs
192 && usr->regmap[regno ^ 1] == regaddr)
193 {
194 collect_register (regcache, regno & ~1, buf);
195 collect_register (regcache, (regno & ~1) + 1,
196 buf + sizeof (long) - size);
197 }
198 else if (regaddr == PT_PSWMASK)
199 {
200 /* Convert 4-byte PSW mask to 8 bytes by clearing bit 12 and copying
201 the basic addressing mode bit from the PSW address. */
202 char *addr = alloca (register_size (regcache->tdesc, regno ^ 1));
203 collect_register (regcache, regno, buf);
204 collect_register (regcache, regno ^ 1, addr);
205 buf[1] &= ~0x8;
206 buf[size] |= (addr[0] & 0x80);
207 }
208 else if (regaddr == PT_PSWADDR)
209 {
210 /* Convert 4-byte PSW address to 8 bytes by clearing the addressing
211 mode bit (which gets copied to the PSW mask instead). */
212 collect_register (regcache, regno, buf + sizeof (long) - size);
213 buf[sizeof (long) - size] &= ~0x80;
214 }
215 else if ((regaddr >= PT_GPR0 && regaddr <= PT_GPR15)
216 || regaddr == PT_ORIGGPR2)
217 collect_register (regcache, regno, buf + sizeof (long) - size);
218 else
219 collect_register (regcache, regno, buf);
220 }
221 else
222 collect_register (regcache, regno, buf);
223 }
224
225 static void
226 s390_supply_ptrace_register (struct regcache *regcache,
227 int regno, const char *buf)
228 {
229 int size = register_size (regcache->tdesc, regno);
230 if (size < sizeof (long))
231 {
232 const struct regs_info *regs_info = (*the_low_target.regs_info) ();
233 struct usrregs_info *usr = regs_info->usrregs;
234 int regaddr = usr->regmap[regno];
235
236 if ((regno ^ 1) < usr->num_regs
237 && usr->regmap[regno ^ 1] == regaddr)
238 {
239 supply_register (regcache, regno & ~1, buf);
240 supply_register (regcache, (regno & ~1) + 1,
241 buf + sizeof (long) - size);
242 }
243 else if (regaddr == PT_PSWMASK)
244 {
245 /* Convert 8-byte PSW mask to 4 bytes by setting bit 12 and copying
246 the basic addressing mode into the PSW address. */
247 char *mask = alloca (size);
248 char *addr = alloca (register_size (regcache->tdesc, regno ^ 1));
249 memcpy (mask, buf, size);
250 mask[1] |= 0x8;
251 supply_register (regcache, regno, mask);
252
253 collect_register (regcache, regno ^ 1, addr);
254 addr[0] &= ~0x80;
255 addr[0] |= (buf[size] & 0x80);
256 supply_register (regcache, regno ^ 1, addr);
257 }
258 else if (regaddr == PT_PSWADDR)
259 {
260 /* Convert 8-byte PSW address to 4 bytes by truncating, but
261 keeping the addressing mode bit (which was set from the mask). */
262 char *addr = alloca (size);
263 char amode;
264 collect_register (regcache, regno, addr);
265 amode = addr[0] & 0x80;
266 memcpy (addr, buf + sizeof (long) - size, size);
267 addr[0] &= ~0x80;
268 addr[0] |= amode;
269 supply_register (regcache, regno, addr);
270 }
271 else if ((regaddr >= PT_GPR0 && regaddr <= PT_GPR15)
272 || regaddr == PT_ORIGGPR2)
273 supply_register (regcache, regno, buf + sizeof (long) - size);
274 else
275 supply_register (regcache, regno, buf);
276 }
277 else
278 supply_register (regcache, regno, buf);
279 }
280
281 /* Provide only a fill function for the general register set. ps_lgetregs
282 will use this for NPTL support. */
283
284 static void
285 s390_fill_gregset (struct regcache *regcache, void *buf)
286 {
287 int i;
288 const struct regs_info *regs_info = (*the_low_target.regs_info) ();
289 struct usrregs_info *usr = regs_info->usrregs;
290
291 for (i = 0; i < usr->num_regs; i++)
292 {
293 if (usr->regmap[i] < PT_PSWMASK
294 || usr->regmap[i] > PT_ACR15)
295 continue;
296
297 s390_collect_ptrace_register (regcache, i,
298 (char *) buf + usr->regmap[i]);
299 }
300 }
301
302 /* Fill and store functions for extended register sets. */
303
304 static void
305 s390_store_last_break (struct regcache *regcache, const void *buf)
306 {
307 const char *p;
308
309 p = (const char *) buf + 8 - register_size (regcache->tdesc, 0);
310 supply_register_by_name (regcache, "last_break", p);
311 }
312
313 static void
314 s390_fill_system_call (struct regcache *regcache, void *buf)
315 {
316 collect_register_by_name (regcache, "system_call", buf);
317 }
318
319 static void
320 s390_store_system_call (struct regcache *regcache, const void *buf)
321 {
322 supply_register_by_name (regcache, "system_call", buf);
323 }
324
325 static void
326 s390_store_tdb (struct regcache *regcache, const void *buf)
327 {
328 int tdb0 = find_regno (regcache->tdesc, "tdb0");
329 int tr0 = find_regno (regcache->tdesc, "tr0");
330 int i;
331
332 for (i = 0; i < 4; i++)
333 supply_register (regcache, tdb0 + i, (const char *) buf + 8 * i);
334
335 for (i = 0; i < 16; i++)
336 supply_register (regcache, tr0 + i, (const char *) buf + 8 * (16 + i));
337 }
338
339 static void
340 s390_fill_vxrs_low (struct regcache *regcache, void *buf)
341 {
342 int v0 = find_regno (regcache->tdesc, "v0l");
343 int i;
344
345 for (i = 0; i < 16; i++)
346 collect_register (regcache, v0 + i, (char *) buf + 8 * i);
347 }
348
349 static void
350 s390_store_vxrs_low (struct regcache *regcache, const void *buf)
351 {
352 int v0 = find_regno (regcache->tdesc, "v0l");
353 int i;
354
355 for (i = 0; i < 16; i++)
356 supply_register (regcache, v0 + i, (const char *) buf + 8 * i);
357 }
358
359 static void
360 s390_fill_vxrs_high (struct regcache *regcache, void *buf)
361 {
362 int v16 = find_regno (regcache->tdesc, "v16");
363 int i;
364
365 for (i = 0; i < 16; i++)
366 collect_register (regcache, v16 + i, (char *) buf + 16 * i);
367 }
368
369 static void
370 s390_store_vxrs_high (struct regcache *regcache, const void *buf)
371 {
372 int v16 = find_regno (regcache->tdesc, "v16");
373 int i;
374
375 for (i = 0; i < 16; i++)
376 supply_register (regcache, v16 + i, (const char *) buf + 16 * i);
377 }
378
379 static struct regset_info s390_regsets[] = {
380 { 0, 0, 0, 0, GENERAL_REGS, s390_fill_gregset, NULL },
381 /* Last break address is read-only; no fill function. */
382 { PTRACE_GETREGSET, -1, NT_S390_LAST_BREAK, 0, EXTENDED_REGS,
383 NULL, s390_store_last_break },
384 { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_S390_SYSTEM_CALL, 0,
385 EXTENDED_REGS, s390_fill_system_call, s390_store_system_call },
386 /* TDB is read-only. */
387 { PTRACE_GETREGSET, -1, NT_S390_TDB, 0, EXTENDED_REGS,
388 NULL, s390_store_tdb },
389 { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_S390_VXRS_LOW, 0,
390 EXTENDED_REGS, s390_fill_vxrs_low, s390_store_vxrs_low },
391 { PTRACE_GETREGSET, PTRACE_SETREGSET, NT_S390_VXRS_HIGH, 0,
392 EXTENDED_REGS, s390_fill_vxrs_high, s390_store_vxrs_high },
393 { 0, 0, 0, -1, -1, NULL, NULL }
394 };
395
396
397 static const gdb_byte s390_breakpoint[] = { 0, 1 };
398 #define s390_breakpoint_len 2
399
400 /* Implementation of linux_target_ops method "sw_breakpoint_from_kind". */
401
402 static const gdb_byte *
403 s390_sw_breakpoint_from_kind (int kind, int *size)
404 {
405 *size = s390_breakpoint_len;
406 return s390_breakpoint;
407 }
408
409 static CORE_ADDR
410 s390_get_pc (struct regcache *regcache)
411 {
412 if (register_size (regcache->tdesc, 0) == 4)
413 {
414 unsigned int pswa;
415 collect_register_by_name (regcache, "pswa", &pswa);
416 return pswa & 0x7fffffff;
417 }
418 else
419 {
420 unsigned long pc;
421 collect_register_by_name (regcache, "pswa", &pc);
422 return pc;
423 }
424 }
425
426 static void
427 s390_set_pc (struct regcache *regcache, CORE_ADDR newpc)
428 {
429 if (register_size (regcache->tdesc, 0) == 4)
430 {
431 unsigned int pswa;
432 collect_register_by_name (regcache, "pswa", &pswa);
433 pswa = (pswa & 0x80000000) | (newpc & 0x7fffffff);
434 supply_register_by_name (regcache, "pswa", &pswa);
435 }
436 else
437 {
438 unsigned long pc = newpc;
439 supply_register_by_name (regcache, "pswa", &pc);
440 }
441 }
442
443 #ifdef __s390x__
444 static unsigned long
445 s390_get_hwcap (const struct target_desc *tdesc)
446 {
447 int wordsize = register_size (tdesc, 0);
448 unsigned char *data = alloca (2 * wordsize);
449 int offset = 0;
450
451 while ((*the_target->read_auxv) (offset, data, 2 * wordsize) == 2 * wordsize)
452 {
453 if (wordsize == 4)
454 {
455 unsigned int *data_p = (unsigned int *)data;
456 if (data_p[0] == AT_HWCAP)
457 return data_p[1];
458 }
459 else
460 {
461 unsigned long *data_p = (unsigned long *)data;
462 if (data_p[0] == AT_HWCAP)
463 return data_p[1];
464 }
465
466 offset += 2 * wordsize;
467 }
468
469 return 0;
470 }
471 #endif
472
473 static int
474 s390_check_regset (int pid, int regset, int regsize)
475 {
476 gdb_byte *buf = alloca (regsize);
477 struct iovec iov;
478
479 iov.iov_base = buf;
480 iov.iov_len = regsize;
481
482 if (ptrace (PTRACE_GETREGSET, pid, (long) regset, (long) &iov) >= 0
483 || errno == ENODATA)
484 return 1;
485 return 0;
486 }
487
488 #ifdef __s390x__
489 /* For a 31-bit inferior, whether the kernel supports using the full
490 64-bit GPRs. */
491 static int have_hwcap_s390_high_gprs = 0;
492 #endif
493
494 static void
495 s390_arch_setup (void)
496 {
497 const struct target_desc *tdesc;
498 struct regset_info *regset;
499
500 /* Check whether the kernel supports extra register sets. */
501 int pid = pid_of (current_thread);
502 int have_regset_last_break
503 = s390_check_regset (pid, NT_S390_LAST_BREAK, 8);
504 int have_regset_system_call
505 = s390_check_regset (pid, NT_S390_SYSTEM_CALL, 4);
506 int have_regset_tdb = s390_check_regset (pid, NT_S390_TDB, 256);
507 int have_regset_vxrs = s390_check_regset (pid, NT_S390_VXRS_LOW, 128)
508 && s390_check_regset (pid, NT_S390_VXRS_HIGH, 256);
509
510 /* Assume 31-bit inferior process. */
511 if (have_regset_system_call)
512 tdesc = tdesc_s390_linux32v2;
513 else if (have_regset_last_break)
514 tdesc = tdesc_s390_linux32v1;
515 else
516 tdesc = tdesc_s390_linux32;
517
518 /* On a 64-bit host, check the low bit of the (31-bit) PSWM
519 -- if this is one, we actually have a 64-bit inferior. */
520 #ifdef __s390x__
521 {
522 unsigned int pswm;
523 struct regcache *regcache = new_register_cache (tdesc);
524
525 fetch_inferior_registers (regcache, find_regno (tdesc, "pswm"));
526 collect_register_by_name (regcache, "pswm", &pswm);
527 free_register_cache (regcache);
528
529 if (pswm & 1)
530 {
531 if (have_regset_tdb)
532 have_regset_tdb =
533 (s390_get_hwcap (tdesc_s390x_linux64v2) & HWCAP_S390_TE) != 0;
534 if (have_regset_vxrs)
535 have_regset_vxrs =
536 (s390_get_hwcap (tdesc_s390x_linux64v2) & HWCAP_S390_VX) != 0;
537
538 if (have_regset_vxrs)
539 tdesc = (have_regset_tdb ? tdesc_s390x_tevx_linux64 :
540 tdesc_s390x_vx_linux64);
541 else if (have_regset_tdb)
542 tdesc = tdesc_s390x_te_linux64;
543 else if (have_regset_system_call)
544 tdesc = tdesc_s390x_linux64v2;
545 else if (have_regset_last_break)
546 tdesc = tdesc_s390x_linux64v1;
547 else
548 tdesc = tdesc_s390x_linux64;
549 }
550
551 /* For a 31-bit inferior, check whether the kernel supports
552 using the full 64-bit GPRs. */
553 else if (s390_get_hwcap (tdesc) & HWCAP_S390_HIGH_GPRS)
554 {
555 have_hwcap_s390_high_gprs = 1;
556 if (have_regset_tdb)
557 have_regset_tdb = (s390_get_hwcap (tdesc) & HWCAP_S390_TE) != 0;
558 if (have_regset_vxrs)
559 have_regset_vxrs = (s390_get_hwcap (tdesc) & HWCAP_S390_VX) != 0;
560
561 if (have_regset_vxrs)
562 tdesc = (have_regset_tdb ? tdesc_s390_tevx_linux64 :
563 tdesc_s390_vx_linux64);
564 else if (have_regset_tdb)
565 tdesc = tdesc_s390_te_linux64;
566 else if (have_regset_system_call)
567 tdesc = tdesc_s390_linux64v2;
568 else if (have_regset_last_break)
569 tdesc = tdesc_s390_linux64v1;
570 else
571 tdesc = tdesc_s390_linux64;
572 }
573 }
574 #endif
575
576 /* Update target_regsets according to available register sets. */
577 for (regset = s390_regsets; regset->size >= 0; regset++)
578 if (regset->get_request == PTRACE_GETREGSET)
579 switch (regset->nt_type)
580 {
581 case NT_S390_LAST_BREAK:
582 regset->size = have_regset_last_break? 8 : 0;
583 break;
584 case NT_S390_SYSTEM_CALL:
585 regset->size = have_regset_system_call? 4 : 0;
586 break;
587 case NT_S390_TDB:
588 regset->size = have_regset_tdb ? 256 : 0;
589 break;
590 case NT_S390_VXRS_LOW:
591 regset->size = have_regset_vxrs ? 128 : 0;
592 break;
593 case NT_S390_VXRS_HIGH:
594 regset->size = have_regset_vxrs ? 256 : 0;
595 break;
596 default:
597 break;
598 }
599
600 current_process ()->tdesc = tdesc;
601 }
602
603
604 static int
605 s390_breakpoint_at (CORE_ADDR pc)
606 {
607 unsigned char c[s390_breakpoint_len];
608 read_inferior_memory (pc, c, s390_breakpoint_len);
609 return memcmp (c, s390_breakpoint, s390_breakpoint_len) == 0;
610 }
611
612 static struct usrregs_info s390_usrregs_info =
613 {
614 s390_num_regs,
615 s390_regmap,
616 };
617
618 static struct regsets_info s390_regsets_info =
619 {
620 s390_regsets, /* regsets */
621 0, /* num_regsets */
622 NULL, /* disabled_regsets */
623 };
624
625 static struct regs_info regs_info =
626 {
627 NULL, /* regset_bitmap */
628 &s390_usrregs_info,
629 &s390_regsets_info
630 };
631
632 #ifdef __s390x__
633 static struct usrregs_info s390_usrregs_info_3264 =
634 {
635 s390_num_regs_3264,
636 s390_regmap_3264
637 };
638
639 static struct regsets_info s390_regsets_info_3264 =
640 {
641 s390_regsets, /* regsets */
642 0, /* num_regsets */
643 NULL, /* disabled_regsets */
644 };
645
646 static struct regs_info regs_info_3264 =
647 {
648 NULL, /* regset_bitmap */
649 &s390_usrregs_info_3264,
650 &s390_regsets_info_3264
651 };
652 #endif
653
654 static const struct regs_info *
655 s390_regs_info (void)
656 {
657 #ifdef __s390x__
658 if (have_hwcap_s390_high_gprs)
659 {
660 const struct target_desc *tdesc = current_process ()->tdesc;
661
662 if (register_size (tdesc, 0) == 4)
663 return &regs_info_3264;
664 }
665 #endif
666 return &regs_info;
667 }
668
669 struct linux_target_ops the_low_target = {
670 s390_arch_setup,
671 s390_regs_info,
672 s390_cannot_fetch_register,
673 s390_cannot_store_register,
674 NULL, /* fetch_register */
675 s390_get_pc,
676 s390_set_pc,
677 NULL, /* breakpoint_kind_from_pc */
678 s390_sw_breakpoint_from_kind,
679 NULL,
680 s390_breakpoint_len,
681 s390_breakpoint_at,
682 NULL, /* supports_z_point_type */
683 NULL,
684 NULL,
685 NULL,
686 NULL,
687 s390_collect_ptrace_register,
688 s390_supply_ptrace_register,
689 };
690
691 void
692 initialize_low_arch (void)
693 {
694 /* Initialize the Linux target descriptions. */
695
696 init_registers_s390_linux32 ();
697 init_registers_s390_linux32v1 ();
698 init_registers_s390_linux32v2 ();
699 init_registers_s390_linux64 ();
700 init_registers_s390_linux64v1 ();
701 init_registers_s390_linux64v2 ();
702 init_registers_s390_te_linux64 ();
703 init_registers_s390_vx_linux64 ();
704 init_registers_s390_tevx_linux64 ();
705 init_registers_s390x_linux64 ();
706 init_registers_s390x_linux64v1 ();
707 init_registers_s390x_linux64v2 ();
708 init_registers_s390x_te_linux64 ();
709 init_registers_s390x_vx_linux64 ();
710 init_registers_s390x_tevx_linux64 ();
711
712 initialize_regsets_info (&s390_regsets_info);
713 #ifdef __s390x__
714 initialize_regsets_info (&s390_regsets_info_3264);
715 #endif
716 }
This page took 0.046415 seconds and 4 git commands to generate.