diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2003-11-01 01:28:04 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2003-11-01 01:28:04 (GMT) |
| commit | 319cf45c1651867ee0e05ac4d4ba59b8f9ccdc4f (patch) | |
| tree | 893a2de9963cf35871199b54016255aaac1619f6 /generic/tclListObj.c | |
| parent | c748e239e3cb5d7c6ef703168f009cc695fc58d6 (diff) | |
| download | tcl-319cf45c1651867ee0e05ac4d4ba59b8f9ccdc4f.zip tcl-319cf45c1651867ee0e05ac4d4ba59b8f9ccdc4f.tar.gz tcl-319cf45c1651867ee0e05ac4d4ba59b8f9ccdc4f.tar.bz2 | |
When copying and pasting code, check that argument types are sensible! <:^)
Diffstat (limited to 'generic/tclListObj.c')
| -rw-r--r-- | generic/tclListObj.c | 10 |
1 files changed, 5 insertions, 5 deletions
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 |