diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2003-11-01 01:20:32 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2003-11-01 01:20:32 (GMT) |
| commit | 9b718efb671760d88cc93cb84eaa73697691e517 (patch) | |
| tree | bc1721a707ef0e825858ac0ed3ebd0a139809b55 /generic/tclInt.decls | |
| parent | c7138a4395c5e741fedf98722b8fc971e4a74ac3 (diff) | |
| download | tcl-9b718efb671760d88cc93cb84eaa73697691e517.zip tcl-9b718efb671760d88cc93cb84eaa73697691e517.tar.gz tcl-9b718efb671760d88cc93cb84eaa73697691e517.tar.bz2 | |
Increased robustness and speed for [lrepeat] with help of new list constructor
Diffstat (limited to 'generic/tclInt.decls')
| -rw-r--r-- | generic/tclInt.decls | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/generic/tclInt.decls b/generic/tclInt.decls index f04bc4d..8ddba3c 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.63 2003/09/05 21:52:12 dgp Exp $ +# RCS: @(#) $Id: tclInt.decls,v 1.64 2003/11/01 01:20:34 dkf Exp $ library tcl @@ -725,6 +725,15 @@ declare 178 generic { declare 179 generic { Tcl_Obj *Tcl_GetStartupScript(CONST char **encodingNamePtr) } + +# Allocate lists without copying arrays +declare 180 generic { + Tcl_Obj *TclNewListObjDirect(int objc, Tcl_Obj *CONST objv[]) +} +declare 180 generic { + Tcl_Obj *TclDbNewListObjDirect(int objc, Tcl_Obj *CONST objv[], + CONST char *file, int line) +} ############################################################################## # Define the platform specific internal Tcl interface. These functions are |