From 74d71bafde63ca49cecadc990df7b3a2d7797849 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Fri, 11 Jul 2014 20:40:24 +0000
Subject: Suppress valgrind warnings about uninitialized values.

---
 generic/tclDictObj.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/generic/tclDictObj.c b/generic/tclDictObj.c
index 3c0ddd8..15fbe1e 100644
--- a/generic/tclDictObj.c
+++ b/generic/tclDictObj.c
@@ -405,6 +405,7 @@ DupDictInternalRep(
      */
 
     DICT(copyPtr) = newDict;
+    copyPtr->internalRep.twoPtrValue.ptr2 = NULL;
     copyPtr->typePtr = &tclDictType;
 }
 
@@ -720,6 +721,7 @@ SetDictFromAny(
     dict->chain = NULL;
     dict->refcount = 1;
     DICT(objPtr) = dict;
+    objPtr->internalRep.twoPtrValue.ptr2 = NULL;
     objPtr->typePtr = &tclDictType;
     return TCL_OK;
 
@@ -1390,6 +1392,7 @@ Tcl_NewDictObj(void)
     dict->chain = NULL;
     dict->refcount = 1;
     DICT(dictPtr) = dict;
+    dictPtr->internalRep.twoPtrValue.ptr2 = NULL;
     dictPtr->typePtr = &tclDictType;
     return dictPtr;
 #endif
@@ -1439,6 +1442,7 @@ Tcl_DbNewDictObj(
     dict->chain = NULL;
     dict->refcount = 1;
     DICT(dictPtr) = dict;
+    dictPtr->internalRep.twoPtrValue.ptr2 = NULL;
     dictPtr->typePtr = &tclDictType;
     return dictPtr;
 #else /* !TCL_MEM_DEBUG */
-- 
cgit v0.12