Add a new command, ::tcl::unsupported::disassemble

1 files changed, 11 insertions, 10 deletions

diff --git a/generic/tclCompile.h b/generic/tclCompile.h
index 3db6da9..0afc13b 100644
--- a/generic/tclCompile.h
+++ b/generic/tclCompile.h
@@ -9,7 +9,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclCompile.h,v 1.79 2007/09/13 15:27:07 das Exp $
+ * RCS: @(#) $Id: tclCompile.h,v 1.80 2007/09/25 20:27:17 dkf Exp $
  */
 
 #ifndef _TCLCOMPILATION
@@ -128,19 +128,19 @@ typedef struct CmdLocation {
  */
 
 typedef struct ECL {
-  int srcOffset;		/* Command location to find the entry. */
-  int nline;
-  int *line;			/* Line information for all words in the
+    int srcOffset;		/* Command location to find the entry. */
+    int nline;
+    int *line;			/* Line information for all words in the
 				 * command. */
 } ECL;
 
 typedef struct ExtCmdLoc {
-  int type;			/* Context type. */
-  Tcl_Obj *path;		/* Path of the sourced file the command is
+    int type;			/* Context type. */
+    Tcl_Obj *path;		/* Path of the sourced file the command is
 				 * in. */
-  ECL *loc;			/* Command word locations (lines). */
-  int nloc;			/* Number of allocated entries in 'loc'. */
-  int nuloc;			/* Number of used entries in 'loc'. */
+    ECL *loc;			/* Command word locations (lines). */
+    int nloc;			/* Number of allocated entries in 'loc'. */
+    int nuloc;			/* Number of used entries in 'loc'. */
 } ExtCmdLoc;
 
 /*
@@ -161,7 +161,8 @@ typedef struct ExtCmdLoc {
 typedef ClientData (AuxDataDupProc)  (ClientData clientData);
 typedef void       (AuxDataFreeProc) (ClientData clientData);
 typedef void	   (AuxDataPrintProc)(ClientData clientData,
-			    struct ByteCode *codePtr, unsigned int pcOffset);
+			    Tcl_Obj *appendObj, struct ByteCode *codePtr,
+			    unsigned int pcOffset);
 
 /*
  * We define a separate AuxDataType struct to hold type-related information