summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2016-04-29 17:58:33 (GMT)
committerdgp <dgp@users.sourceforge.net>2016-04-29 17:58:33 (GMT)
commit44deb5c463cd7905f01f7cb74ac29d0e9d90972a (patch)
tree95f8511dc73b8af8547018cf51b4ad79b306ac84
parent272c398b78060d7d8b575bb5aa652f37aa08d666 (diff)
downloadtcl-44deb5c463cd7905f01f7cb74ac29d0e9d90972a.zip
tcl-44deb5c463cd7905f01f7cb74ac29d0e9d90972a.tar.gz
tcl-44deb5c463cd7905f01f7cb74ac29d0e9d90972a.tar.bz2
Make obj-free bytecode maker available to rest of compile-related files.
-rw-r--r--generic/tclCompile.c3
-rw-r--r--generic/tclCompile.h1
2 files changed, 3 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. */
diff --git a/generic/tclCompile.h b/generic/tclCompile.h
index 86a9db0..af8d60f 100644
--- a/generic/tclCompile.h
+++ b/generic/tclCompile.h
@@ -1118,6 +1118,7 @@ MODULE_SCOPE int TclFixupForwardJump(CompileEnv *envPtr,
int distThreshold);
MODULE_SCOPE void TclFreeCompileEnv(CompileEnv *envPtr);
MODULE_SCOPE void TclFreeJumpFixupArray(JumpFixupArray *fixupArrayPtr);
+MODULE_SCOPE ByteCode * TclInitByteCode(CompileEnv *envPtr);
MODULE_SCOPE void TclInitByteCodeObj(Tcl_Obj *objPtr,
CompileEnv *envPtr);
MODULE_SCOPE void TclInitCompileEnv(Tcl_Interp *interp,