From 451ef00cc599a1b58cf570fdb088f04b0ed63fa1 Mon Sep 17 00:00:00 2001
From: das <das>
Date: Sat, 9 Apr 2005 11:09:50 +0000
Subject: 	* generic/tclListObj.c (Tcl_ListObjIndex): added missing NULL
 return 	when getting index from an empty list.

---
 ChangeLog            | 3 +++
 generic/tclListObj.c | 5 +++--
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 53e2962..1264f5f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2005-04-09  Daniel Steffen  <das@users.sourceforge.net>
 
+	* generic/tclListObj.c (Tcl_ListObjIndex): added missing NULL return
+	when getting index from an empty list.
+	
 	* unix/tcl.m4 (Darwin): added -single_module linker flag to
 	TCL_SHLIB_LD_EXTRAS and TK_SHLIB_LD_EXTRAS.
 	* unix/configure: autoconf-2.59
diff --git a/generic/tclListObj.c b/generic/tclListObj.c
index ddcb062..47bcccf 100644
--- a/generic/tclListObj.c
+++ b/generic/tclListObj.c
@@ -11,7 +11,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclListObj.c,v 1.21 2005/04/02 02:08:59 msofer Exp $
+ * RCS: @(#) $Id: tclListObj.c,v 1.22 2005/04/09 11:09:58 das Exp $
  */
 
 #include "tclInt.h"
@@ -622,7 +622,8 @@ Tcl_ListObjIndex(interp, listPtr, index, objPtrPtr)
 
 	(void) Tcl_GetStringFromObj(listPtr, &length);
 	if (!length) {
-	    return 0;
+	    *objPtrPtr = NULL;
+	    return TCL_OK;
 	}
 
 	result = SetListFromAny(interp, listPtr);
-- 
cgit v0.12