diff -Naur insight-6.8.orig/gdb/gdbtk/generic/gdbtk-stack.c insight-6.8.new/gdb/gdbtk/generic/gdbtk-stack.c --- insight-6.8.orig/gdb/gdbtk/generic/gdbtk-stack.c 2008-03-07 09:03:19.000000000 +0100 +++ insight-6.8.new/gdb/gdbtk/generic/gdbtk-stack.c 2008-08-15 17:52:50.000000000 +0200 @@ -251,7 +251,9 @@ gdb_get_args_command (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { - return gdb_get_vars_command ((ClientData) 1, interp, objc, objv); + static const int one = 1; + + return gdb_get_vars_command ((ClientData) &one, interp, objc, objv); } @@ -259,7 +261,9 @@ gdb_get_locals_command (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { - return gdb_get_vars_command ((ClientData) 0, interp, objc, objv); + static const int zero = 0; + + return gdb_get_vars_command ((ClientData) &zero, interp, objc, objv); } /* This implements the tcl commands "gdb_get_locals" and "gdb_get_args"