aboutsummaryrefslogtreecommitdiff
path: root/gdb/scm-lang.c
diff options
context:
space:
mode:
authorAndrew Cagney <cagney@redhat.com>2005-05-27 04:39:33 +0000
committerAndrew Cagney <cagney@redhat.com>2005-05-27 04:39:33 +0000
commitc68a6671d724482e3101ff3afc3effc928585cf9 (patch)
tree8535f58aae9fabc97a578a4340d4ff76a948e69c /gdb/scm-lang.c
parentb4d165ff8c251bc2d92962edfc86109b50399a80 (diff)
downloadgdb-c68a6671d724482e3101ff3afc3effc928585cf9.zip
gdb-c68a6671d724482e3101ff3afc3effc928585cf9.tar.gz
gdb-c68a6671d724482e3101ff3afc3effc928585cf9.tar.bz2
2005-05-27 Andrew Cagney <cagney@gnu.org>
* jv-lang.c (get_java_utf8_name): Add cast. (evaluate_subexp_java): Use gdb_byte for buffers. * jv-valprint.c (java_value_print, java_value_print): Use gdb_byte for buffers. * scm-lang.c (scm_get_field, scm_unpack) (scm_evaluate_string): Use gdb_byte for buffers. (scm_lookup_name): Add cast. * scm-valprint.c (scm_scmval_print, scm_scmval_print): Use gdb_byte for buffers. * tui/tui.h (tui_get_command_dimension): Make parameters unsigned. * tui/tui.c (tui_get_command_dimension): Make parameters unsigned. * value.h (check_field): Change "name" to a string. * valops.c (check_field): Change "name" to a string. * scm-lang.h (scm_parse): Use gdb_byte for buffers. * source.c (get_current_source_symtab_and_line) (set_current_source_symtab_and_line): Initialize all fields of sal structures. * cli/cli-cmds.c (list_command): Use gdb_byte for buffers.
Diffstat (limited to 'gdb/scm-lang.c')
-rw-r--r--gdb/scm-lang.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/gdb/scm-lang.c b/gdb/scm-lang.c
index 6054920..5ffa233 100644
--- a/gdb/scm-lang.c
+++ b/gdb/scm-lang.c
@@ -73,7 +73,7 @@ is_scmvalue_type (struct type *type)
LONGEST
scm_get_field (LONGEST svalue, int index)
{
- char buffer[20];
+ gdb_byte buffer[20];
read_memory (SCM2PTR (svalue) + index * TYPE_LENGTH (builtin_type_scm),
buffer, TYPE_LENGTH (builtin_type_scm));
return extract_signed_integer (buffer, TYPE_LENGTH (builtin_type_scm));
@@ -84,7 +84,7 @@ scm_get_field (LONGEST svalue, int index)
or Boolean (CONTEXT == TYPE_CODE_BOOL). */
LONGEST
-scm_unpack (struct type *type, const char *valaddr, enum type_code context)
+scm_unpack (struct type *type, const gdb_byte *valaddr, enum type_code context)
{
if (is_scmvalue_type (type))
{
@@ -157,7 +157,7 @@ scm_lookup_name (char *str)
struct symbol *sym;
args[0] = value_allocate_space_in_inferior (len);
args[1] = value_from_longest (builtin_type_int, len);
- write_memory (value_as_long (args[0]), str, len);
+ write_memory (value_as_long (args[0]), (gdb_byte *) str, len);
if (in_eval_c ()
&& (sym = lookup_symbol ("env",
@@ -189,9 +189,9 @@ scm_evaluate_string (char *str, int len)
struct value *func;
struct value *addr = value_allocate_space_in_inferior (len + 1);
LONGEST iaddr = value_as_long (addr);
- write_memory (iaddr, str, len);
+ write_memory (iaddr, (gdb_byte *) str, len);
/* FIXME - should find and pass env */
- write_memory (iaddr + len, "", 1);
+ write_memory (iaddr + len, (gdb_byte *) "", 1);
func = find_function_in_inferior ("scm_evstr");
return call_function_by_hand (func, 1, &addr);
}