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 | |
| 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! <:^)
| -rw-r--r-- | generic/tclInt.decls | 6 | ||||
| -rw-r--r-- | 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 |