From 47305581a84e1d59070c85d0e2196a46f3577ae5 Mon Sep 17 00:00:00 2001
From: Miguel Sofer <miguel.sofer@gmail.com>
Date: Mon, 27 Sep 2004 22:39:18 +0000
Subject: * generic/tclBasic.c (TclObjInvoke): fix for bogus gcc warning about 
  uninitialised variable.

---
 ChangeLog          | 5 +++++
 generic/tclBasic.c | 3 ++-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index c8c12df..ae7eb05 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2004-09-27  Miguel Sofer <msofer@users.sf.net>
+
+	* generic/tclBasic.c (TclObjInvoke): fix for bogus gcc warning
+	about uninitialised variable.
+
 2004-09-27  Don Porter  <dgp@users.sourceforge.net>
 
 	* generic/tclBasic.c:	Removed internal routines TclInvoke,
diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index fabec6f..6401e73 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -13,7 +13,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclBasic.c,v 1.118 2004/09/27 22:03:42 kennykb Exp $
+ * RCS: @(#) $Id: tclBasic.c,v 1.119 2004/09/27 22:39:20 msofer Exp $
  */
 
 #include "tclInt.h"
@@ -4283,6 +4283,7 @@ TclObjInvoke(interp, objc, objv, flags)
         }
 	cmdPtr = (Command *) Tcl_GetHashValue(hPtr);
     } else {
+	cmdPtr = NULL; /* Avoid warning */
 	Tcl_Panic("TclObjInvoke: called without TCL_INVOKE_HIDDEN");
     }
 
-- 
cgit v0.12