diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2013-02-01 15:32:19 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2013-02-01 15:32:19 (GMT) |
| commit | 378a66f635bdfa95a5cebae9e17f14e634f0b556 (patch) | |
| tree | 0f9df16696586fa30ee3529c7c4cc598a6318a76 /generic/tclStringObj.c | |
| parent | db52bf07caa4fee7f60c350396dc90f60b44e964 (diff) | |
| parent | 6ff718e46302f379dada86909b17a06ef46b8446 (diff) | |
| download | tcl-378a66f635bdfa95a5cebae9e17f14e634f0b556.zip tcl-378a66f635bdfa95a5cebae9e17f14e634f0b556.tar.gz tcl-378a66f635bdfa95a5cebae9e17f14e634f0b556.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index 04cf4ee..e495c2e 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -140,9 +140,9 @@ typedef struct String { #define stringAttemptRealloc(ptr, numChars) \ (String *) attemptckrealloc((ptr), (unsigned) STRING_SIZE(numChars) ) #define GET_STRING(objPtr) \ - ((String *) (objPtr)->internalRep.otherValuePtr) + ((String *) (objPtr)->internalRep.twoPtrValue.ptr1) #define SET_STRING(objPtr, stringPtr) \ - ((objPtr)->internalRep.otherValuePtr = (void *) (stringPtr)) + ((objPtr)->internalRep.twoPtrValue.ptr1 = (void *) (stringPtr)) /* * TCL STRING GROWTH ALGORITHM |