diff options
| author | redman <redman> | 1999-08-10 22:42:33 (GMT) |
|---|---|---|
| committer | redman <redman> | 1999-08-10 22:42:33 (GMT) |
| commit | e24fc30ca4c6a8cae00961db858816f32aad02d4 (patch) | |
| tree | 3cb63de24ac7bd905ec4228fbf07c331b3e839a0 | |
| parent | 7d7cec255a20bb85fda8ff499fd6b1b621c277af (diff) | |
| download | tcl-core_8_2_b3_branch.zip tcl-core_8_2_b3_branch.tar.gz tcl-core_8_2_b3_branch.tar.bz2 | |
Removed patch to change prototype of Tcl_ListObjGetElements.
core_8_2_b3_branch
| -rw-r--r-- | ChangeLog | 7 | ||||
| -rw-r--r-- | generic/tcl.decls | 4 | ||||
| -rw-r--r-- | generic/tclDecls.h | 6 | ||||
| -rw-r--r-- | generic/tclListObj.c | 4 |
4 files changed, 7 insertions, 14 deletions
@@ -7,13 +7,6 @@ * win/README.binary: * win/configure.in: Changed version number to 8.2b3. - * generic/tclListObj.c: - * generic/tcl.decls: - * generic/tclDecls.h: Applied patch from Jim Ingham to change the - prototype of Tcl_ListObjGetElements to have the last argument have - a CONST so that you can feed it the objv that you get from the - standard TclObj command proc. - * generic/tclAlloc.c: * generic/tclCmdIL.c: * generic/tclIO.c: diff --git a/generic/tcl.decls b/generic/tcl.decls index 0ba69a9..5ff4883 100644 --- a/generic/tcl.decls +++ b/generic/tcl.decls @@ -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: tcl.decls,v 1.26 1999/08/10 17:35:17 redman Exp $ +# RCS: @(#) $Id: tcl.decls,v 1.26.2.1 1999/08/10 22:42:45 redman Exp $ library tcl @@ -181,7 +181,7 @@ declare 44 generic { } declare 45 generic { int Tcl_ListObjGetElements(Tcl_Interp *interp, Tcl_Obj *listPtr, \ - int *objcPtr, Tcl_Obj * CONST **objvPtr) + int *objcPtr, Tcl_Obj ***objvPtr) } declare 46 generic { int Tcl_ListObjIndex(Tcl_Interp *interp, Tcl_Obj *listPtr, int index, \ diff --git a/generic/tclDecls.h b/generic/tclDecls.h index ad44e96..bf712c5 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclDecls.h,v 1.27 1999/08/10 17:35:18 redman Exp $ + * RCS: @(#) $Id: tclDecls.h,v 1.27.2.1 1999/08/10 22:42:45 redman Exp $ */ #ifndef _TCLDECLS @@ -164,7 +164,7 @@ EXTERN int Tcl_ListObjAppendElement _ANSI_ARGS_(( /* 45 */ EXTERN int Tcl_ListObjGetElements _ANSI_ARGS_(( Tcl_Interp * interp, Tcl_Obj * listPtr, - int * objcPtr, Tcl_Obj * CONST ** objvPtr)); + int * objcPtr, Tcl_Obj *** objvPtr)); /* 46 */ EXTERN int Tcl_ListObjIndex _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, int index, @@ -1284,7 +1284,7 @@ typedef struct TclStubs { void (*tcl_InvalidateStringRep) _ANSI_ARGS_((Tcl_Obj * objPtr)); /* 42 */ int (*tcl_ListObjAppendList) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, Tcl_Obj * elemListPtr)); /* 43 */ int (*tcl_ListObjAppendElement) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, Tcl_Obj * objPtr)); /* 44 */ - int (*tcl_ListObjGetElements) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, int * objcPtr, Tcl_Obj * CONST ** objvPtr)); /* 45 */ + int (*tcl_ListObjGetElements) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, int * objcPtr, Tcl_Obj *** objvPtr)); /* 45 */ int (*tcl_ListObjIndex) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, int index, Tcl_Obj ** objPtrPtr)); /* 46 */ int (*tcl_ListObjLength) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, int * intPtr)); /* 47 */ int (*tcl_ListObjReplace) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * listPtr, int first, int count, int objc, Tcl_Obj *CONST objv[])); /* 48 */ diff --git a/generic/tclListObj.c b/generic/tclListObj.c index 7b00f6c..99281b2 100644 --- a/generic/tclListObj.c +++ b/generic/tclListObj.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: tclListObj.c,v 1.6 1999/08/10 17:35:19 redman Exp $ + * RCS: @(#) $Id: tclListObj.c,v 1.6.2.1 1999/08/10 22:42:46 redman Exp $ */ #include "tclInt.h" @@ -305,7 +305,7 @@ Tcl_ListObjGetElements(interp, listPtr, objcPtr, objvPtr) * is to be returned. */ int *objcPtr; /* Where to store the count of objects * referenced by objv. */ - Tcl_Obj * CONST **objvPtr; /* Where to store the pointer to an array + Tcl_Obj ***objvPtr; /* Where to store the pointer to an array * of pointers to the list's objects. */ { register List *listRepPtr; |