diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2014-09-20 12:37:19 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2014-09-20 12:37:19 (GMT) |
commit | c220fbe2ff72c2408a2e9c303975f80d04fd44e7 (patch) | |
tree | 924c0628c3e395cad796069cd9705d3d20155c45 /generic/tclBasic.c | |
parent | fc7d1ca9fea4659cab0c374e75bfb7bb9f68c37e (diff) | |
parent | f521b724666bd391377bcc556d0f9103750931b7 (diff) | |
download | tcl-c220fbe2ff72c2408a2e9c303975f80d04fd44e7.zip tcl-c220fbe2ff72c2408a2e9c303975f80d04fd44e7.tar.gz tcl-c220fbe2ff72c2408a2e9c303975f80d04fd44e7.tar.bz2 |
Added a script-readable bytecode disassembler in tcl::unsupported.
Diffstat (limited to 'generic/tclBasic.c')
-rw-r--r-- | generic/tclBasic.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 2a334c4..361ed49 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -840,7 +840,9 @@ Tcl_CreateInterp(void) */ Tcl_CreateObjCommand(interp, "::tcl::unsupported::disassemble", - Tcl_DisassembleObjCmd, NULL, NULL); + Tcl_DisassembleObjCmd, INT2PTR(0), NULL); + Tcl_CreateObjCommand(interp, "::tcl::unsupported::getbytecode", + Tcl_DisassembleObjCmd, INT2PTR(1), NULL); Tcl_CreateObjCommand(interp, "::tcl::unsupported::representation", Tcl_RepresentationCmd, NULL, NULL); |