summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordas <das>2008-07-22 23:06:25 (GMT)
committerdas <das>2008-07-22 23:06:25 (GMT)
commita4c31dcffa6781cf45a97ec8ea576c9b0b914c04 (patch)
tree22a09902376bd688efd3bfe16f4be45719a3e73f
parentc7c37e1d88e15726e56e7455fd6435d4b4548c5b (diff)
downloadtcl-a4c31dcffa6781cf45a97ec8ea576c9b0b914c04.zip
tcl-a4c31dcffa6781cf45a97ec8ea576c9b0b914c04.tar.gz
tcl-a4c31dcffa6781cf45a97ec8ea576c9b0b914c04.tar.bz2
make genstubs
-rw-r--r--generic/tclIntDecls.h13
-rw-r--r--generic/tclStubInit.c4
2 files changed, 11 insertions, 6 deletions
diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h
index 1190867..f79728e 100644
--- a/generic/tclIntDecls.h
+++ b/generic/tclIntDecls.h
@@ -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: tclIntDecls.h,v 1.120 2008/07/22 23:01:36 das Exp $
+ * RCS: @(#) $Id: tclIntDecls.h,v 1.121 2008/07/22 23:06:25 das Exp $
*/
#ifndef _TCLINTDECLS
@@ -1082,8 +1082,13 @@ EXTERN int TclResetCancellation (Tcl_Interp * interp, int force);
EXTERN int TclEvalObjv_NR2 (Tcl_Interp * interp, int result,
struct TEOV_record * rootPtr);
#endif
+#ifndef TclNRInterpProc_TCL_DECLARED
+#define TclNRInterpProc_TCL_DECLARED
/* 239 */
-EXTERN Tcl_ObjCmdProc TclNRInterpProc;
+EXTERN int TclNRInterpProc (ClientData clientData,
+ Tcl_Interp * interp, int objc,
+ Tcl_Obj *const objv[]);
+#endif
#ifndef TclNRInterpProcCore_TCL_DECLARED
#define TclNRInterpProcCore_TCL_DECLARED
/* 240 */
@@ -1376,7 +1381,7 @@ typedef struct TclIntStubs {
void (*tclBackgroundException) (Tcl_Interp * interp, int code); /* 236 */
int (*tclResetCancellation) (Tcl_Interp * interp, int force); /* 237 */
int (*tclEvalObjv_NR2) (Tcl_Interp * interp, int result, struct TEOV_record * rootPtr); /* 238 */
- Tcl_ObjCmdProc *tclNRInterpProc; /* 239 */
+ int (*tclNRInterpProc) (ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *const objv[]); /* 239 */
int (*tclNRInterpProcCore) (Tcl_Interp * interp, Tcl_Obj * procNameObj, int skip, ProcErrorProc errorProc); /* 240 */
struct TEOV_record * (*tclNRPushRecord) (Tcl_Interp * interp); /* 241 */
void (*tclNRPopAndFreeRecord) (Tcl_Interp * interp); /* 242 */
@@ -2132,7 +2137,7 @@ extern CONST TclIntStubs *tclIntStubsPtr;
#endif
#ifndef TclNRInterpProc
#define TclNRInterpProc \
- (*tclIntStubsPtr->tclNRInterpProc) /* 239 */
+ (tclIntStubsPtr->tclNRInterpProc) /* 239 */
#endif
#ifndef TclNRInterpProcCore
#define TclNRInterpProcCore \
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c
index 6473d74..76c0e15 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.160 2008/07/22 23:01:43 das Exp $
+ * RCS: @(#) $Id: tclStubInit.c,v 1.161 2008/07/22 23:06:25 das Exp $
*/
#include "tclInt.h"
@@ -308,7 +308,7 @@ static const TclIntStubs tclIntStubs = {
TclBackgroundException, /* 236 */
TclResetCancellation, /* 237 */
TclEvalObjv_NR2, /* 238 */
- &TclNRInterpProc, /* 239 */
+ TclNRInterpProc, /* 239 */
TclNRInterpProcCore, /* 240 */
TclNRPushRecord, /* 241 */
TclNRPopAndFreeRecord, /* 242 */