diff options
| author | Andrew Cagney <cagney@redhat.com> | 2001-11-10 20:44:38 +0000 |
|---|---|---|
| committer | Andrew Cagney <cagney@redhat.com> | 2001-11-10 20:44:38 +0000 |
| commit | 6943961c9855edf1dd701b0047483f6a8bca6d90 (patch) | |
| tree | caf5d6f451b8ada066db66456f11814c36dd49ac /gdb/scm-lang.c | |
| parent | 610510309ffc52182d773bdb9971dbecc711281d (diff) | |
| download | gdb-6943961c9855edf1dd701b0047483f6a8bca6d90.zip gdb-6943961c9855edf1dd701b0047483f6a8bca6d90.tar.gz gdb-6943961c9855edf1dd701b0047483f6a8bca6d90.tar.bz2 | |
s/value_ptr/struct value */
Diffstat (limited to 'gdb/scm-lang.c')
| -rw-r--r-- | gdb/scm-lang.c | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/gdb/scm-lang.c b/gdb/scm-lang.c index 6a02314..ab71c83 100644 --- a/gdb/scm-lang.c +++ b/gdb/scm-lang.c @@ -1,5 +1,6 @@ /* Scheme/Guile language support routines for GDB, the GNU debugger. - Copyright 1995, 1996, 1998, 2000 Free Software Foundation, Inc. + Copyright 1995, 1996, 1998, 2000, 2001 + Free Software Foundation, Inc. This file is part of GDB. @@ -32,9 +33,9 @@ #include "gdbcore.h" extern void _initialize_scheme_language (void); -static value_ptr evaluate_subexp_scm (struct type *, struct expression *, +static struct value *evaluate_subexp_scm (struct type *, struct expression *, int *, enum noside); -static value_ptr scm_lookup_name (char *); +static struct value *scm_lookup_name (char *); static int in_eval_c (void); static void scm_printstr (struct ui_file * stream, char *string, unsigned int length, int width, @@ -146,12 +147,13 @@ in_eval_c (void) First lookup in Scheme context (using the scm_lookup_cstr inferior function), then try lookup_symbol for compiled variables. */ -static value_ptr +static struct value * scm_lookup_name (char *str) { value_ptr args[3]; int len = strlen (str); - value_ptr func, val; + struct value *func; + struct value *val; struct symbol *sym; args[0] = value_allocate_space_in_inferior (len); args[1] = value_from_longest (builtin_type_int, len); @@ -181,11 +183,11 @@ scm_lookup_name (char *str) error ("No symbol \"%s\" in current context."); } -value_ptr +struct value * scm_evaluate_string (char *str, int len) { - value_ptr func; - value_ptr addr = value_allocate_space_in_inferior (len + 1); + struct value *func; + struct value *addr = value_allocate_space_in_inferior (len + 1); LONGEST iaddr = value_as_long (addr); write_memory (iaddr, str, len); /* FIXME - should find and pass env */ @@ -194,7 +196,7 @@ scm_evaluate_string (char *str, int len) return call_function_by_hand (func, 1, &addr); } -static value_ptr +static struct value * evaluate_subexp_scm (struct type *expect_type, register struct expression *exp, register int *pos, enum noside noside) { |