Further multiarching work mostly for hppa64-*-hpux11:

[deliverable/binutils-gdb.git] / gdb / config / pa / tm-hppah.h

diff --git a/gdb/config/pa/tm-hppah.h b/gdb/config/pa/tm-hppah.h
index 5c35f7de0fafc5b4218a9e2df249b6941d3b6b5c..325af8195364fd35d965c9ed7cd6e6535446e42d 100644 (file)
--- a/gdb/config/pa/tm-hppah.h
+++ b/gdb/config/pa/tm-hppah.h
@@ -1,75 +1,59 @@
 /* Parameters for execution on an HP PA-RISC machine, running HPUX, for GDB.
-   Copyright 1991, 1992 Free Software Foundation, Inc. 
+   Copyright 1991, 1992, 1995, 1998 Free Software Foundation, Inc.
 
    Contributed by the Center for Software Science at the
    University of Utah (pa-gdb-bugs@cs.utah.edu).
 
-This file is part of GDB.
+   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 2 of the License, or
-(at your option) any later version.
+   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 2 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.
+   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, write to the Free Software
-Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
+   You should have received a copy of the GNU General Public License
+   along with this program; if not, write to the Free Software
+   Foundation, Inc., 59 Temple Place - Suite 330,
+   Boston, MA 02111-1307, USA.  */
 
+struct frame_info;
 
-/* Actually, for a PA running HPUX the kernel calls the signal handler
-   without an intermediate trampoline.  Luckily the kernel always sets
-   the return pointer for the signal handler to point to _sigreturn.  */
-#define IN_SIGTRAMP(pc, name) (name && STREQ ("_sigreturn", name))
+/* The solib hooks are not really designed to have a list of hook
+   and handler routines.  So until we clean up those interfaces you
+   either get SOM shared libraries or HP's unusual PA64 ELF shared
+   libraries, but not both.  */
+#ifdef GDB_TARGET_IS_HPPA_20W
+#include "pa64solib.h"
+#endif
 
-/* For HPUX:
-
-   The signal context structure pointer is always saved at the base
-   of the frame which "calls" the signal handler.  We only want to find
-   the hardware save state structure, which lives 10 32bit words into
-   sigcontext structure.
-
-   Within the hardware save state structure, registers are found in the
-   same order as the register numbers in GDB.
-
-   The kernel apparently sets %r31 in the saved state structure to point
-   to the active instruction when the signal was taken.  Everything
-   else looks fairly reasonable.  (I assume the kernel fixes %r31 from
-   within _sigreturn?.  */
+#ifndef GDB_TARGET_IS_HPPA_20W
+#include "somsolib.h"
+#endif
 
+extern void hppa_hpux_frame_saved_pc_in_sigtramp (struct frame_info *fi,
+                                                  CORE_ADDR *tmp);
 #define FRAME_SAVED_PC_IN_SIGTRAMP(FRAME, TMP) \
-{ \
-  *(TMP) = read_memory_integer ((FRAME)->frame + (41 * 4) , 4); \
-}
+  hppa32_hpux_frame_saved_pc_in_sigtramp (FRAME, TMP)
 
+extern void hppa_hpux_frame_base_before_sigtramp (struct frame_info *fi,
+                                                  CORE_ADDR *tmp);
 #define FRAME_BASE_BEFORE_SIGTRAMP(FRAME, TMP) \
-{ \
-  *(TMP) = read_memory_integer ((FRAME)->frame + (40 * 4), 4); \
-}
+  hppa32_hpux_frame_base_before_sigtramp (FRAME, TMP)
 
+extern void hppa_hpux_frame_find_saved_regs_in_sigtramp
+              (struct frame_info *fi, CORE_ADDR *fsr);
 #define FRAME_FIND_SAVED_REGS_IN_SIGTRAMP(FRAME, FSR) \
-{ \
-  int i; \
-  CORE_ADDR TMP; \
-  TMP = (FRAME)->frame + (10 * 4); \
-  for (i = 0; i < NUM_REGS; i++) \
-    { \
-      if (i == SP_REGNUM) \
-       (FSR)->regs[SP_REGNUM] = read_memory_integer (TMP + SP_REGNUM * 4, 4); \
-      else \
-       (FSR)->regs[i] = TMP + i * 4; \
-    } \
-}
-
-/* We need to figure out where the text region is so that we use the
-   appropriate ptrace operator to manipulate text.  Simply reading/writing
-   user space will crap out HPUX.  */
+  hppa32_hpux_frame_find_saved_regs_in_sigtramp (FRAME, FSR)
 
-#define NEED_TEXT_START_END
+/* For HP-UX on PA-RISC we have an implementation
+   for the exception handling target op (in hppa-tdep.c) */
+#define CHILD_ENABLE_EXCEPTION_CALLBACK
+#define CHILD_GET_CURRENT_EXCEPTION_EVENT
 
 /* Mostly it's common to all HPPA's.  */
 #include "pa/tm-hppa.h"