Reduce internals access in the implementation of [<foo>::pkgconfig list].

2 files changed, 8 insertions, 8 deletions

diff --git a/ChangeLog b/ChangeLog
index 1c3abf8..f7f21bb 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2011-04-19  Don Porter  <dgp@users.sourceforge.net>
+
+	* generic/tclConfig.c:	Reduce internals access in the implementation
+	of [<foo>::pkgconfig list].
+
 2011-04-18  Don Porter  <dgp@users.sourceforge.net>
 
 	* generic/tclCmdIL.c:	Use ListRepPtr(.) and other cleanup.
diff --git a/generic/tclConfig.c b/generic/tclConfig.c
index 8f60b02..b4735e8 100644
--- a/generic/tclConfig.c
+++ b/generic/tclConfig.c
@@ -277,18 +277,13 @@ QueryConfigObjCmd(
 	}
 
 	if (n) {
-	    List *listRepPtr = ListRepPtr(listPtr);
 	    Tcl_DictSearch s;
-	    Tcl_Obj *key, **vals;
-	    int done, i = 0;
-
-	    listRepPtr->elemCount = n;
-	    vals = &listRepPtr->elements;
+	    Tcl_Obj *key;
+	    int done;
 
 	    for (Tcl_DictObjFirst(interp, pkgDict, &s, &key, NULL, &done);
 		    !done; Tcl_DictObjNext(&s, &key, NULL, &done)) {
-		vals[i++] = key;
-		Tcl_IncrRefCount(key);
+		Tcl_ListObjAppendElement(NULL, listPtr, key);
 	    }
 	}