diff options
| author | dkf <dkf@noemail.net> | 2012-10-29 12:03:03 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2012-10-29 12:03:03 (GMT) |
| commit | 937f0050c4a08281b51b27b27f62f586443b8597 (patch) | |
| tree | 8d660cdd778f0e2a9335fd376fb69ace61262c20 /generic/tclCompile.c | |
| parent | 1f98d197cb721f9733e70679a9e792e7c7b6489b (diff) | |
| parent | dd979ac3cd5cd723dc23a505f2f36e99fc450229 (diff) | |
| download | tcl-937f0050c4a08281b51b27b27f62f586443b8597.zip tcl-937f0050c4a08281b51b27b27f62f586443b8597.tar.gz tcl-937f0050c4a08281b51b27b27f62f586443b8597.tar.bz2 | |
Merge corrected [yield] compilation. Many thanks to Miguel Sofer for help.
FossilOrigin-Name: dfc7ee7e953b5db422725744edc76a55eda183f9
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index b331551..1924334 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -435,12 +435,18 @@ InstructionDesc const tclInstructionTable[] = { * indicated by the LVT index. Part of [dict with]. * Stack: ... path keyList => ... */ - {"nscurrent", 1, +1, 0, {OPERAND_NONE}}, - /* Push the name of the interpreter's current namespace as an object - * on the stack. */ + {"yield", 1, 0, 0, {OPERAND_NONE}}, + /* Makes the current coroutine yield the value at the top of the + * stack, and places the response back on top of the stack when it + * resumes. + * Stack: ... valueToYield => ... resumeValue */ {"coroName", 1, +1, 0, {OPERAND_NONE}}, /* Push the name of the interpreter's current coroutine as an object * on the stack. */ + + {"currentNamespace", 1, +1, 0, {OPERAND_NONE}}, + /* Push the name of the interpreter's current namespace as an object + * on the stack. */ {"infoLevelNumber", 1, +1, 0, {OPERAND_NONE}}, /* Push the stack depth (i.e., [info level]) of the interpreter as an * object on the stack. */ |