* generic/tclInt.decls: CONSTified the AuxDataType argument

	* generic/tclCompCmds.c: of TclCreateAuxData and
	* generic/tclCompile.c   TclRegisterAuxDataType and the return
	* generic/tclCompile.h   values of TclGetAuxDataType and
	* generic/tclExecute.c   TclGetInstructionTable
	* ChangeLog
	* generic/tclIntDecls.h:		regenerated
	This change complies with TIP #27 (even though it only
	involves internal function, so this is not even necessary).

1 files changed, 5 insertions, 5 deletions

diff --git a/generic/tclInt.decls b/generic/tclInt.decls
index 8213109..3dfdfb7 100644
--- a/generic/tclInt.decls
+++ b/generic/tclInt.decls
@@ -13,7 +13,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: tclInt.decls,v 1.127 2008/07/29 05:30:32 msofer Exp $
+# RCS: @(#) $Id: tclInt.decls,v 1.128 2008/10/05 20:47:52 nijtmans Exp $
 
 library tcl
 
@@ -576,7 +576,7 @@ declare 144 generic {
 	    int index)
 }
 declare 145 generic {
-    struct AuxDataType *TclGetAuxDataType(char *typeName)
+    CONST86 struct AuxDataType *TclGetAuxDataType(CONST char *typeName)
 }
 declare 146 generic {
     TclHandle TclHandleCreate(VOID *ptr)
@@ -645,13 +645,13 @@ declare 162 generic {
     void TclChannelEventScriptInvoker(ClientData clientData, int flags)
 }
 
-# ALERT: The result of 'TclGetInstructionTable' is actually an
-# "InstructionDesc*" but we do not want to describe this structure in
+# ALERT: The result of 'TclGetInstructionTable' is actually a
+# "const InstructionDesc*" but we do not want to describe this structure in
 # "tclInt.h". It is described in "tclCompile.h". Use a cast to the
 # correct type when calling this procedure.
 
 declare 163 generic {
-    void *TclGetInstructionTable(void)
+    CONST86 void *TclGetInstructionTable(void)
 }
 
 # ALERT: The argument of 'TclExpandCodeArray' is actually a