summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2008-10-17 16:32:57 (GMT)
committerdgp <dgp@users.sourceforge.net>2008-10-17 16:32:57 (GMT)
commitc7737419286a172921b8edcbf3b4f40c02e02dae (patch)
tree28220fcac63f741bcf4e0650f857498e526120b2
parent842e3ff91428c72a2ce0d4df4889778af82f4b12 (diff)
downloadtcl-c7737419286a172921b8edcbf3b4f40c02e02dae.zip
tcl-c7737419286a172921b8edcbf3b4f40c02e02dae.tar.gz
tcl-c7737419286a172921b8edcbf3b4f40c02e02dae.tar.bz2
* generic/tclCompile.h: Declare the internal tclInstructionTable
* generic/tclExecute.c: to simply be "const", not CONST86. * generic/tclCmdAH.c: whitespace. * generic/tclCmdIL.c: Uninitialized variable warning. * generic/tclTest.c: const correctness warning.
-rw-r--r--ChangeLog9
-rw-r--r--generic/tclCmdAH.c4
-rw-r--r--generic/tclCmdIL.c4
-rw-r--r--generic/tclCompile.h4
-rw-r--r--generic/tclExecute.c6
-rw-r--r--generic/tclTest.c6
6 files changed, 21 insertions, 12 deletions
diff --git a/ChangeLog b/ChangeLog
index f1e0cba..68f0d8e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+2008-10-17 Don Porter <dgp@users.sourceforge.net>
+
+ * generic/tclCompile.h: Declare the internal tclInstructionTable
+ * generic/tclExecute.c: to simply be "const", not CONST86.
+
+ * generic/tclCmdAH.c: whitespace.
+ * generic/tclCmdIL.c: Uninitialized variable warning.
+ * generic/tclTest.c: const correctness warning.
+
2008-10-17 Donal K. Fellows <dkf@users.sf.net>
* doc/*: Many very small formatting fixes.
diff --git a/generic/tclCmdAH.c b/generic/tclCmdAH.c
index 342188e..2e9b5b9 100644
--- a/generic/tclCmdAH.c
+++ b/generic/tclCmdAH.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclCmdAH.c,v 1.106 2008/10/14 22:37:53 nijtmans Exp $
+ * RCS: @(#) $Id: tclCmdAH.c,v 1.107 2008/10/17 16:32:58 dgp Exp $
*/
#include "tclInt.h"
@@ -51,7 +51,7 @@ static inline void ForeachCleanup(Tcl_Interp *interp,
struct ForeachState *statePtr);
static int GetStatBuf(Tcl_Interp *interp, Tcl_Obj *pathPtr,
Tcl_FSStatProc *statProc, Tcl_StatBuf *statPtr);
-static const char *GetTypeFromMode(int mode);
+static const char * GetTypeFromMode(int mode);
static int StoreStatData(Tcl_Interp *interp, Tcl_Obj *varName,
Tcl_StatBuf *statPtr);
static Tcl_NRPostProc CatchObjCmdCallback;
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c
index a6ee362..cd82228 100644
--- a/generic/tclCmdIL.c
+++ b/generic/tclCmdIL.c
@@ -16,7 +16,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclCmdIL.c,v 1.162 2008/10/16 22:34:19 nijtmans Exp $
+ * RCS: @(#) $Id: tclCmdIL.c,v 1.163 2008/10/17 16:32:58 dgp Exp $
*/
#include "tclInt.h"
@@ -2445,7 +2445,7 @@ Tcl_LrepeatObjCmd(
/* The argument objects. */
{
int elementCount, i, totalElems;
- Tcl_Obj *listPtr, **dataArray;
+ Tcl_Obj *listPtr, **dataArray = NULL;
/*
* Check arguments for legality:
diff --git a/generic/tclCompile.h b/generic/tclCompile.h
index aba100a..102a9ec 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.110 2008/10/10 04:09:27 das Exp $
+ * RCS: @(#) $Id: tclCompile.h,v 1.111 2008/10/17 16:32:58 dgp Exp $
*/
#ifndef _TCLCOMPILATION
@@ -694,7 +694,7 @@ typedef struct InstructionDesc {
/* The type of each operand. */
} InstructionDesc;
-MODULE_SCOPE InstructionDesc CONST86 tclInstructionTable[];
+MODULE_SCOPE InstructionDesc const tclInstructionTable[];
/*
* Compilation of some Tcl constructs such as if commands and the logical or
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 2daa7ed..99f16db 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -14,7 +14,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclExecute.c,v 1.417 2008/10/16 22:34:18 nijtmans Exp $
+ * RCS: @(#) $Id: tclExecute.c,v 1.418 2008/10/17 16:32:58 dgp Exp $
*/
#include "tclInt.h"
@@ -660,7 +660,7 @@ static int EvalStatsCmd(ClientData clientData,
Tcl_Obj *const objv[]);
#endif /* TCL_COMPILE_STATS */
#ifdef TCL_COMPILE_DEBUG
-static CONST86 char * GetOpcodeName(unsigned char *pc);
+static const char * GetOpcodeName(unsigned char *pc);
static void PrintByteCodeInfo(ByteCode *codePtr);
static const char * StringForResultCode(int result);
static void ValidatePcAndStackTop(ByteCode *codePtr,
@@ -8431,7 +8431,7 @@ GetExceptRangeForPc(
*/
#ifdef TCL_COMPILE_DEBUG
-static CONST86 char *
+static const char *
GetOpcodeName(
unsigned char *pc) /* Points to the instruction whose name should
* be returned. */
diff --git a/generic/tclTest.c b/generic/tclTest.c
index 1ddfb5f..d8c00b6 100644
--- a/generic/tclTest.c
+++ b/generic/tclTest.c
@@ -14,7 +14,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclTest.c,v 1.128 2008/10/16 22:34:19 nijtmans Exp $
+ * RCS: @(#) $Id: tclTest.c,v 1.129 2008/10/17 16:32:58 dgp Exp $
*/
#define TCL_TEST
@@ -5891,7 +5891,7 @@ TestFilesystemObjCmd(
Tcl_Obj *const objv[])
{
int res, boolVal;
- const char *msg;
+ char *msg;
if (objc != 2) {
Tcl_WrongNumArgs(interp, 1, objv, "boolean");
@@ -6263,7 +6263,7 @@ TestSimpleFilesystemObjCmd(
Tcl_Obj *const objv[])
{
int res, boolVal;
- const char *msg;
+ char *msg;
if (objc != 2) {
Tcl_WrongNumArgs(interp, 1, objv, "boolean");