diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2023-12-05 15:48:03 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2023-12-05 15:48:03 (GMT) |
| commit | 345dcdfb8ad2fa31e53650c111342f7888d8cb8a (patch) | |
| tree | 3ee27d8891ba30e7903b9579ae80d1825aded9dd /generic/tclCompile.c | |
| parent | 4d0ad9c0f93437f64fa9450ad43fd8f6c17e7f85 (diff) | |
| download | tcl-345dcdfb8ad2fa31e53650c111342f7888d8cb8a.zip tcl-345dcdfb8ad2fa31e53650c111342f7888d8cb8a.tar.gz tcl-345dcdfb8ad2fa31e53650c111342f7888d8cb8a.tar.bz2 | |
Bytecode implementation
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index e93fd4a..e321fc7 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -665,6 +665,13 @@ InstructionDesc const tclInstructionTable[] = { * set in flags. */ + {"constImm", 5, -1, 1, {OPERAND_LVT4}}, + /* Create constant. Index into LVT is immediate, value is on stack. + * Stack: ... value => ... */ + {"constStk", 1, -2, 0, {OPERAND_NONE}}, + /* Create constant. Variable name and value on stack. + * Stack: ... varName value => ... */ + {NULL, 0, 0, 0, {OPERAND_NONE}} }; |