+Wed Jan 22 10:37:02 1998 Keith Seitz <keiths@onions.cygnus.com>
+
+ * symfile.c: Define two new hooks for symbol reading: "pre_add_symbol_hook"
+ and "post_add_symbol_hook". These hooks are called before we begin reading
+ symbols, and after we finish.
+ (generic_load): Use new symbol reading hooks and get rid of compiler warning.
+
+ * gdbtk.c (gdbtk_init): Add hooks for pre- and post-symbol reading.
+ (gdbtk_pre_add_symbol): New function: the pre-add-symbol hook.
+ (gdbtk_post_add_symbol): New function: the post-add-symbol hook.
+ (find_file_in_dir): New function. Moved the guts of gdb_find_file_command
+ into here to allow its use by others.
+ (gdb_loc): Use find_file_in_dir to return the real path to the file
+ (or "N/A" if we can't find it).
+
+ * configure.in (TIX_LIB_EXT): Define new variable for those special cases
+ when TCL_SHLIB_SUFFIX is not enough to specify the dependency.
+
+ * configure: Regenerate.
+
Fri Jan 23 07:47:06 1998 Fred Fish <fnf@cygnus.com>
* Makefile.in (uninstall): Remove installed gdbtcl dir, if one
esac
if test "${TCL_SHARED_BUILD}" = "1"; then
TIX_LIB_EXT="${TCL_SHLIB_SUFFIX}"
+
+ # Can't win them all: SunOS 4 (others?) appends a version
+ # number after the ".so"
+ case "${host}" in
+ *-*-sunos4*)
+ TIX_LIB_EXT="${TIX_LIB_EXT}.1.0" ;;
+ esac
+
else
TIX_LIB_EXT=".a"
fi
+
if test "${TCL_LIB_VERSIONS_OK}" = "ok"; then
TIXLIB="-L${tixdir} -ltix${TIXVERSION}"
TIX_DEPS="${tixdir}/libtix${TIXVERSION}${TIX_LIB_EXT}"
fi
# start-sanitize-gdbtk
echo $ac_n "checking whether ln -s works""... $ac_c" 1>&6
-echo "configure:3309: checking whether ln -s works" >&5
+echo "configure:3318: checking whether ln -s works" >&5
if eval "test \"`echo '$''{'ac_cv_prog_LN_S'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
echo $ac_n "checking for Cygwin32 environment""... $ac_c" 1>&6
-echo "configure:3344: checking for Cygwin32 environment" >&5
+echo "configure:3353: checking for Cygwin32 environment" >&5
if eval "test \"`echo '$''{'am_cv_cygwin32'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
cat > conftest.$ac_ext <<EOF
-#line 3349 "configure"
+#line 3358 "configure"
#include "confdefs.h"
int main() {
return __CYGWIN32__;
; return 0; }
EOF
-if { (eval echo configure:3356: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:3365: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
rm -rf conftest*
am_cv_cygwin32=yes
else
CYGWIN32=
test "$am_cv_cygwin32" = yes && CYGWIN32=yes
echo $ac_n "checking for Mingw32 environment""... $ac_c" 1>&6
-echo "configure:3373: checking for Mingw32 environment" >&5
+echo "configure:3382: checking for Mingw32 environment" >&5
if eval "test \"`echo '$''{'am_cv_mingw32'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
cat > conftest.$ac_ext <<EOF
-#line 3378 "configure"
+#line 3387 "configure"
#include "confdefs.h"
int main() {
return __MINGW32__;
; return 0; }
EOF
-if { (eval echo configure:3385: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
+if { (eval echo configure:3394: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
rm -rf conftest*
am_cv_mingw32=yes
else
echo $ac_n "checking for executable suffix""... $ac_c" 1>&6
-echo "configure:3404: checking for executable suffix" >&5
+echo "configure:3413: checking for executable suffix" >&5
if eval "test \"`echo '$''{'am_cv_exeext'+set}'`\" = set"; then
echo $ac_n "(cached) $ac_c" 1>&6
else
int gdbtk_load_hash PARAMS ((char *, unsigned long));
int (*ui_load_progress_hook) PARAMS ((char *, unsigned long));
+void (*pre_add_symbol_hook) PARAMS ((char *));
+void (*post_add_symbol_hook) PARAMS ((void));
static void null_routine PARAMS ((int));
static void gdbtk_flush PARAMS ((FILE *));
static int gdb_actions_command PARAMS ((ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[]));
static int gdb_prompt_command PARAMS ((ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[]));
static int gdb_find_file_command PARAMS ((ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[]));
+static char *find_file_in_dir PARAMS ((char *));
static int gdb_get_tracepoint_list PARAMS ((ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[]));
static void gdbtk_create_tracepoint PARAMS ((struct tracepoint *));
static void gdbtk_delete_tracepoint PARAMS ((struct tracepoint *));
static void tracepoint_notify PARAMS ((struct tracepoint *, const char *));
+void gdbtk_pre_add_symbol PARAMS ((char *));
+void gdbtk_post_add_symbol PARAMS ((void));
/* Handle for TCL interpreter */
filename = symtab_to_filename (sal.symtab);
if (filename == NULL)
- filename = "N/A";
+ filename = "";
Tcl_DStringAppendElement (result_ptr, filename);
find_pc_partial_function (b->address, &funcname, NULL, NULL);
Tcl_DStringAppendElement (result_ptr, funcname);
find_pc_partial_function (pc, &funcname, NULL, NULL);
Tcl_DStringAppendElement (result_ptr, funcname);
+ /* Would it be better to use "find_file_in_dir"? */
filename = symtab_to_filename (sal.symtab);
+
if (filename == NULL)
filename = "N/A";
Tcl_DStringAppendElement (result_ptr, filename);
readline_hook = gdbtk_readline;
readline_end_hook = gdbtk_readline_end;
ui_load_progress_hook = gdbtk_load_hash;
+ pre_add_symbol_hook = gdbtk_pre_add_symbol;
+ post_add_symbol_hook = gdbtk_post_add_symbol;
create_tracepoint_hook = gdbtk_create_tracepoint;
delete_tracepoint_hook = gdbtk_delete_tracepoint;
Tcl_Obj *CONST objv[];
{
char *file, *filename;
- struct symtab *st = NULL;
if (objc != 2)
{
return TCL_ERROR;
}
- /* try something simple first */
file = Tcl_GetStringFromObj (objv[1], NULL);
- if (access (file, R_OK) == 0)
- {
- Tcl_SetObjResult (interp, Tcl_NewStringObj (file, -1));
- return TCL_OK;
- }
+ filename = find_file_in_dir (file);
+
+ if (filename == NULL)
+ Tcl_SetResult (interp, "", TCL_STATIC);
+ else
+ Tcl_SetObjResult (interp, Tcl_NewStringObj (filename, -1));
+
+ return TCL_OK;
+}
+
+static char *
+find_file_in_dir (file)
+ char *file;
+{
+ struct symtab *st = NULL;
- /* We really need a symtab for this to work... */
- st = lookup_symtab (file);
- if (st != NULL)
+ if (file != NULL)
{
- filename = symtab_to_filename (st);
- if (filename != NULL)
+ /* try something simple first */
+ if (access (file, R_OK) == 0)
+ return file;
+
+ /* We really need a symtab for this to work... */
+ st = lookup_symtab (file);
+ if (st != NULL)
{
- Tcl_SetObjResult (interp, Tcl_NewStringObj (filename, -1));
- return TCL_OK;
+ file = symtab_to_filename (st);
+ if (file != NULL)
+ return file;
}
}
+
+ return NULL;
+}
- Tcl_SetResult (interp, "", TCL_STATIC);
- return TCL_OK;
+/* This hook is called whenever we are ready to load a symbol file so that
+ the UI can notify the user... */
+void
+gdbtk_pre_add_symbol (name)
+ char *name;
+{
+ char command[256];
+
+ sprintf (command, "gdbtk_tcl_pre_add_symbol %s", name);
+ Tcl_Eval (interp, command);
+}
+
+/* This hook is called whenever we finish loading a symbol file. */
+void
+gdbtk_post_add_symbol ()
+{
+ Tcl_Eval (interp, "gdbtk_tcl_post_add_symbol");
}
/* Come here during initialize_all_files () */
projects / binutils-gdb.git / commitdiff