diff options
| author | andreas_kupries <akupries@shaw.ca> | 2002-11-26 19:48:45 (GMT) |
|---|---|---|
| committer | andreas_kupries <akupries@shaw.ca> | 2002-11-26 19:48:45 (GMT) |
| commit | 8bb34fe4b63a65dff902e117e76d879082167328 (patch) | |
| tree | df7601fec4c70c9303e799888b578c2f74f9ad35 /generic/tclInt.h | |
| parent | 95ca9403a1446d535fca256ffa9a4b707dd7c561 (diff) | |
| download | tcl-8bb34fe4b63a65dff902e117e76d879082167328.zip tcl-8bb34fe4b63a65dff902e117e76d879082167328.tar.gz tcl-8bb34fe4b63a65dff902e117e76d879082167328.tar.bz2 | |
* generic/tclProc.c (TclCloneProc): Helper for Tcl_CloneInterp.
* generic/tclBasic.c: Line 3843ff: New Tcl_CloneInterp public API.
* generic/tclProc.c (TclCloneProc): See below. New function.
* generic/tclBasic.c: Tcl_Clone... functions. New. Tcl_CloneInterp
is main entry into this.
* Part of work on more sharing of bytecode information between
structurally equivalent interpreters.
* generic/tclCompile.c (EncodeCmdLocMap): Operate on ByteCodeData
instead of ByteCode.
(TclCleanupByteCode): Deref to ByteCodeData in numerous places.
(TclInitByteCodeObj): s.a.
(TclPrintByteCodeObj): s.a.
(TclPrintInstruction): s.a.
(RecordByteCodeStats): s.a.
* generic/tclLiteral.c (TclReleaseLiteral): s.a.
* generic/tclCompile.h: Split struct ByteCode into two
structures. The new structure carries the shareable bytrecode
information and is named 'ByteCodeData'.
* generic/tclExecute.c (GetExceptRangeForPc): s.a.
(TclExecuteByteCode): s.a.
(PrintByteCodeInfo): s.a.
(ValidatePcAndStackTop): s.a.
(GetSrcInfoForPc): s.a.
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 89d6ebb..eec1821 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -11,7 +11,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.h,v 1.42.2.3.2.5 2002/11/07 19:05:02 hobbs Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.42.2.3.2.6 2002/11/26 19:48:56 andreas_kupries Exp $ */ #ifndef _TCLINT @@ -1618,6 +1618,8 @@ EXTERN int TclCreateProc _ANSI_ARGS_((Tcl_Interp *interp, Namespace *nsPtr, char *procName, Tcl_Obj *argsPtr, Tcl_Obj *bodyPtr, Proc **procPtrPtr)); +EXTERN Proc* TclCloneProc _ANSI_ARGS_((Interp *interp, + Namespace *nsPtr, Proc *procSrcPtr)); EXTERN void TclDeleteCompiledLocalVars _ANSI_ARGS_(( Interp *iPtr, CallFrame *framePtr)); EXTERN void TclDeleteVars _ANSI_ARGS_((Interp *iPtr, @@ -1856,6 +1858,10 @@ EXTERN void TclTransferResult _ANSI_ARGS_((Tcl_Interp *sourceInterp, int result, Tcl_Interp *targetInterp)); EXTERN int TclUpdateReturnInfo _ANSI_ARGS_((Interp *iPtr)); +EXTERN int TclInvokeImportedCmd _ANSI_ARGS_(( + ClientData clientData, Tcl_Interp *interp, + int objc, Tcl_Obj *CONST objv[])); + /* *---------------------------------------------------------------- * Command procedures in the generic core: |