From 0ec1e44d3d987630347fd592f686a6d8cbf0444d Mon Sep 17 00:00:00 2001 From: Mark Alexander Date: Wed, 23 Sep 1998 05:41:38 +0000 Subject: [PATCH] Patch from Dawn Perchik : * rs6000-tdep.c (pop_frame): Handle generic dummy frames. (push_arguments): Likewise. (frame_saved_pc): Likewise. (rs6000_frame_chain): Likewise. (ppc_push_return_address): New function. (get_saved_register): New function. * config/powerpc/tm-ppc-eabi.h: Add generic dummy frame macros. --- gdb/ChangeLog | 11 +++++ gdb/rs6000-tdep.c | 107 +++++++++++++++++++++++++++++++++++++++++++--- 2 files changed, 112 insertions(+), 6 deletions(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 8e916383fe..7da9553d15 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,14 @@ +Tue Sep 22 22:27:24 1998 Mark Alexander + + Patch from Dawn Perchik : + * rs6000-tdep.c (pop_frame): Handle generic dummy frames. + (push_arguments): Likewise. + (frame_saved_pc): Likewise. + (rs6000_frame_chain): Likewise. + (ppc_push_return_address): New function. + (get_saved_register): New function. + * config/powerpc/tm-ppc-eabi.h: Add generic dummy frame macros. + Mon Sep 21 19:29:32 1998 Stu Grossman * defs.h utils.c (fputc_filtered): New function. Does the obvious... diff --git a/gdb/rs6000-tdep.c b/gdb/rs6000-tdep.c index 6cd30fd2bf..4bc628d0b4 100644 --- a/gdb/rs6000-tdep.c +++ b/gdb/rs6000-tdep.c @@ -19,6 +19,7 @@ along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include "defs.h" +#include "tm.h" #include "frame.h" #include "inferior.h" #include "symtab.h" @@ -616,10 +617,18 @@ pop_frame () pc = read_pc (); sp = FRAME_FP (frame); - if (stop_stack_dummy && dummy_frame_count) { - pop_dummy_frame (); - return; - } + if (stop_stack_dummy) + { +#ifdef USE_GENERIC_DUMMY_FRAMES + generic_pop_dummy_frame (); + flush_cached_frames (); + return; +#else + if (dummy_frame_count) + pop_dummy_frame (); + return; +#endif + } /* Make sure that all registers are valid. */ read_register_bytes (0, NULL, REGISTER_BYTES); @@ -733,13 +742,16 @@ push_arguments (nargs, args, sp, struct_return, struct_addr) int argbytes; /* current argument byte */ char tmp_buffer [50]; int f_argno = 0; /* current floating point argno */ + value_ptr arg = 0; struct type *type; CORE_ADDR saved_sp; +#ifndef USE_GENERIC_DUMMY_FRAMES if ( dummy_frame_count <= 0) printf_unfiltered ("FATAL ERROR -push_arguments()! frame not found!!\n"); +#endif /* GENERIC_DUMMY_FRAMES */ /* The first eight words of ther arguments are passed in registers. Copy them appropriately. @@ -751,6 +763,25 @@ push_arguments (nargs, args, sp, struct_return, struct_addr) ii = struct_return ? 1 : 0; +/* +effectively indirect call... gcc does... + +return_val example( float, int); + +eabi: + float in fp0, int in r3 + offset of stack on overflow 8/16 + for varargs, must go by type. +power open: + float in r3&r4, int in r5 + offset of stack on overflow different +both: + return in r3 or f0. If no float, must study how gcc emulates floats; + pay attention to arg promotion. + User may have to cast\args to handle promotion correctly + since gdb won't know if prototype supplied or not. +*/ + for (argno=0, argbytes=0; argno < nargs && ii<8; ++ii) { arg = args[argno]; @@ -798,12 +829,15 @@ push_arguments (nargs, args, sp, struct_return, struct_addr) ran_out_of_registers_for_arguments: +#ifdef USE_GENERIC_DUMMY_FRAMES + saved_sp = read_sp (); +#else /* location for 8 parameters are always reserved. */ sp -= 4 * 8; /* another six words for back chain, TOC register, link register, etc. */ sp -= 24; - +#endif /* GENERIC_DUMMY_FRAMES */ /* if there are more arguments, allocate space for them in the stack, then push them starting from the ninth one. */ @@ -873,9 +907,14 @@ ran_out_of_registers_for_arguments: /* Secure stack areas first, before doing anything else. */ write_register (SP_REGNUM, sp); +#ifndef USE_GENERIC_DUMMY_FRAMES +/* we want to copy 24 bytes of target's frame to dummy's frame, + then set back chain to point to new frame. */ + saved_sp = dummy_frame_addr [dummy_frame_count - 1]; read_memory (saved_sp, tmp_buffer, 24); write_memory (sp, tmp_buffer, 24); +#endif /* GENERIC_DUMMY_FRAMES */ /* set back chain properly */ store_address (tmp_buffer, 4, saved_sp); @@ -884,6 +923,21 @@ ran_out_of_registers_for_arguments: target_store_registers (-1); return sp; } +#ifdef ELF_OBJECT_FORMAT + +/* Function: ppc_push_return_address (pc, sp) + Set up the return address for the inferior function call. */ + +CORE_ADDR +ppc_push_return_address (pc, sp) + CORE_ADDR pc; + CORE_ADDR sp; +{ + write_register (LR_REGNUM, CALL_DUMMY_ADDRESS ()); + return sp; +} + +#endif /* a given return value in `regbuf' with a type `valtype', extract and copy its value into `valbuf' */ @@ -1023,6 +1077,11 @@ frame_saved_pc (fi) if (fi->signal_handler_caller) return read_memory_integer (fi->frame + SIG_FRAME_PC_OFFSET, 4); +#ifdef USE_GENERIC_DUMMY_FRAMES + if (PC_IN_CALL_DUMMY (fi->pc, fi->frame, fi->frame)) + return generic_read_register_dummy(fi->pc, fi->frame, PC_REGNUM); +#endif /* GENERIC_DUMMY_FRAMES */ + func_start = get_pc_function_start (fi->pc) + FUNCTION_START_OFFSET; /* If we failed to find the start of the function, it is a mistake @@ -1184,8 +1243,16 @@ rs6000_frame_chain (thisframe) struct frame_info *thisframe; { CORE_ADDR fp; - if (inside_entry_file ((thisframe)->pc)) + +#ifdef USE_GENERIC_DUMMY_FRAMES + if (PC_IN_CALL_DUMMY (thisframe->pc, thisframe->frame, thisframe->frame)) + return thisframe->frame; /* dummy frame same as caller's frame */ +#endif /* GENERIC_DUMMY_FRAMES */ + + if (inside_entry_file (thisframe->pc) || + thisframe->pc == entry_point_address ()) return 0; + if (thisframe->signal_handler_caller) fp = read_memory_integer (thisframe->frame + SIG_FRAME_FP_OFFSET, 4); else if (thisframe->next != NULL @@ -1197,6 +1264,17 @@ rs6000_frame_chain (thisframe) else fp = read_memory_integer ((thisframe)->frame, 4); +#ifdef USE_GENERIC_DUMMY_FRAMES + { + CORE_ADDR fpp, lr; + + lr = read_register (LR_REGNUM); + if (lr == entry_point_address ()) + if (fp != 0 && (fpp = read_memory_integer (fp, 4)) != 0) + if (PC_IN_CALL_DUMMY (lr, fpp, fpp)) + return fpp; + } +#endif /* GENERIC_DUMMY_FRAMES */ return fp; } @@ -1229,6 +1307,23 @@ gdb_print_insn_powerpc (memaddr, info) } #endif +/* Function: get_saved_register + Just call the generic_get_saved_register function. */ + +void +get_saved_register (raw_buffer, optimized, addrp, frame, regnum, lval) + char *raw_buffer; + int *optimized; + CORE_ADDR *addrp; + struct frame_info *frame; + int regnum; + enum lval_type *lval; +{ + generic_get_saved_register (raw_buffer, optimized, addrp, + frame, regnum, lval); +} + + void _initialize_rs6000_tdep () { -- 2.34.1