* 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:

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;