From e89ceb463a1af73a9cd2db8c6371b9b914c07d7c Mon Sep 17 00:00:00 2001
From: escoffon <escoffon>
Date: Wed, 10 Jun 1998 12:12:41 +0000
Subject: - Added initialization of the flags field in ByteCode - Added the
 TclGetInstructionTable procedure so that the table can be accessed

---
 generic/tclCompile.c | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

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];
+}
 
 
-- 
cgit v0.12