diff options
| author | das <das> | 2008-07-22 23:06:25 (GMT) |
|---|---|---|
| committer | das <das> | 2008-07-22 23:06:25 (GMT) |
| commit | a4c31dcffa6781cf45a97ec8ea576c9b0b914c04 (patch) | |
| tree | 22a09902376bd688efd3bfe16f4be45719a3e73f | |
| parent | c7c37e1d88e15726e56e7455fd6435d4b4548c5b (diff) | |
| download | tcl-a4c31dcffa6781cf45a97ec8ea576c9b0b914c04.zip tcl-a4c31dcffa6781cf45a97ec8ea576c9b0b914c04.tar.gz tcl-a4c31dcffa6781cf45a97ec8ea576c9b0b914c04.tar.bz2 | |
make genstubs
| -rw-r--r-- | generic/tclIntDecls.h | 13 | ||||
| -rw-r--r-- | generic/tclStubInit.c | 4 |
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 */ |