diff options
| author | dkf <dkf@noemail.net> | 2014-01-10 15:58:41 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2014-01-10 15:58:41 (GMT) |
| commit | 785536ff17271f50539c29996db0c9f109fef96e (patch) | |
| tree | e059ae617b58faac8fe25b5c8b71697b13b788df /generic/tclCompile.c | |
| parent | 2f83b7ef97e1860f1686f5a1f65861c9dc10a741 (diff) | |
| download | tcl-785536ff17271f50539c29996db0c9f109fef96e.zip tcl-785536ff17271f50539c29996db0c9f109fef96e.tar.gz tcl-785536ff17271f50539c29996db0c9f109fef96e.tar.bz2 | |
a different approach
FossilOrigin-Name: 85c888f3e730cefa9bb786ffb54f21d3cbdc3826
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index ee67e24..c01571f 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -621,6 +621,10 @@ InstructionDesc const tclInstructionTable[] = { /* Push the identity of the current TclOO object (i.e., the name of * its current public access command) on the stack. */ + {"numericType", 1, 0, 0, {OPERAND_NONE}}, + /* Pushes the numeric type code of the word at the top of the stack. + * Stack: ... value => ... typeCode */ + {NULL, 0, 0, 0, {OPERAND_NONE}} }; |