diff options
| author | stanton <stanton> | 1999-04-22 22:57:06 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1999-04-22 22:57:06 (GMT) |
| commit | 804bb2b478378a4c8bdf5426fc4f01fe8310d1f9 (patch) | |
| tree | 7d3cbee11446913d235f80af0181bb20588351fc /generic/tclStubInit.c | |
| parent | eeb2fba346c1470404ea5892db056f44d8decb22 (diff) | |
| download | tcl-804bb2b478378a4c8bdf5426fc4f01fe8310d1f9.zip tcl-804bb2b478378a4c8bdf5426fc4f01fe8310d1f9.tar.gz tcl-804bb2b478378a4c8bdf5426fc4f01fe8310d1f9.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.
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 = { |