From 319cf45c1651867ee0e05ac4d4ba59b8f9ccdc4f Mon Sep 17 00:00:00 2001 From: dkf Date: Sat, 1 Nov 2003 01:28:04 +0000 Subject: When copying and pasting code, check that argument types are sensible! <:^) --- generic/tclInt.decls | 6 +++--- generic/tclListObj.c | 10 +++++----- 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 -- cgit v0.12