diff options
| author | dgp <dgp@users.sourceforge.net> | 2005-10-08 14:42:44 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2005-10-08 14:42:44 (GMT) |
| commit | 76faac0f28fe9661f23ff9e35f44df1d899420e5 (patch) | |
| tree | 7e3de1d0523d70328cfd81d9864b897058823d34 /generic/tclProc.c | |
| parent | 98a6fcad96289a40b501fbd2095387a245fd804d (diff) | |
| download | tcl-76faac0f28fe9661f23ff9e35f44df1d899420e5.zip tcl-76faac0f28fe9661f23ff9e35f44df1d899420e5.tar.gz tcl-76faac0f28fe9661f23ff9e35f44df1d899420e5.tar.bz2 | |
TIP#237 IMPLEMENTATION
[kennykb-numerics-branch] Resynchronized with the HEAD; at this
checkpoint [-rkennykb-numerics-branch-20051008], the HEAD and
kennykb-numerics-branch contain identical code.
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); |