diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-10-29 12:03:03 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-10-29 12:03:03 (GMT) |
| commit | 886fc6d1e98ed9bf51f884ae2e68d391c5033b3e (patch) | |
| tree | 8d660cdd778f0e2a9335fd376fb69ace61262c20 /generic/tclCompile.c | |
| parent | 78ed75a33905e55e8eabc5e41651556fbbc60fbc (diff) | |
| parent | 3cc94c1d69092f90d3aca7121cc57b3b6d4bbd2c (diff) | |
| download | tcl-886fc6d1e98ed9bf51f884ae2e68d391c5033b3e.zip tcl-886fc6d1e98ed9bf51f884ae2e68d391c5033b3e.tar.gz tcl-886fc6d1e98ed9bf51f884ae2e68d391c5033b3e.tar.bz2 | |
Merge corrected [yield] compilation. Many thanks to Miguel Sofer for help.
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. */ |