21 lines
583 B
C
21 lines
583 B
C
|
--- generic/tclXutil.c.orig 2014-07-30 16:56:00.000000000 +0200
|
||
|
|
+++ generic/tclXutil.c 2014-07-30 16:56:50.000000000 +0200
|
||
|
|
@@ -870,7 +870,7 @@
|
||
|
|
TclX_IsNullObj (objPtr)
|
||
|
|
Tcl_Obj *objPtr;
|
||
|
|
{
|
||
|
|
- static Tcl_ObjType *listType = NULL, *stringType = NULL;
|
||
|
|
+ const static Tcl_ObjType *listType = NULL, *stringType = NULL;
|
||
|
|
int length;
|
||
|
|
|
||
|
|
/*
|
||
|
|
@@ -956,7 +956,7 @@
|
||
|
|
{
|
||
|
|
Tcl_Obj **saveObjv;
|
||
|
|
int saveObjc;
|
||
|
|
- long flags;
|
||
|
|
+ long flags = 0;
|
||
|
|
|
||
|
|
if ((Tcl_ListObjGetElements (NULL, saveObjPtr, &saveObjc,
|
||
|
|
&saveObjv) != TCL_OK) ||
|