diff options
author | stanton <stanton@noemail.net> | 1999-04-22 22:57:05 (GMT) |
---|---|---|
committer | stanton <stanton@noemail.net> | 1999-04-22 22:57:05 (GMT) |
commit | 545ac36c309dcbcd3ffb3028666fbde75bbc8f61 (patch) | |
tree | 7d3cbee11446913d235f80af0181bb20588351fc /generic/tclStubInit.c | |
parent | 386144dab8f894e88ddc2966daf3b20fa8cc38a0 (diff) | |
download | tcl-545ac36c309dcbcd3ffb3028666fbde75bbc8f61.zip tcl-545ac36c309dcbcd3ffb3028666fbde75bbc8f61.tar.gz tcl-545ac36c309dcbcd3ffb3028666fbde75bbc8f61.tar.bz2 |
* generic/tclInt.h:
* generic/tclInt.decls:
* generic/tclCompile.c: Added TclSetByteCodeFromAny that takes a
hook procedure to invoke after compilation but before the byte
codes are emitted. This makes it possible to do postprocessing on
the compiled byte codes before the ByteCode is generated.
* generic/tclLiteral.c: Added TclHideLiteral and TclAddLiteralObj
to make it possible to create local unshared literal objects.
FossilOrigin-Name: 18e0420795a57eb45206d6bf4722a3e38b05d3e2
Diffstat (limited to 'generic/tclStubInit.c')
-rw-r--r-- | generic/tclStubInit.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index 321c16a..f579c0d 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclStubInit.c,v 1.10 1999/04/21 21:50:28 rjohnson Exp $ + * RCS: @(#) $Id: tclStubInit.c,v 1.11 1999/04/22 22:57:07 stanton Exp $ */ #include "tclInt.h" @@ -585,6 +585,9 @@ TclIntStubs tclIntStubs = { TclpLoadFile, /* 139 */ TclLooksLikeInt, /* 140 */ TclpGetCwd, /* 141 */ + TclSetByteCodeFromAny, /* 142 */ + TclAddLiteralObj, /* 143 */ + TclHideLiteral, /* 144 */ }; TclIntPlatStubs tclIntPlatStubs = { |