From b607efe7149f91512dc5fd9dbfc4c6156cdf9a93 Mon Sep 17 00:00:00 2001 From: Fred Fish Date: Fri, 26 Jul 1996 03:01:51 +0000 Subject: See gdb ChangeLog entry with header: Thu Jul 25 19:41:31 1996 Fred Fish for a rather huge set of changes. I was going to put them here, but it made cvs dump core. :-( --- gdb/scm-lang.c | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) (limited to 'gdb/scm-lang.c') diff --git a/gdb/scm-lang.c b/gdb/scm-lang.c index b054dcf623..c54b2c1187 100644 --- a/gdb/scm-lang.c +++ b/gdb/scm-lang.c @@ -28,10 +28,15 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include "scm-lang.h" #include "scm-tags.h" #include "gdb_string.h" +#include "gdbcore.h" + +static value_ptr evaluate_subexp_scm PARAMS ((struct type *, struct expression *, + int *, enum noside)); +static value_ptr scm_lookup_name PARAMS ((char *)); +static int in_eval_c PARAMS ((void)); +static void scm_printstr PARAMS ((GDB_FILE *, char *, unsigned int, int)); extern struct type ** const (c_builtin_types[]); -extern value_ptr value_allocate_space_in_inferior PARAMS ((int)); -extern value_ptr find_function_in_inferior PARAMS ((char*)); struct type *builtin_type_scm; @@ -73,7 +78,6 @@ scm_get_field (svalue, index) LONGEST svalue; int index; { - value_ptr val; char buffer[20]; read_memory (SCM2PTR (svalue) + index * TYPE_LENGTH (builtin_type_scm), buffer, TYPE_LENGTH (builtin_type_scm)); @@ -148,13 +152,13 @@ in_eval_c () First lookup in Scheme context (using the scm_lookup_cstr inferior function), then try lookup_symbol for compiled variables. */ -value_ptr +static value_ptr scm_lookup_name (str) char *str; { value_ptr args[3]; int len = strlen (str); - value_ptr symval, func, val; + value_ptr func, val; struct symbol *sym; args[0] = value_allocate_space_in_inferior (len); args[1] = value_from_longest (builtin_type_int, len); -- cgit v1.2.1