From f8f2edda8715ea332ecf36f0b07d45d662f9a9ff Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Wed, 25 Feb 2004 16:17:16 +0000
Subject: Missed a pointer dereference in check for NULL.  D'oh!  [904307]

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

diff --git a/ChangeLog b/ChangeLog
index 30b5811..cac0247 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2004-02-25  Donal K. Fellows  <donal.k.fellows@man.ac.uk>
 
+	* generic/tclLoad.c (Tcl_LoadObjCmd): Missing dereference caused
+	segfault with non-loadable extension. [Bug 904307]
+
 	* unix/tclUnixChan.c (TcpGetOptionProc): Stop memory leak with
 	very long hostnames.  [Bug 888777]
 
diff --git a/generic/tclLoad.c b/generic/tclLoad.c
index 5be526c..39a5833 100644
--- a/generic/tclLoad.c
+++ b/generic/tclLoad.c
@@ -9,7 +9,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclLoad.c,v 1.11 2004/02/24 22:58:48 dkf Exp $
+ * RCS: @(#) $Id: tclLoad.c,v 1.12 2004/02/25 16:17:17 dkf Exp $
  */
 
 #include "tclInt.h"
@@ -376,7 +376,7 @@ Tcl_LoadObjCmd(dummy, interp, objc, objv)
 	if (code != TCL_OK) {
 	    goto done;
 	}
-	if (procPtrs[0] /* initProc */ == NULL) {
+	if (*procPtrs[0] /* initProc */ == NULL) {
 	    Tcl_AppendResult(interp, "couldn't find procedure ",
 		    Tcl_DStringValue(&initName), (char *) NULL);
 	    if (unLoadProcPtr != NULL) {
-- 
cgit v0.12