diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-10-30 08:47:33 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-10-30 08:47:33 (GMT) |
| commit | fe508fa3b5c9dffaebbd68b86344a799a45075c4 (patch) | |
| tree | 5dbc8e9998a9a9b1c96e2ec1f3fb2fd1e7ddc04c /generic/tclProc.c | |
| parent | e0578530b062a38b3fe7dfd1474dd3caa927c271 (diff) | |
| download | tcl-fe508fa3b5c9dffaebbd68b86344a799a45075c4.zip tcl-fe508fa3b5c9dffaebbd68b86344a799a45075c4.tar.gz tcl-fe508fa3b5c9dffaebbd68b86344a799a45075c4.tar.bz2 | |
Experimental branch meant to eliminate the "wideint" type, just merge it to a single "int" type. No effect on linux64 and similar systems, code simplification for Win64 and 32-bit system. No TIP yet, implementation ongoing.
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 96bdcf3..133f41d 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -826,7 +826,7 @@ TclObjGetFrame( level = curLevel - level; result = 1; } else if (objPtr->typePtr == &levelReferenceType) { - level = (int) objPtr->internalRep.longValue; + level = (int) objPtr->internalRep.wideValue; result = 1; } else { name = TclGetString(objPtr); @@ -834,7 +834,7 @@ TclObjGetFrame( if (TCL_OK == Tcl_GetInt(NULL, name+1, &level) && level >= 0) { TclFreeIntRep(objPtr); objPtr->typePtr = &levelReferenceType; - objPtr->internalRep.longValue = level; + objPtr->internalRep.wideValue = level; result = 1; } else { result = -1; |