summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorescoffon <escoffon>1998-06-10 12:12:41 (GMT)
committerescoffon <escoffon>1998-06-10 12:12:41 (GMT)
commite89ceb463a1af73a9cd2db8c6371b9b914c07d7c (patch)
tree6a0985abe3304c454537f73de54f7dceaaa090cd /generic
parent37a0c8976d25de625c3021a8db1e18503d48315d (diff)
downloadtcl-e89ceb463a1af73a9cd2db8c6371b9b914c07d7c.zip
tcl-e89ceb463a1af73a9cd2db8c6371b9b914c07d7c.tar.gz
tcl-e89ceb463a1af73a9cd2db8c6371b9b914c07d7c.tar.bz2
- Added initialization of the flags field in ByteCode
- Added the TclGetInstructionTable procedure so that the table can be accessed
Diffstat (limited to 'generic')
-rw-r--r--generic/tclCompile.c26
1 files changed, 26 insertions, 0 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c
index 3291b3d..d4aeb13 100644
--- a/generic/tclCompile.c
+++ b/generic/tclCompile.c
@@ -1337,6 +1337,7 @@ TclInitByteCodeObj(objPtr, envPtr)
codePtr->iPtr = envPtr->iPtr;
codePtr->compileEpoch = envPtr->iPtr->compileEpoch;
codePtr->refCount = 1;
+ codePtr->flags = 0;
codePtr->source = envPtr->source;
codePtr->procPtr = envPtr->procPtr;
codePtr->totalSize = totalSize;
@@ -7741,5 +7742,30 @@ TclFixupForwardJump(envPtr, jumpFixupPtr, jumpDist, distThreshold)
}
return 1; /* the jump was grown */
}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TclGetInstructionTable --
+ *
+ * Returns a pointer to the table describing Tcl bytecode instructions.
+ * This procedure is defined so that clients can access the pointer from
+ * outside the TCL DLLs.
+ *
+ * Results:
+ * Returns a pointer to the global instruction table, same as the expression
+ * (&instructionTable[0]).
+ *
+ * Side effects:
+ * None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+InstructionDesc *
+TclGetInstructionTable()
+{
+ return &instructionTable[0];
+}