summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2008-08-23 18:53:09 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2008-08-23 18:53:09 (GMT)
commit4f50d303e2352deed7b6020a08a095466f6306b8 (patch)
tree9dd27e42ded2cc1cc95c6bd3f4779d4c77bbabc0
parent8079e10d030cf672bc00e73d705afe52452fae5e (diff)
downloadtcl-4f50d303e2352deed7b6020a08a095466f6306b8.zip
tcl-4f50d303e2352deed7b6020a08a095466f6306b8.tar.gz
tcl-4f50d303e2352deed7b6020a08a095466f6306b8.tar.bz2
* generic/tclBasic.c: Removed unused var; fixed function
* generic/tclOOInt.h: pointer declarations (why did gcc start * generic/tclOOMethod.c: complaining all of a sudden?) * generic/tclProc.c:
-rw-r--r--ChangeLog7
-rw-r--r--generic/tclBasic.c4
-rw-r--r--generic/tclOOInt.h4
-rw-r--r--generic/tclOOMethod.c4
-rw-r--r--generic/tclProc.c4
5 files changed, 14 insertions, 9 deletions
diff --git a/ChangeLog b/ChangeLog
index c087901..c70f1d1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2008-08-23 Miguel Sofer <msofer@users.sf.net>
+
+ * generic/tclBasic.c: Removed unused var; fixed function
+ * generic/tclOOInt.h: pointer declarations (why did gcc start
+ * generic/tclOOMethod.c: complaining all of a sudden?)
+ * generic/tclProc.c:
+
2008-08-23 Donal K. Fellows <dkf@users.sf.net>
* generic/tclInt.h (EnsembleImplMap): Added extra field to make it
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;