diff options
author | Kevin B Kenny <kennykb@acm.org> | 2017-03-15 02:39:04 (GMT) |
---|---|---|
committer | Kevin B Kenny <kennykb@acm.org> | 2017-03-15 02:39:04 (GMT) |
commit | 43d597b30f23c04837758d424f4baa7478b7202a (patch) | |
tree | 390fedcdb66fcff575a9443bfb220573c735d4a4 /generic/tclCompile.c | |
parent | 607667f89dc9884c9bfb8e3c5380c9d5aa930d04 (diff) | |
download | tcl-43d597b30f23c04837758d424f4baa7478b7202a.zip tcl-43d597b30f23c04837758d424f4baa7478b7202a.tar.gz tcl-43d597b30f23c04837758d424f4baa7478b7202a.tar.bz2 |
Compile [clock clicks], [clock microseconds], [clock milliseconds] and [clock seconds].
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 f6b3c52..f716195 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}} }; |