diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-03-17 13:14:14 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-03-17 13:14:14 (GMT) |
| commit | fb1a2c58ddbae29e3c1cdb08b882d008b829547d (patch) | |
| tree | fbeab2daa748495cacdee97cf19bec914a8e228b /generic/tclCompile.c | |
| parent | 40ee63b6ff6901dea05f4cef62d51bfa188630ed (diff) | |
| parent | 5617ad7c180796ca3ded40478d67504694057ee6 (diff) | |
| download | tcl-fb1a2c58ddbae29e3c1cdb08b882d008b829547d.zip tcl-fb1a2c58ddbae29e3c1cdb08b882d008b829547d.tar.gz tcl-fb1a2c58ddbae29e3c1cdb08b882d008b829547d.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index e0208fc..f6e6b81 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -654,6 +654,11 @@ InstructionDesc const tclInstructionTable[] = { /* Lappend list to general variable. * Stack: ... varName list => ... listVarContents */ + {"clockRead", 2, +1, 1, {OPERAND_UINT1}}, + /* Read clock out to the stack. Operand is which clock to read + * 0=clicks, 1=microseconds, 2=milliseconds, 3=seconds. + * Stack: ... => ... time */ + {NULL, 0, 0, 0, {OPERAND_NONE}} }; |