diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-04-29 17:58:33 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-04-29 17:58:33 (GMT) |
| commit | 44deb5c463cd7905f01f7cb74ac29d0e9d90972a (patch) | |
| tree | 95f8511dc73b8af8547018cf51b4ad79b306ac84 /generic/tclCompile.c | |
| parent | 272c398b78060d7d8b575bb5aa652f37aa08d666 (diff) | |
| download | tcl-44deb5c463cd7905f01f7cb74ac29d0e9d90972a.zip tcl-44deb5c463cd7905f01f7cb74ac29d0e9d90972a.tar.gz tcl-44deb5c463cd7905f01f7cb74ac29d0e9d90972a.tar.bz2 | |
Make obj-free bytecode maker available to rest of compile-related files.
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 8837f06..32a09b2 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -677,6 +677,7 @@ static void FreeSubstCodeInternalRep(Tcl_Obj *objPtr); static int GetCmdLocEncodingSize(CompileEnv *envPtr); static int IsCompactibleCompileEnv(Tcl_Interp *interp, CompileEnv *envPtr); +static void PreventCycle(Tcl_Obj *objPtr, CompileEnv *envPtr); #ifdef TCL_COMPILE_STATS static void RecordByteCodeStats(ByteCode *codePtr); #endif /* TCL_COMPILE_STATS */ @@ -2741,7 +2742,7 @@ PreventCycle( } } -static ByteCode * +ByteCode * TclInitByteCode( register CompileEnv *envPtr)/* Points to the CompileEnv structure from * which to create a ByteCode structure. */ |