diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-07-02 20:43:16 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-07-02 20:43:16 (GMT) |
| commit | 3f704efe4e8c1fc7b8eff04d4a7eb80c31c7f44e (patch) | |
| tree | 2197fdfe935e76e4b8dd4b78ccd3a79b7320603d /generic/tclTestObj.c | |
| parent | 7add065e0f5720a2ee8d4d874931087e1ad246cc (diff) | |
| parent | 8e39be1340c8878cb33ac4c219acb88d3521a7a0 (diff) | |
| download | tcl-3f704efe4e8c1fc7b8eff04d4a7eb80c31c7f44e.zip tcl-3f704efe4e8c1fc7b8eff04d4a7eb80c31c7f44e.tar.gz tcl-3f704efe4e8c1fc7b8eff04d4a7eb80c31c7f44e.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclTestObj.c')
| -rw-r--r-- | generic/tclTestObj.c | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/generic/tclTestObj.c b/generic/tclTestObj.c index f36b07f..a637498 100644 --- a/generic/tclTestObj.c +++ b/generic/tclTestObj.c @@ -19,6 +19,7 @@ #endif #include "tclInt.h" #include "tommath.h" +#include "tclStringRep.h" /* @@ -46,13 +47,6 @@ static int TestobjCmd(ClientData dummy, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); static int TeststringobjCmd(ClientData dummy, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); - -typedef struct TestString { - int numChars; - int allocated; - int maxChars; - Tcl_UniChar unicode[2]; -} TestString; #define VARPTR_KEY "TCLOBJTEST_VARPTR" #define NUMBER_OF_OBJECT_VARS 20 @@ -1141,7 +1135,7 @@ TeststringobjCmd( int varIndex, option, i, length; #define MAX_STRINGS 11 const char *index, *string, *strings[MAX_STRINGS+1]; - TestString *strPtr; + String *strPtr; Tcl_Obj **varPtr; static const char *const options[] = { "append", "appendstrings", "get", "get2", "length", "length2", |