diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2014-01-10 15:58:41 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2014-01-10 15:58:41 (GMT) |
| commit | 2803a8a05559eeba811d825d94efcb3acc1c9eb5 (patch) | |
| tree | e059ae617b58faac8fe25b5c8b71697b13b788df /generic/tclExecute.c | |
| parent | 29ae06c2d37c62b89dbc679c87cffd292b077cbf (diff) | |
| download | tcl-2803a8a05559eeba811d825d94efcb3acc1c9eb5.zip tcl-2803a8a05559eeba811d825d94efcb3acc1c9eb5.tar.gz tcl-2803a8a05559eeba811d825d94efcb3acc1c9eb5.tar.bz2 | |
a different approach
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 5b42124..2707ec1 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -5776,6 +5776,14 @@ TEBCresume( int type1, type2; long l1, l2, lResult; + case INST_NUM_TYPE: + if (GetNumberFromObj(NULL, OBJ_AT_TOS, &ptr1, &type1) != TCL_OK) { + type1 = 0; + } + TclNewIntObj(objResultPtr, type1); + TRACE(("\"%.20s\" => %d\n", O2S(OBJ_AT_TOS), type1)); + NEXT_INST_F(1, 1, 1); + case INST_EQ: case INST_NEQ: case INST_LT: |