Remove unused variable tcl_ret in do_hook()

Squashes a warning.
This commit is contained in:
Kevin Easton
2017-11-29 23:50:32 +11:00
parent b458082800
commit 0905cf9528

View File

@@ -821,22 +821,19 @@ static int show_list (int which)
int BX_do_hook (int which, char *format, ...) int BX_do_hook (int which, char *format, ...)
{ {
Hook *tmp = NULL, Hook *tmp = NULL;
*next = NULL, Hook *next = NULL;
**list; Hook **list;
char buffer [BIG_BUFFER_SIZE * 10 + 1], char buffer[BIG_BUFFER_SIZE * 10 + 1];
*name = NULL; char *name = NULL;
int retval = DONT_SUPPRESS_DEFAULT; int retval = DONT_SUPPRESS_DEFAULT;
unsigned display = window_display; unsigned display = window_display;
int i; int i;
Hook *hook_array [2048] = { 0 }; Hook *hook_array[2048] = { 0 };
int hook_num = 0; int hook_num = 0;
char *result = NULL; char *result = NULL;
int old_debug_count = debug_count; int old_debug_count = debug_count;
#ifdef WANT_TCL
int tcl_ret = 0;
#endif
/* /*
* Figure out where the hooks are for the event type were asserting * Figure out where the hooks are for the event type were asserting
*/ */
@@ -895,7 +892,7 @@ int BX_do_hook (int which, char *format, ...)
#ifdef WANT_TCL #ifdef WANT_TCL
if (tcl_interp) if (tcl_interp)
tcl_ret = check_on_hook(which, format?buffer:NULL); check_on_hook(which, format?buffer:NULL);
#endif #endif
/* /*