diff options
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclBasic.c | 4 | ||||
| -rw-r--r-- | generic/tclOOInt.h | 4 | ||||
| -rw-r--r-- | generic/tclOOMethod.c | 4 | ||||
| -rw-r--r-- | generic/tclProc.c | 4 |
4 files changed, 7 insertions, 9 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 30631a5..3eb9908 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -16,7 +16,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.361 2008/08/23 01:48:25 msofer Exp $ + * RCS: @(#) $Id: tclBasic.c,v 1.362 2008/08/23 18:53:09 msofer Exp $ */ #include "tclInt.h" @@ -8159,8 +8159,6 @@ static void PlugCoroutineChains( CoroutineData *corPtr) { - Tcl_Interp *interp = corPtr->eePtr->interp; - /* * Called to plug the coroutine's running environment into the caller's, * so that the frame chains are uninterrupted. Note that the levels and diff --git a/generic/tclOOInt.h b/generic/tclOOInt.h index 6b10a40..056091d 100644 --- a/generic/tclOOInt.h +++ b/generic/tclOOInt.h @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclOOInt.h,v 1.6 2008/07/31 14:43:47 msofer Exp $ + * RCS: @(#) $Id: tclOOInt.h,v 1.7 2008/08/23 18:53:11 msofer Exp $ */ #include <tclInt.h> @@ -76,7 +76,7 @@ typedef struct ProcedureMethod { ClientData clientData; TclOO_PmCDDeleteProc deleteClientdataProc; TclOO_PmCDCloneProc cloneClientdataProc; - ProcErrorProc errProc; /* Replacement error handler. */ + ProcErrorProc *errProc; /* Replacement error handler. */ TclOO_PreCallProc preCallProc; /* Callback to allow for additional setup * before the method executes. */ diff --git a/generic/tclOOMethod.c b/generic/tclOOMethod.c index 67d67b5..75aef73 100644 --- a/generic/tclOOMethod.c +++ b/generic/tclOOMethod.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: tclOOMethod.c,v 1.16 2008/08/21 10:36:57 dkf Exp $ + * RCS: @(#) $Id: tclOOMethod.c,v 1.17 2008/08/23 18:53:12 msofer Exp $ */ #ifdef HAVE_CONFIG_H @@ -37,7 +37,7 @@ struct PNI { typedef struct { CallFrame *framePtr; /* Reference to the call frame itself (it's * actually allocated on the Tcl stack). */ - ProcErrorProc errProc; /* The error handler for the body. */ + ProcErrorProc *errProc; /* The error handler for the body. */ Tcl_Obj *nameObj; /* The "name" of the command. */ Command cmd; /* The command structure. Mostly bogus. */ ExtraFrameInfo efi; /* Extra information used for [info frame]. */ diff --git a/generic/tclProc.c b/generic/tclProc.c index 9b28fd5..bfe5891 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclProc.c,v 1.162 2008/08/21 14:02:23 dkf Exp $ + * RCS: @(#) $Id: tclProc.c,v 1.163 2008/08/23 18:53:12 msofer Exp $ */ #include "tclInt.h" @@ -1805,7 +1805,7 @@ InterpProcNR2( Proc *procPtr = iPtr->varFramePtr->procPtr; CallFrame *freePtr; Tcl_Obj *procNameObj = data[0]; - ProcErrorProc errorProc = data[1]; + ProcErrorProc *errorProc = data[1]; if (TCL_DTRACE_PROC_RETURN_ENABLED()) { int l = iPtr->varFramePtr->isProcCallFrame & FRAME_IS_LAMBDA ? 1 : 0; |