From d8e3995b69d5ef00da43c13d6ee3ebc4e4b10309 Mon Sep 17 00:00:00 2001
From: redman <redman>
Date: Mon, 2 Aug 1999 18:33:43 +0000
Subject: removed extra declaration of Tcl_RegExpMatchObj

---
 generic/tcl.decls     |  7 +------
 generic/tclDecls.h    | 10 +---------
 generic/tclStubInit.c |  3 +--
 3 files changed, 3 insertions(+), 17 deletions(-)

diff --git a/generic/tcl.decls b/generic/tcl.decls
index 56ce744..0d186f9 100644
--- a/generic/tcl.decls
+++ b/generic/tcl.decls
@@ -10,7 +10,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 # 
-# RCS: @(#) $Id: tcl.decls,v 1.23 1999/08/02 17:45:36 redman Exp $
+# RCS: @(#) $Id: tcl.decls,v 1.24 1999/08/02 18:33:43 redman Exp $
 
 library tcl
 
@@ -1335,11 +1335,6 @@ declare 386 generic {
     void Tcl_SetNotifier(Tcl_NotifierProcs *notifierProcPtr)
 }
 
-declare 387 generic {
-    int Tcl_RegExpMatchObj (Tcl_Interp *interp, \
-	    char *string, Tcl_Obj *patObj)
-}
-
 ##############################################################################
 
 # Define the platform specific public Tcl interface.  These functions are
diff --git a/generic/tclDecls.h b/generic/tclDecls.h
index 9dcedc4..0eda09f 100644
--- a/generic/tclDecls.h
+++ b/generic/tclDecls.h
@@ -8,7 +8,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclDecls.h,v 1.24 1999/08/02 17:45:36 redman Exp $
+ * RCS: @(#) $Id: tclDecls.h,v 1.25 1999/08/02 18:33:43 redman Exp $
  */
 
 #ifndef _TCLDECLS
@@ -1208,9 +1208,6 @@ EXTERN int		Tcl_RegExpMatchObj _ANSI_ARGS_((Tcl_Interp * interp,
 /* 386 */
 EXTERN void		Tcl_SetNotifier _ANSI_ARGS_((
 				Tcl_NotifierProcs * notifierProcPtr));
-/* 387 */
-EXTERN int		Tcl_RegExpMatchObj _ANSI_ARGS_((Tcl_Interp * interp, 
-				char * string, Tcl_Obj * patObj));
 
 typedef struct TclStubHooks {
     struct TclPlatStubs *tclPlatStubs;
@@ -1665,7 +1662,6 @@ typedef struct TclStubs {
     void (*tcl_AppendUnicodeToObj) _ANSI_ARGS_((register Tcl_Obj * objPtr, Tcl_UniChar * unicode, int length)); /* 384 */
     int (*tcl_RegExpMatchObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * stringObj, Tcl_Obj * patternObj)); /* 385 */
     void (*tcl_SetNotifier) _ANSI_ARGS_((Tcl_NotifierProcs * notifierProcPtr)); /* 386 */
-    int (*tcl_RegExpMatchObj) _ANSI_ARGS_((Tcl_Interp * interp, char * string, Tcl_Obj * patObj)); /* 387 */
 } TclStubs;
 
 #ifdef __cplusplus
@@ -3259,10 +3255,6 @@ extern TclStubs *tclStubsPtr;
 #define Tcl_SetNotifier \
 	(tclStubsPtr->tcl_SetNotifier) /* 386 */
 #endif
-#ifndef Tcl_RegExpMatchObj
-#define Tcl_RegExpMatchObj \
-	(tclStubsPtr->tcl_RegExpMatchObj) /* 387 */
-#endif
 
 #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
 
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c
index 9c1cf74..f79dbd4 100644
--- a/generic/tclStubInit.c
+++ b/generic/tclStubInit.c
@@ -8,7 +8,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclStubInit.c,v 1.25 1999/08/02 17:45:38 redman Exp $
+ * RCS: @(#) $Id: tclStubInit.c,v 1.26 1999/08/02 18:33:44 redman Exp $
  */
 
 #include "tclInt.h"
@@ -780,7 +780,6 @@ TclStubs tclStubs = {
     Tcl_AppendUnicodeToObj, /* 384 */
     Tcl_RegExpMatchObj, /* 385 */
     Tcl_SetNotifier, /* 386 */
-    Tcl_RegExpMatchObj, /* 387 */
 };
 
 /* !END!: Do not edit above this line. */
-- 
cgit v0.12