From: roberts <roberts>
Date: Wed, 28 Jul 1999 00:25:18 +0000 (+0000)
Subject: prevent a C++ compiler error
X-Git-Tag: 0.67_01~393
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cc198b4cc6aae5a88ea2c6008b78793e1ee3045e;p=catagits%2Ffcgi2.git

prevent a C++ compiler error
---

diff --git a/include/tclInt.h b/include/tclInt.h
index 6ec10fe..d892350 100644
--- a/include/tclInt.h
+++ b/include/tclInt.h
@@ -20,26 +20,26 @@
  * and need not follow the licensing terms described here, provided that
  * the new terms are clearly indicated on the first page of each file where
  * they apply.
- * 
+ *
  * IN NO EVENT SHALL THE AUTHORS OR DISTRIBUTORS BE LIABLE TO ANY PARTY
  * FOR DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES
  * ARISING OUT OF THE USE OF THIS SOFTWARE, ITS DOCUMENTATION, OR ANY
  * DERIVATIVES THEREOF, EVEN IF THE AUTHORS HAVE BEEN ADVISED OF THE
  * POSSIBILITY OF SUCH DAMAGE.
- * 
+ *
  * THE AUTHORS AND DISTRIBUTORS SPECIFICALLY DISCLAIM ANY WARRANTIES,
  * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY,
  * FITNESS FOR A PARTICULAR PURPOSE, AND NON-INFRINGEMENT.  THIS SOFTWARE
  * IS PROVIDED ON AN "AS IS" BASIS, AND THE AUTHORS AND DISTRIBUTORS HAVE
  * NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR
  * MODIFICATIONS.
- * 
+ *
  * RESTRICTED RIGHTS: Use, duplication or disclosure by the government
  * is subject to the restrictions as set forth in subparagraph (c) (1) (ii)
  * of the Rights in Technical Data and Computer Software Clause as DFARS
  * 252.227-7013 and FAR 52.227-19.
  *
- * $Id: tclInt.h,v 1.1 1997/09/16 15:36:32 stanleyg Exp $
+ * $Id: tclInt.h,v 1.2 1999/07/28 00:25:18 roberts Exp $
  *
  * @(#) tclInt.h 1.106 95/08/25 15:44:50
  */
@@ -58,6 +58,7 @@
  */
 
 #include <stdio.h>
+#include <assert.h>
 
 #ifndef _TCL
 #include "tcl.h"
@@ -186,7 +187,7 @@ typedef struct Var {
 				 * variables and array elements.  Malloc-ed. */
 	Tcl_HashTable *tablePtr;/* For array variables, this points to
 				 * information about the hash table used
-				 * to implement the associative array. 
+				 * to implement the associative array.
 				 * Points to malloc-ed data. */
 	struct Var *upvarPtr;	/* If this is a global variable being
 				 * referred to in a procedure, or a variable
@@ -787,7 +788,7 @@ extern OpenFile **	tclOpenFiles;
  *----------------------------------------------------------------
  */
 
-extern void		panic();
+#define panic(a)  assert(a)
 extern void		TclCopyAndCollapse _ANSI_ARGS_((int count, char *src,
 			    char *dst));
 extern void		TclDeleteVars _ANSI_ARGS_((Interp *iPtr,