summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2003-11-01 01:28:04 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2003-11-01 01:28:04 (GMT)
commit319cf45c1651867ee0e05ac4d4ba59b8f9ccdc4f (patch)
tree893a2de9963cf35871199b54016255aaac1619f6
parentc748e239e3cb5d7c6ef703168f009cc695fc58d6 (diff)
downloadtcl-319cf45c1651867ee0e05ac4d4ba59b8f9ccdc4f.zip
tcl-319cf45c1651867ee0e05ac4d4ba59b8f9ccdc4f.tar.gz
tcl-319cf45c1651867ee0e05ac4d4ba59b8f9ccdc4f.tar.bz2
When copying and pasting code, check that argument types are sensible! <:^)
-rw-r--r--generic/tclInt.decls6
-rw-r--r--generic/tclListObj.c10
2 files changed, 8 insertions, 8 deletions
diff --git a/generic/tclInt.decls b/generic/tclInt.decls
index d7930ff..58a1b68 100644
--- a/generic/tclInt.decls
+++ b/generic/tclInt.decls
@@ -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: tclInt.decls,v 1.65 2003/11/01 01:23:30 dkf Exp $
+# RCS: @(#) $Id: tclInt.decls,v 1.66 2003/11/01 01:28:04 dkf Exp $
library tcl
@@ -728,10 +728,10 @@ declare 179 generic {
# Allocate lists without copying arrays
declare 180 generic {
- Tcl_Obj *TclNewListObjDirect(int objc, Tcl_Obj *CONST objv[])
+ Tcl_Obj *TclNewListObjDirect(int objc, Tcl_Obj **objv)
}
declare 181 generic {
- Tcl_Obj *TclDbNewListObjDirect(int objc, Tcl_Obj *CONST objv[],
+ Tcl_Obj *TclDbNewListObjDirect(int objc, Tcl_Obj **objv,
CONST char *file, int line)
}
##############################################################################
diff --git a/generic/tclListObj.c b/generic/tclListObj.c
index 020c725..64c4182 100644
--- a/generic/tclListObj.c
+++ b/generic/tclListObj.c
@@ -11,7 +11,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclListObj.c,v 1.16 2003/11/01 01:20:35 dkf Exp $
+ * RCS: @(#) $Id: tclListObj.c,v 1.17 2003/11/01 01:28:04 dkf Exp $
*/
#include "tclInt.h"
@@ -235,7 +235,7 @@ Tcl_DbNewListObj(objc, objv, file, line)
Tcl_Obj *
TclNewListObjDirect(objc, objv)
int objc; /* Count of objects referenced by objv. */
- Tcl_Obj *CONST objv[]; /* An array of pointers to Tcl objects. */
+ Tcl_Obj **objv; /* An array of pointers to Tcl objects. */
{
return TclDbNewListObjDirect(objc, objv, "unknown", 0);
}
@@ -243,7 +243,7 @@ TclNewListObjDirect(objc, objv)
Tcl_Obj *
TclNewListObjDirect(objc, objv)
int objc; /* Count of objects referenced by objv. */
- Tcl_Obj *CONST objv[]; /* An array of pointers to Tcl objects. */
+ Tcl_Obj **objv; /* An array of pointers to Tcl objects. */
{
register Tcl_Obj *listPtr;
@@ -276,7 +276,7 @@ TclNewListObjDirect(objc, objv)
Tcl_Obj *
TclDbNewListObjDirect(objc, objv, file, line)
int objc; /* Count of objects referenced by objv. */
- Tcl_Obj *CONST objv[]; /* An array of pointers to Tcl objects. */
+ Tcl_Obj **objv; /* An array of pointers to Tcl objects. */
CONST char *file; /* The name of the source file calling this
* procedure; used for debugging. */
int line; /* Line number in the source file; used
@@ -311,7 +311,7 @@ TclDbNewListObjDirect(objc, objv, file, line)
Tcl_Obj *
TclDbNewListObjDirect(objc, objv, file, line)
int objc; /* Count of objects referenced by objv. */
- Tcl_Obj *CONST objv[]; /* An array of pointers to Tcl objects. */
+ Tcl_Obj **objv; /* An array of pointers to Tcl objects. */
CONST char *file; /* The name of the source file calling this
* procedure; used for debugging. */
int line; /* Line number in the source file; used