diff options
| author | nijtmans <nijtmans@noemail.net> | 2008-10-05 20:47:52 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans@noemail.net> | 2008-10-05 20:47:52 (GMT) |
| commit | f6eb6d5c83ca9b0af268aec84ba04f1e076a0df6 (patch) | |
| tree | 197020c7e61ab84ac78a14323b1a9ec7e8fda0ab /generic/tclCompCmds.c | |
| parent | e4d42ed26de48eb451f9f711357b491c736f3a72 (diff) | |
| download | tcl-f6eb6d5c83ca9b0af268aec84ba04f1e076a0df6.zip tcl-f6eb6d5c83ca9b0af268aec84ba04f1e076a0df6.tar.gz tcl-f6eb6d5c83ca9b0af268aec84ba04f1e076a0df6.tar.bz2 | |
* 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).
FossilOrigin-Name: 20d2689bb94d989c288c6a165e9ec08ca34e1d4a
Diffstat (limited to 'generic/tclCompCmds.c')
| -rw-r--r-- | generic/tclCompCmds.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index 877bb11..4f7f230 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCompCmds.c,v 1.147 2008/09/28 22:17:39 dkf Exp $ + * RCS: @(#) $Id: tclCompCmds.c,v 1.148 2008/10/05 20:47:52 nijtmans Exp $ */ #include "tclInt.h" @@ -187,21 +187,21 @@ static void CompileReturnInternal(CompileEnv *envPtr, * The structures below define the AuxData types defined in this file. */ -AuxDataType tclForeachInfoType = { +const AuxDataType tclForeachInfoType = { "ForeachInfo", /* name */ DupForeachInfo, /* dupProc */ FreeForeachInfo, /* freeProc */ PrintForeachInfo /* printProc */ }; -AuxDataType tclJumptableInfoType = { +const AuxDataType tclJumptableInfoType = { "JumptableInfo", /* name */ DupJumptableInfo, /* dupProc */ FreeJumptableInfo, /* freeProc */ PrintJumptableInfo /* printProc */ }; -AuxDataType tclDictUpdateInfoType = { +const AuxDataType tclDictUpdateInfoType = { "DictUpdateInfo", /* name */ DupDictUpdateInfo, /* dupProc */ FreeDictUpdateInfo, /* freeProc */ |