import gdb-1999-05-25 snapshot

[deliverable/binutils-gdb.git] / gdb / tahoe-tdep.c

diff --git a/gdb/tahoe-tdep.c b/gdb/tahoe-tdep.c
index c57bc353a8b6b006227fd2544aec93c0c3f6aeab..8bf851d0f4b46f280666975f976a6bf7c6c5afb2 100644 (file)
--- a/gdb/tahoe-tdep.c
+++ b/gdb/tahoe-tdep.c
@@ -61,6 +61,15 @@ tahoe_skip_prologue (pc)
   return pc;
 }
 
+/* Return number of args passed to a frame.
+   Can return -1, meaning no way to tell.  */
+
+int
+tahoe_frame_num_args (fi)
+     struct frame_info *fi;
+{
+  return (((0xffff & read_memory_integer(((fi)->frame-4),4)) - 4) >> 2);
+}
 
 /* Print the Tahoe instruction at address MEMADDR in debugged memory,
    on STREAM.  Returns length of the instruction, in bytes.  */