* generic/gdbtk-wrapper.c (GDB_find_frame_addr_in_frame_chain):

Delete function.
(wrap_find_frame_addr_in_frame_chain): Delete function.
* generic/gdbtk-wrapper.h (GDB_find_frame_addr_in_frame_chain):
Delete declaration.

3 files changed, 9 insertions, 37 deletions

diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog
index dcd02d41280..64243456e95 100644
--- a/gdb/gdbtk/ChangeLog
+++ b/gdb/gdbtk/ChangeLog
@@ -1,3 +1,11 @@
+2002-04-21  Andrew Cagney  <ac131313@redhat.com>
+
+	* generic/gdbtk-wrapper.c (GDB_find_frame_addr_in_frame_chain):
+	Delete function.
+	(wrap_find_frame_addr_in_frame_chain): Delete function.
+	* generic/gdbtk-wrapper.h (GDB_find_frame_addr_in_frame_chain):
+	Delete declaration.
+
 2002-04-17  Andrew Cagney  <cagney@redhat.com>
 
 	* generic/gdbtk.c (gdbtk_init): Use error or throw_exception to
diff --git a/gdb/gdbtk/generic/gdbtk-wrapper.c b/gdb/gdbtk/generic/gdbtk-wrapper.c
index 26f3bb5f3aa..c5511dad88f 100644
--- a/gdb/gdbtk/generic/gdbtk-wrapper.c
+++ b/gdb/gdbtk/generic/gdbtk-wrapper.c
@@ -53,9 +53,6 @@ gdb_result GDB_block_innermost_frame (struct block *block,
 
 gdb_result GDB_reinit_frame_cache (void);
 
-gdb_result GDB_find_frame_addr_in_frame_chain (CORE_ADDR addr,
-					       struct frame_info **result);
-
 gdb_result GDB_value_ind (value_ptr val, value_ptr * rval);
 
 gdb_result GDB_value_slice (value_ptr val, int low, int num,
@@ -111,8 +108,6 @@ static int wrap_block_innermost_frame (char *opaque_arg);
 
 static int wrap_reinit_frame_cache (char *opaque_arg);
 
-static int wrap_find_frame_addr_in_frame_chain (char *opaque_arg);
-
 static int wrap_value_ind (char *opaque_arg);
 
 static int wrap_value_slice (char *opaque_arg);
@@ -455,34 +450,6 @@ wrap_reinit_frame_cache (char *opaque_arg)
 }
 
 gdb_result
-GDB_find_frame_addr_in_frame_chain (CORE_ADDR addr, 
-				    struct frame_info **result)
-{
-  struct gdb_wrapper_arguments args;
-  gdb_result r;
-
-  args.args[0] = (char *) &addr;
-
-  r = call_wrapped_function ((catch_errors_ftype *) wrap_find_frame_addr_in_frame_chain, &args);
-  if (r != GDB_OK)
-    return r;
-
-  *result = (struct frame_info *) args.result;
-  return GDB_OK;
-}
-
-static int
-wrap_find_frame_addr_in_frame_chain (char *opaque_arg)
-{
-  struct gdb_wrapper_arguments **args = (struct gdb_wrapper_arguments **) opaque_arg;
-  CORE_ADDR addr;
-
-  addr = *(CORE_ADDR *) (*args)->args[0];
-  (*args)->result = (char *) find_frame_addr_in_frame_chain (addr);
-  return 1;
-}
-
-gdb_result
 GDB_value_ind (value_ptr val, value_ptr *rval)
 {
   struct gdb_wrapper_arguments args;
diff --git a/gdb/gdbtk/generic/gdbtk-wrapper.h b/gdb/gdbtk/generic/gdbtk-wrapper.h
index 9091c4aaeef..5193eed344d 100644
--- a/gdb/gdbtk/generic/gdbtk-wrapper.h
+++ b/gdb/gdbtk/generic/gdbtk-wrapper.h
@@ -1,5 +1,5 @@
 /* longjmp-free interface between gdb and gdbtk.
-   Copyright 1999-2000 Free Software Foundation, Inc.
+   Copyright (C) 1999, 2000, 2002 Free Software Foundation, Inc.
 
 This file is part of GDB.  It contains routines to safely call common gdb
 functions without the fear of longjmp'ing.
@@ -62,9 +62,6 @@ extern gdb_result GDB_block_for_pc (CORE_ADDR pc, struct block **result);
 extern gdb_result GDB_block_innermost_frame (struct block *block,
 					     struct frame_info **result);
 extern gdb_result GDB_reinit_frame_cache (void);
-extern gdb_result GDB_find_frame_addr_in_frame_chain (CORE_ADDR addr,
-						      struct frame_info
-						      **result);
 extern gdb_result GDB_value_ind (value_ptr val, value_ptr * rval);
 extern gdb_result GDB_value_slice (value_ptr val, int low, int num,
 				   value_ptr * rval);