/* Kernel Object Display generic routines and callbacks
- Copyright 1998, 1999 Free Software Foundation, Inc.
+ Copyright 1998, 1999, 2000 Free Software Foundation, Inc.
void _initialize_kod (void);
/* Prototypes for local functions. */
-static void show_kod (char *, int);
static void info_kod_command (char *, int);
static void load_kod_library (char *);
static void
gdb_kod_query (char *arg, char *result, int *maxsiz)
{
- int bufsiz = 0;
+ LONGEST bufsiz = 0;
- /* Check if current target has remote_query capabilities.
- If not, it does not have kod either. */
- if (! current_target.to_query)
+ /* Check if current target has remote_query capabilities. If not,
+ it does not have kod either. */
+ bufsiz = target_read_partial (¤t_target, TARGET_OBJECT_KOD,
+ NULL, NULL, 0, 0);
+ if (bufsiz < 0)
{
strcpy (result,
"ERR: Kernel Object Display not supported by current target\n");
}
/* Just get the maximum buffer size. */
- target_query ((int) 'K', 0, 0, &bufsiz);
/* Check if *we* were called just for getting the buffer size. */
if (*maxsiz == 0)
error ("kod: query argument too long");
/* Send actual request. */
- if (target_query ((int) 'K', arg, result, &bufsiz))
+ if (target_read_partial (¤t_target, TARGET_OBJECT_KOD,
+ arg, result, 0, bufsiz) < 0)
strcpy (result, "ERR: remote query failed");
}
{
char *p;
- if (command->type != set_cmd)
+ /* NOTE: cagney/2002-03-17: The add_show_from_set() function clones
+ the set command passed as a parameter. The clone operation will
+ include (BUG?) any ``set'' command callback, if present.
+ Commands like ``info set'' call all the ``show'' command
+ callbacks. Unfortunately, for ``show'' commands cloned from
+ ``set'', this includes callbacks belonging to ``set'' commands.
+ Making this worse, this only occures if add_show_from_set() is
+ called after add_cmd_sfunc() (BUG?). */
+
+ if (cmd_type (command) != set_cmd)
return;
/* If we had already had an open OS, close it. */
if (old_operating_system)
{
delete_cmd (old_operating_system, &infolist);
- free (old_operating_system);
+ xfree (old_operating_system);
}
- old_operating_system = strdup (operating_system);
if (! operating_system || ! *operating_system)
{
{
char *kodlib;
+ old_operating_system = xstrdup (operating_system);
+
load_kod_library (operating_system);
kodlib = (*gdb_kod_open) (gdb_kod_display, gdb_kod_query);
p = "Unknown KOD library";
printf_filtered ("%s - %s\n", operating_system, p);
- free (kodlib);
+ xfree (kodlib);
}
}
}
void
-_initialize_kod ()
+_initialize_kod (void)
{
struct cmd_list_element *c;
(char *) &operating_system,
"Set operating system",
&setlist);
- c->function.sfunc = kod_set_os;
+ set_cmd_sfunc (c, kod_set_os);
add_show_from_set (c, &showlist);
}