diff options
Diffstat (limited to 'generic/tclProc.c')
| -rw-r--r-- | generic/tclProc.c | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index b184c8a..b6f73e7 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -10,7 +10,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.80 2005/09/15 16:40:02 dgp Exp $ + * RCS: @(#) $Id: tclProc.c,v 1.81 2005/10/08 14:42:45 dgp Exp $ */ #include "tclInt.h" @@ -669,8 +669,12 @@ TclObjGetFrame(interp, objPtr, framePtrPtr) if (level < 0) { goto levelError; } - } else if (objPtr->typePtr == &tclIntType || - objPtr->typePtr == &tclWideIntType) { + /* TODO: Consider skipping the typePtr checks */ + } else if (objPtr->typePtr == &tclIntType +#ifndef NO_WIDE_TYPE + || objPtr->typePtr == &tclWideIntType +#endif + ) { if (Tcl_GetIntFromObj(NULL, objPtr, &level) != TCL_OK || level < 0) { goto levelError; } @@ -683,6 +687,8 @@ TclObjGetFrame(interp, objPtr, framePtrPtr) /* * Cache for future reference. + * + * TODO: Use the new ptrAndLongRep intrep */ TclFreeIntRep(objPtr); @@ -696,6 +702,8 @@ TclObjGetFrame(interp, objPtr, framePtrPtr) /* * Cache for future reference. + * + * TODO: Use the new ptrAndLongRep intrep */ TclFreeIntRep(objPtr); |