summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2016-07-01 13:34:20 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2016-07-01 13:34:20 (GMT)
commita81c526c9818a37a89c27cd5a34f628c5ffd967d (patch)
tree33105b7240fd7e45e9ba11b23e5dce475eb07332
parent8c8ec10e78e872ffa4e4edef6ae16e03d5872efc (diff)
parentcb26a29db0b87479d3d6ff6b60448c60f029e547 (diff)
downloadtcl-a81c526c9818a37a89c27cd5a34f628c5ffd967d.zip
tcl-a81c526c9818a37a89c27cd5a34f628c5ffd967d.tar.gz
tcl-a81c526c9818a37a89c27cd5a34f628c5ffd967d.tar.bz2
merge core-8-6-branch
-rw-r--r--generic/tclTestObj.c10
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",