/* Common target-dependent code for NetBSD systems. Copyright (C) 2002-2022 Free Software Foundation, Inc. Contributed by Wasabi Systems, Inc. This file is part of GDB. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . */ #include "defs.h" #include "auxv.h" #include "solib-svr4.h" #include "netbsd-tdep.h" #include "gdbarch.h" #include "objfiles.h" #include "xml-syscall.h" /* Flags in the 'kve_protection' field in struct kinfo_vmentry. These match the KVME_PROT_* constants in . */ #define KINFO_VME_PROT_READ 0x00000001 #define KINFO_VME_PROT_WRITE 0x00000002 #define KINFO_VME_PROT_EXEC 0x00000004 /* Flags in the 'kve_flags' field in struct kinfo_vmentry. These match the KVME_FLAG_* constants in . */ #define KINFO_VME_FLAG_COW 0x00000001 #define KINFO_VME_FLAG_NEEDS_COPY 0x00000002 #define KINFO_VME_FLAG_NOCOREDUMP 0x00000004 #define KINFO_VME_FLAG_PAGEABLE 0x00000008 #define KINFO_VME_FLAG_GROWS_UP 0x00000010 #define KINFO_VME_FLAG_GROWS_DOWN 0x00000020 /* FIXME: kettenis/20060115: We should really eliminate the next two functions completely. */ struct link_map_offsets * nbsd_ilp32_solib_svr4_fetch_link_map_offsets (void) { return svr4_ilp32_fetch_link_map_offsets (); } struct link_map_offsets * nbsd_lp64_solib_svr4_fetch_link_map_offsets (void) { return svr4_lp64_fetch_link_map_offsets (); } int nbsd_pc_in_sigtramp (CORE_ADDR pc, const char *func_name) { /* Check for libc-provided signal trampoline. All such trampolines have function names which begin with "__sigtramp". */ return (func_name != NULL && startswith (func_name, "__sigtramp")); } /* This enum is derived from NETBSD's . */ enum { NBSD_SIGHUP = 1, NBSD_SIGINT = 2, NBSD_SIGQUIT = 3, NBSD_SIGILL = 4, NBSD_SIGTRAP = 5, NBSD_SIGABRT = 6, NBSD_SIGEMT = 7, NBSD_SIGFPE = 8, NBSD_SIGKILL = 9, NBSD_SIGBUS = 10, NBSD_SIGSEGV = 11, NBSD_SIGSYS = 12, NBSD_SIGPIPE = 13, NBSD_SIGALRM = 14, NBSD_SIGTERM = 15, NBSD_SIGURG = 16, NBSD_SIGSTOP = 17, NBSD_SIGTSTP = 18, NBSD_SIGCONT = 19, NBSD_SIGCHLD = 20, NBSD_SIGTTIN = 21, NBSD_SIGTTOU = 22, NBSD_SIGIO = 23, NBSD_SIGXCPU = 24, NBSD_SIGXFSZ = 25, NBSD_SIGVTALRM = 26, NBSD_SIGPROF = 27, NBSD_SIGWINCH = 28, NBSD_SIGINFO = 29, NBSD_SIGUSR1 = 30, NBSD_SIGUSR2 = 31, NBSD_SIGPWR = 32, NBSD_SIGRTMIN = 33, NBSD_SIGRTMAX = 63, }; /* Implement the "gdb_signal_from_target" gdbarch method. */ static enum gdb_signal nbsd_gdb_signal_from_target (struct gdbarch *gdbarch, int signal) { switch (signal) { case 0: return GDB_SIGNAL_0; case NBSD_SIGHUP: return GDB_SIGNAL_HUP; case NBSD_SIGINT: return GDB_SIGNAL_INT; case NBSD_SIGQUIT: return GDB_SIGNAL_QUIT; case NBSD_SIGILL: return GDB_SIGNAL_ILL; case NBSD_SIGTRAP: return GDB_SIGNAL_TRAP; case NBSD_SIGABRT: return GDB_SIGNAL_ABRT; case NBSD_SIGEMT: return GDB_SIGNAL_EMT; case NBSD_SIGFPE: return GDB_SIGNAL_FPE; case NBSD_SIGKILL: return GDB_SIGNAL_KILL; case NBSD_SIGBUS: return GDB_SIGNAL_BUS; case NBSD_SIGSEGV: return GDB_SIGNAL_SEGV; case NBSD_SIGSYS: return GDB_SIGNAL_SYS; case NBSD_SIGPIPE: return GDB_SIGNAL_PIPE; case NBSD_SIGALRM: return GDB_SIGNAL_ALRM; case NBSD_SIGTERM: return GDB_SIGNAL_TERM; case NBSD_SIGURG: return GDB_SIGNAL_URG; case NBSD_SIGSTOP: return GDB_SIGNAL_STOP; case NBSD_SIGTSTP: return GDB_SIGNAL_TSTP; case NBSD_SIGCONT: return GDB_SIGNAL_CONT; case NBSD_SIGCHLD: return GDB_SIGNAL_CHLD; case NBSD_SIGTTIN: return GDB_SIGNAL_TTIN; case NBSD_SIGTTOU: return GDB_SIGNAL_TTOU; case NBSD_SIGIO: return GDB_SIGNAL_IO; case NBSD_SIGXCPU: return GDB_SIGNAL_XCPU; case NBSD_SIGXFSZ: return GDB_SIGNAL_XFSZ; case NBSD_SIGVTALRM: return GDB_SIGNAL_VTALRM; case NBSD_SIGPROF: return GDB_SIGNAL_PROF; case NBSD_SIGWINCH: return GDB_SIGNAL_WINCH; case NBSD_SIGINFO: return GDB_SIGNAL_INFO; case NBSD_SIGUSR1: return GDB_SIGNAL_USR1; case NBSD_SIGUSR2: return GDB_SIGNAL_USR2; case NBSD_SIGPWR: return GDB_SIGNAL_PWR; /* SIGRTMIN and SIGRTMAX are not continuous in , therefore we have to handle them here. */ case NBSD_SIGRTMIN: return GDB_SIGNAL_REALTIME_33; case NBSD_SIGRTMAX: return GDB_SIGNAL_REALTIME_63; } if (signal >= NBSD_SIGRTMIN + 1 && signal <= NBSD_SIGRTMAX - 1) { int offset = signal - NBSD_SIGRTMIN + 1; return (enum gdb_signal) ((int) GDB_SIGNAL_REALTIME_34 + offset); } return GDB_SIGNAL_UNKNOWN; } /* Implement the "gdb_signal_to_target" gdbarch method. */ static int nbsd_gdb_signal_to_target (struct gdbarch *gdbarch, enum gdb_signal signal) { switch (signal) { case GDB_SIGNAL_0: return 0; case GDB_SIGNAL_HUP: return NBSD_SIGHUP; case GDB_SIGNAL_INT: return NBSD_SIGINT; case GDB_SIGNAL_QUIT: return NBSD_SIGQUIT; case GDB_SIGNAL_ILL: return NBSD_SIGILL; case GDB_SIGNAL_TRAP: return NBSD_SIGTRAP; case GDB_SIGNAL_ABRT: return NBSD_SIGABRT; case GDB_SIGNAL_EMT: return NBSD_SIGEMT; case GDB_SIGNAL_FPE: return NBSD_SIGFPE; case GDB_SIGNAL_KILL: return NBSD_SIGKILL; case GDB_SIGNAL_BUS: return NBSD_SIGBUS; case GDB_SIGNAL_SEGV: return NBSD_SIGSEGV; case GDB_SIGNAL_SYS: return NBSD_SIGSYS; case GDB_SIGNAL_PIPE: return NBSD_SIGPIPE; case GDB_SIGNAL_ALRM: return NBSD_SIGALRM; case GDB_SIGNAL_TERM: return NBSD_SIGTERM; case GDB_SIGNAL_URG: return NBSD_SIGSTOP; case GDB_SIGNAL_TSTP: return NBSD_SIGTSTP; case GDB_SIGNAL_CONT: return NBSD_SIGCONT; case GDB_SIGNAL_CHLD: return NBSD_SIGCHLD; case GDB_SIGNAL_TTIN: return NBSD_SIGTTIN; case GDB_SIGNAL_TTOU: return NBSD_SIGTTOU; case GDB_SIGNAL_IO: return NBSD_SIGIO; case GDB_SIGNAL_XCPU: return NBSD_SIGXCPU; case GDB_SIGNAL_XFSZ: return NBSD_SIGXFSZ; case GDB_SIGNAL_VTALRM: return NBSD_SIGVTALRM; case GDB_SIGNAL_PROF: return NBSD_SIGPROF; case GDB_SIGNAL_WINCH: return NBSD_SIGWINCH; case GDB_SIGNAL_INFO: return NBSD_SIGINFO; case GDB_SIGNAL_USR1: return NBSD_SIGUSR1; case GDB_SIGNAL_USR2: return NBSD_SIGUSR2; case GDB_SIGNAL_PWR: return NBSD_SIGPWR; /* GDB_SIGNAL_REALTIME_33 is not continuous in , therefore we have to handle it here. */ case GDB_SIGNAL_REALTIME_33: return NBSD_SIGRTMIN; /* Same comment applies to _64. */ case GDB_SIGNAL_REALTIME_63: return NBSD_SIGRTMAX; } if (signal >= GDB_SIGNAL_REALTIME_34 && signal <= GDB_SIGNAL_REALTIME_62) { int offset = signal - GDB_SIGNAL_REALTIME_32; return NBSD_SIGRTMIN + 1 + offset; } return -1; } /* Shared library resolver handling. */ static CORE_ADDR nbsd_skip_solib_resolver (struct gdbarch *gdbarch, CORE_ADDR pc) { struct bound_minimal_symbol msym; msym = lookup_minimal_symbol ("_rtld_bind_start", NULL, NULL); if (msym.minsym && msym.value_address () == pc) return frame_unwind_caller_pc (get_current_frame ()); else return find_solib_trampoline_target (get_current_frame (), pc); } struct nbsd_gdbarch_data { struct type *siginfo_type = nullptr; }; static const registry::key nbsd_gdbarch_data_handle; static struct nbsd_gdbarch_data * get_nbsd_gdbarch_data (struct gdbarch *gdbarch) { struct nbsd_gdbarch_data *result = nbsd_gdbarch_data_handle.get (gdbarch); if (result == nullptr) result = nbsd_gdbarch_data_handle.emplace (gdbarch); return result; } /* Implement the "get_siginfo_type" gdbarch method. */ static struct type * nbsd_get_siginfo_type (struct gdbarch *gdbarch) { nbsd_gdbarch_data *nbsd_gdbarch_data = get_nbsd_gdbarch_data (gdbarch); if (nbsd_gdbarch_data->siginfo_type != NULL) return nbsd_gdbarch_data->siginfo_type; type *char_type = builtin_type (gdbarch)->builtin_char; type *int_type = builtin_type (gdbarch)->builtin_int; type *long_type = builtin_type (gdbarch)->builtin_long; type *void_ptr_type = lookup_pointer_type (builtin_type (gdbarch)->builtin_void); type *int32_type = builtin_type (gdbarch)->builtin_int32; type *uint32_type = builtin_type (gdbarch)->builtin_uint32; type *uint64_type = builtin_type (gdbarch)->builtin_uint64; bool lp64 = void_ptr_type->length () == 8; size_t char_bits = gdbarch_addressable_memory_unit_size (gdbarch) * 8; /* pid_t */ type *pid_type = arch_type (gdbarch, TYPE_CODE_TYPEDEF, int32_type->length () * char_bits, "pid_t"); pid_type->set_target_type (int32_type); /* uid_t */ type *uid_type = arch_type (gdbarch, TYPE_CODE_TYPEDEF, uint32_type->length () * char_bits, "uid_t"); uid_type->set_target_type (uint32_type); /* clock_t */ type *clock_type = arch_type (gdbarch, TYPE_CODE_TYPEDEF, int_type->length () * char_bits, "clock_t"); clock_type->set_target_type (int_type); /* lwpid_t */ type *lwpid_type = arch_type (gdbarch, TYPE_CODE_TYPEDEF, int32_type->length () * char_bits, "lwpid_t"); lwpid_type->set_target_type (int32_type); /* union sigval */ type *sigval_type = arch_composite_type (gdbarch, NULL, TYPE_CODE_UNION); sigval_type->set_name (gdbarch_obstack_strdup (gdbarch, "sigval")); append_composite_type_field (sigval_type, "sival_int", int_type); append_composite_type_field (sigval_type, "sival_ptr", void_ptr_type); /* union _option */ type *option_type = arch_composite_type (gdbarch, NULL, TYPE_CODE_UNION); option_type->set_name (gdbarch_obstack_strdup (gdbarch, "_option")); append_composite_type_field (option_type, "_pe_other_pid", pid_type); append_composite_type_field (option_type, "_pe_lwp", lwpid_type); /* union _reason */ type *reason_type = arch_composite_type (gdbarch, NULL, TYPE_CODE_UNION); /* _rt */ type *t = arch_composite_type (gdbarch, NULL, TYPE_CODE_STRUCT); append_composite_type_field (t, "_pid", pid_type); append_composite_type_field (t, "_uid", uid_type); append_composite_type_field (t, "_value", sigval_type); append_composite_type_field (reason_type, "_rt", t); /* _child */ t = arch_composite_type (gdbarch, NULL, TYPE_CODE_STRUCT); append_composite_type_field (t, "_pid", pid_type); append_composite_type_field (t, "_uid", uid_type); append_composite_type_field (t, "_status", int_type); append_composite_type_field (t, "_utime", clock_type); append_composite_type_field (t, "_stime", clock_type); append_composite_type_field (reason_type, "_child", t); /* _fault */ t = arch_composite_type (gdbarch, NULL, TYPE_CODE_STRUCT); append_composite_type_field (t, "_addr", void_ptr_type); append_composite_type_field (t, "_trap", int_type); append_composite_type_field (t, "_trap2", int_type); append_composite_type_field (t, "_trap3", int_type); append_composite_type_field (reason_type, "_fault", t); /* _poll */ t = arch_composite_type (gdbarch, NULL, TYPE_CODE_STRUCT); append_composite_type_field (t, "_band", long_type); append_composite_type_field (t, "_fd", int_type); append_composite_type_field (reason_type, "_poll", t); /* _syscall */ t = arch_composite_type (gdbarch, NULL, TYPE_CODE_STRUCT); append_composite_type_field (t, "_sysnum", int_type); append_composite_type_field (t, "_retval", init_vector_type (int_type, 2)); append_composite_type_field (t, "_error", int_type); append_composite_type_field (t, "_args", init_vector_type (uint64_type, 8)); append_composite_type_field (reason_type, "_syscall", t); /* _ptrace_state */ t = arch_composite_type (gdbarch, NULL, TYPE_CODE_STRUCT); append_composite_type_field (t, "_pe_report_event", int_type); append_composite_type_field (t, "_option", option_type); append_composite_type_field (reason_type, "_ptrace_state", t); /* struct _ksiginfo */ type *ksiginfo_type = arch_composite_type (gdbarch, NULL, TYPE_CODE_STRUCT); ksiginfo_type->set_name (gdbarch_obstack_strdup (gdbarch, "_ksiginfo")); append_composite_type_field (ksiginfo_type, "_signo", int_type); append_composite_type_field (ksiginfo_type, "_code", int_type); append_composite_type_field (ksiginfo_type, "_errno", int_type); if (lp64) append_composite_type_field (ksiginfo_type, "_pad", int_type); append_composite_type_field (ksiginfo_type, "_reason", reason_type); /* union siginfo */ type *siginfo_type = arch_composite_type (gdbarch, NULL, TYPE_CODE_UNION); siginfo_type->set_name (gdbarch_obstack_strdup (gdbarch, "siginfo")); append_composite_type_field (siginfo_type, "si_pad", init_vector_type (char_type, 128)); append_composite_type_field (siginfo_type, "_info", ksiginfo_type); nbsd_gdbarch_data->siginfo_type = siginfo_type; return siginfo_type; } /* See netbsd-tdep.h. */ void nbsd_info_proc_mappings_header (int addr_bit) { gdb_printf (_("Mapped address spaces:\n\n")); if (addr_bit == 64) { gdb_printf (" %18s %18s %10s %10s %9s %s\n", "Start Addr", " End Addr", " Size", " Offset", "Flags ", "File"); } else { gdb_printf ("\t%10s %10s %10s %10s %9s %s\n", "Start Addr", " End Addr", " Size", " Offset", "Flags ", "File"); } } /* Helper function to generate mappings flags for a single VM map entry in 'info proc mappings'. */ static const char * nbsd_vm_map_entry_flags (int kve_flags, int kve_protection) { static char vm_flags[9]; vm_flags[0] = (kve_protection & KINFO_VME_PROT_READ) ? 'r' : '-'; vm_flags[1] = (kve_protection & KINFO_VME_PROT_WRITE) ? 'w' : '-'; vm_flags[2] = (kve_protection & KINFO_VME_PROT_EXEC) ? 'x' : '-'; vm_flags[3] = ' '; vm_flags[4] = (kve_flags & KINFO_VME_FLAG_COW) ? 'C' : '-'; vm_flags[5] = (kve_flags & KINFO_VME_FLAG_NEEDS_COPY) ? 'N' : '-'; vm_flags[6] = (kve_flags & KINFO_VME_FLAG_PAGEABLE) ? 'P' : '-'; vm_flags[7] = (kve_flags & KINFO_VME_FLAG_GROWS_UP) ? 'U' : (kve_flags & KINFO_VME_FLAG_GROWS_DOWN) ? 'D' : '-'; vm_flags[8] = '\0'; return vm_flags; } void nbsd_info_proc_mappings_entry (int addr_bit, ULONGEST kve_start, ULONGEST kve_end, ULONGEST kve_offset, int kve_flags, int kve_protection, const char *kve_path) { if (addr_bit == 64) { gdb_printf (" %18s %18s %10s %10s %9s %s\n", hex_string (kve_start), hex_string (kve_end), hex_string (kve_end - kve_start), hex_string (kve_offset), nbsd_vm_map_entry_flags (kve_flags, kve_protection), kve_path); } else { gdb_printf ("\t%10s %10s %10s %10s %9s %s\n", hex_string (kve_start), hex_string (kve_end), hex_string (kve_end - kve_start), hex_string (kve_offset), nbsd_vm_map_entry_flags (kve_flags, kve_protection), kve_path); } } /* Implement the "get_syscall_number" gdbarch method. */ static LONGEST nbsd_get_syscall_number (struct gdbarch *gdbarch, thread_info *thread) { /* NetBSD doesn't use gdbarch_get_syscall_number since NetBSD native targets fetch the system call number from the 'si_sysnum' member of siginfo_t in nbsd_nat_target::wait. However, system call catching requires this function to be set. */ internal_error (__FILE__, __LINE__, _("nbsd_get_sycall_number called")); } /* See netbsd-tdep.h. */ void nbsd_init_abi (struct gdbarch_info info, struct gdbarch *gdbarch) { set_gdbarch_gdb_signal_from_target (gdbarch, nbsd_gdb_signal_from_target); set_gdbarch_gdb_signal_to_target (gdbarch, nbsd_gdb_signal_to_target); set_gdbarch_skip_solib_resolver (gdbarch, nbsd_skip_solib_resolver); set_gdbarch_auxv_parse (gdbarch, svr4_auxv_parse); set_gdbarch_get_siginfo_type (gdbarch, nbsd_get_siginfo_type); /* `catch syscall' */ set_xml_syscall_file_name (gdbarch, "syscalls/netbsd.xml"); set_gdbarch_get_syscall_number (gdbarch, nbsd_get_syscall_number); }