diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2001-09-25 16:49:55 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2001-09-25 16:49:55 (GMT) |
| commit | 368d2d623f802dda05805c7e8c1d147a74018998 (patch) | |
| tree | 7c9044b579c67a3f855b8d0d24ea6d7e5953598e /generic/tcl.decls | |
| parent | f148bcf93bd6308c33c81c54a462b10ab74a6eee (diff) | |
| download | tcl-368d2d623f802dda05805c7e8c1d147a74018998.zip tcl-368d2d623f802dda05805c7e8c1d147a74018998.tar.gz tcl-368d2d623f802dda05805c7e8c1d147a74018998.tar.bz2 | |
Woo hoo! Builds on one platform (Solaris8/SPARC with SunPro CC)
Diffstat (limited to 'generic/tcl.decls')
| -rw-r--r-- | generic/tcl.decls | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/generic/tcl.decls b/generic/tcl.decls index c7ead11..1b35ef6 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.58.2.2 2001/09/25 10:24:06 dkf Exp $ +# RCS: @(#) $Id: tcl.decls,v 1.58.2.3 2001/09/25 16:49:55 dkf Exp $ library tcl @@ -186,14 +186,15 @@ declare 44 generic { } declare 45 generic { int Tcl_ListObjGetElements(Tcl_Interp *interp, Tcl_Obj *listPtr, \ - int *objcPtr, Tcl_Obj ***objvPtr) + Tcl_Length *objcPtr, Tcl_Obj ***objvPtr) } declare 46 generic { int Tcl_ListObjIndex(Tcl_Interp *interp, Tcl_Obj *listPtr, int index, \ Tcl_Obj **objPtrPtr) } declare 47 generic { - int Tcl_ListObjLength(Tcl_Interp *interp, Tcl_Obj *listPtr, int *intPtr) + int Tcl_ListObjLength(Tcl_Interp *interp, Tcl_Obj *listPtr, + Tcl_Length *lengthPtr) } declare 48 generic { int Tcl_ListObjReplace(Tcl_Interp *interp, Tcl_Obj *listPtr, int first, \ @@ -1628,7 +1629,7 @@ declare 460 generic { Tcl_Obj* Tcl_FSJoinPath(Tcl_Obj *listObj, int elements) } declare 461 generic { - Tcl_Obj* Tcl_FSSplitPath(Tcl_Obj* pathPtr, int *lenPtr) + Tcl_Obj* Tcl_FSSplitPath(Tcl_Obj* pathPtr, Tcl_Length *lenPtr) } declare 462 generic { int Tcl_FSEqualPaths(Tcl_Obj* firstPtr, Tcl_Obj* secondPtr) |