diff options
| -rw-r--r-- | gdb/ChangeLog-gdbtk | 4 | ||||
| -rw-r--r-- | gdb/gdbtk.c | 17 |
2 files changed, 20 insertions, 1 deletions
diff --git a/gdb/ChangeLog-gdbtk b/gdb/ChangeLog-gdbtk index ce53f5a..fe226d0 100644 --- a/gdb/ChangeLog-gdbtk +++ b/gdb/ChangeLog-gdbtk @@ -1,3 +1,7 @@ +Fri Apr 10 15:48:10 1998 Jason Molenda (crash@bugshack.cygnus.com) + + * gdbtk.c (gdb_listfiles): Allocate space for 'files' dynamically. + Thu Apr 9 14:20:59 1998 Martin M. Hunt <hunt@cygnus.com> * gdbtk.c (gdbtk_init): Remove redundant variable "IDE". diff --git a/gdb/gdbtk.c b/gdb/gdbtk.c index d6e66a5..a0a5d4d 100644 --- a/gdb/gdbtk.c +++ b/gdb/gdbtk.c @@ -1278,10 +1278,14 @@ gdb_listfiles (clientData, interp, objc, objv) struct objfile *objfile; struct partial_symtab *psymtab; struct symtab *symtab; - char *lastfile, *pathname, *files[1000]; + char *lastfile, *pathname, **files; + int files_size; int i, numfiles = 0, len = 0; Tcl_Obj *mylist; + files_size = 1000; + files = (char **) xmalloc (sizeof (char *) * files_size); + if (objc > 2) { Tcl_WrongNumArgs (interp, 1, objv, "Usage: gdb_listfiles ?pathname?"); @@ -1294,6 +1298,11 @@ gdb_listfiles (clientData, interp, objc, objv) ALL_PSYMTABS (objfile, psymtab) { + if (numfiles == files_size) + { + files_size = files_size * 2; + files = (char **) xrealloc (files, sizeof (char *) * files_size); + } if (len == 0) { if (psymtab->filename) @@ -1307,6 +1316,11 @@ gdb_listfiles (clientData, interp, objc, objv) ALL_SYMTABS (objfile, symtab) { + if (numfiles == files_size) + { + files_size = files_size * 2; + files = (char **) xrealloc (files, sizeof (char *) * files_size); + } if (len == 0) { if (symtab->filename) @@ -1328,6 +1342,7 @@ gdb_listfiles (clientData, interp, objc, objv) lastfile = files[i]; } Tcl_SetObjResult (interp, mylist); + free (files); return TCL_OK; } |