diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2008-08-23 18:53:09 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2008-08-23 18:53:09 (GMT) |
| commit | 4f50d303e2352deed7b6020a08a095466f6306b8 (patch) | |
| tree | 9dd27e42ded2cc1cc95c6bd3f4779d4c77bbabc0 /generic/tclProc.c | |
| parent | 8079e10d030cf672bc00e73d705afe52452fae5e (diff) | |
| download | tcl-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:
Diffstat (limited to 'generic/tclProc.c')
| -rw-r--r-- | generic/tclProc.c | 4 |
1 files changed, 2 insertions, 2 deletions
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; |