* s390-tdep.c (s390_frame_align): New function.

(s390_gdbarch_init): Register it with the gdbarch object.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 5d1007d5f332f81a73bb825a7199e4fad2f507cd..d4e197a66d9481f30e9756bbd99fce98c7d622dd 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,8 @@
+2003-04-18  Jim Blandy  <jimb@redhat.com>
+
+       * s390-tdep.c (s390_frame_align): New function.
+        (s390_gdbarch_init): Register it with the gdbarch object.
+
 2003-04-17  Richard Henderson  <rth@redhat.com>
 
        * remote.c (minitelnet): Don't redeclare escape_count, echo_check.

diff --git a/gdb/s390-tdep.c b/gdb/s390-tdep.c
index e50a46d9875b00af6fb3bd938ab7d450c30ac57e..415fde7b4801d5d8117314359f30d65e54cb186b 100644 (file)
--- a/gdb/s390-tdep.c
+++ b/gdb/s390-tdep.c
@@ -1664,6 +1664,15 @@ s390_push_arguments (int nargs, struct value **args, CORE_ADDR sp,
 }
 
 
+static CORE_ADDR
+s390_frame_align (struct gdbarch *gdbarch, CORE_ADDR addr)
+{
+  /* Both the 32- and 64-bit ABI's say that the stack pointer should
+     always be aligned on an eight-byte boundary.  */
+  return (addr & -8);
+}
+
+
 static int
 s390_use_struct_convention (int gcc_p, struct type *value_type)
 {
@@ -1862,6 +1871,7 @@ s390_gdbarch_init (struct gdbarch_info info, struct gdbarch_list *arches)
 
   /* Parameters for inferior function calls.  */
   set_gdbarch_deprecated_pc_in_call_dummy (gdbarch, deprecated_pc_in_call_dummy_at_entry_point);
+  set_gdbarch_frame_align (gdbarch, s390_frame_align);
   set_gdbarch_deprecated_push_arguments (gdbarch, s390_push_arguments);
   set_gdbarch_save_dummy_frame_tos (gdbarch, generic_save_dummy_frame_tos);
   set_gdbarch_deprecated_push_return_address (gdbarch,