* 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.

1 files changed, 14 insertions, 2 deletions

diff --git a/generic/tclInt.decls b/generic/tclInt.decls
index a643e81..d0244ce 100644
--- a/generic/tclInt.decls
+++ b/generic/tclInt.decls
@@ -10,7 +10,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 # 
-# RCS: @(#) $Id: tclInt.decls,v 1.8 1999/04/21 21:50:26 rjohnson Exp $
+# RCS: @(#) $Id: tclInt.decls,v 1.9 1999/04/22 22:57:07 stanton Exp $
 
 library tcl
 
@@ -525,10 +525,22 @@ declare 139 generic {
 declare 140 generic {
     int TclLooksLikeInt(char *bytes, int length)
 }
-
 declare 141 generic {
     char *TclpGetCwd(Tcl_Interp *interp, Tcl_DString *cwdPtr)
 }
+declare 142 generic {
+    int TclSetByteCodeFromAny(Tcl_Interp *interp, Tcl_Obj *objPtr, \
+	    CompileHookProc *hookProc, ClientData clientData)
+}
+declare 143 generic {
+    int TclAddLiteralObj(struct CompileEnv *envPtr, Tcl_Obj *objPtr, \
+	    LiteralEntry **litPtrPtr)
+}
+declare 144 generic {
+    void TclHideLiteral(Tcl_Interp *interp, struct CompileEnv *envPtr, \
+	    int index)
+}
+
 ##############################################################################
 
 # Define the platform specific internal Tcl interface. These functions are