diff options
| author | Jim Ingham <jingham@apple.com> | 1999-02-06 01:50:46 +0000 |
|---|---|---|
| committer | Jim Ingham <jingham@apple.com> | 1999-02-06 01:50:46 +0000 |
| commit | b11485dae8764a26940696869b1bf05fdb5178b9 (patch) | |
| tree | 2cc965db3a778c16e07999e43f5b1476c4d5ba77 /gdb/gdbtk-cmds.c | |
| parent | 77e3189254f4d4584b51b7922c0b3b0d8bd2ecec (diff) | |
| download | binutils-b11485dae8764a26940696869b1bf05fdb5178b9.zip binutils-b11485dae8764a26940696869b1bf05fdb5178b9.tar.gz binutils-b11485dae8764a26940696869b1bf05fdb5178b9.tar.bz2 | |
1999-02-05 James Ingham <jingham@cygnus.com>
* Makefile.in: Add GDBTK_CFLAGS - this is now used to hold
-fwritable-strings when compiling with Tk8.1.
* configure.in: Add GDBTK_CFLAGS, set it to -fwritable-strings for
Tcl/Tk8.1 & greater.
* acinclude.m4: Move the rest of the defines to find Itcl, Itk &
Tix from aclocal.m4 to here.
* aclocal.m4: regenerate.
* configure: regenerate.
* gdbtk-hooks.c (x_event): Tcl_ObjGetVar2 was removed from
Tcl8.1. Use Tcl_GetVar2 instead.
* gdbtk-hooks.c (gdbtk_trace_find): Fix up call to
Tcl_GlobalEvalObj for Tcl/Tk 8.1.
* gdbtk-hooks.c (gdbtk_trace_start_stop): Call to Tcl_EvalObj was
inefficient, replace with call to Tcl_GlobalEval.
* gdbtk.c: Don't swap out the Tcl_Alloc calls in gdbtk.c. We took
care of that in Tcl itself for 8.1.
* gdbtk.c: Remove const from the script string since Tcl8.1 has
taken to scribbling sentinals into strings passed to it again...
* gdbtk-cmds.c (wrapped_call): Change declaration of 1st arg from
char * to PTR to eliminate warning.
* gdbtk-cmds.c (perror_with_name_wrapper): Ditto
Diffstat (limited to 'gdb/gdbtk-cmds.c')
| -rw-r--r-- | gdb/gdbtk-cmds.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gdb/gdbtk-cmds.c b/gdb/gdbtk-cmds.c index 2bdcddf..b81c3f9 100644 --- a/gdb/gdbtk-cmds.c +++ b/gdb/gdbtk-cmds.c @@ -241,10 +241,10 @@ char * get_prompt PARAMS ((void)); static void get_register PARAMS ((int, void *)); static void get_register_name PARAMS ((int, void *)); static int map_arg_registers PARAMS ((int, Tcl_Obj *CONST [], void (*) (int, void *), void *)); -static int perror_with_name_wrapper PARAMS ((char *args)); +static int perror_with_name_wrapper PARAMS ((PTR args)); static void register_changed_p PARAMS ((int, void *)); void TclDebug PARAMS ((const char *fmt, ...)); -static int wrapped_call (char *opaque_args); +static int wrapped_call (PTR opaque_args); static void get_frame_name PARAMS ((Tcl_Interp *interp, Tcl_Obj *list, struct frame_info *fi)); /* Gdbtk_Init @@ -441,7 +441,7 @@ call_wrapper (clientData, interp, objc, objv) static int wrapped_call (opaque_args) - char *opaque_args; + PTR opaque_args; { struct wrapped_call_args *args = (struct wrapped_call_args *) opaque_args; args->val = (*args->func) (args->func, args->interp, args->objc, args->objv); @@ -3550,7 +3550,7 @@ gdb_path_conv (clientData, interp, objc, objv) static int perror_with_name_wrapper (args) - char * args; + PTR args; { perror_with_name (args); return 1; |