blob: 9376b28df0a36f71fd1d79c3c7370e50a0177e87 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
--- 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) ||
|
