diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2016-03-22 20:30:08 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2016-03-22 20:30:08 (GMT) |
commit | 3273318e4bb47f0412037bbf3b8bbf195d4442a1 (patch) | |
tree | 0233f4d33fa80369a2d2d3159f58d8659e4e27dc /generic/tclExecute.c | |
parent | 43697f3b2178f95e0e0d803a186c5081b4743d3a (diff) | |
download | tcl-3273318e4bb47f0412037bbf3b8bbf195d4442a1.zip tcl-3273318e4bb47f0412037bbf3b8bbf195d4442a1.tar.gz tcl-3273318e4bb47f0412037bbf3b8bbf195d4442a1.tar.bz2 |
Factor out string internal rep definition so fix for [1af8de570511] is less awful.
Diffstat (limited to 'generic/tclExecute.c')
-rw-r--r-- | generic/tclExecute.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index c43cc40..d4077f5 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -19,6 +19,7 @@ #include "tclCompile.h" #include "tclOOInt.h" #include "tommath.h" +#include "tclStringRep.h" #include <math.h> #include <assert.h> @@ -5739,14 +5740,13 @@ TEBCresume( /* * Flush the info in the string internal rep that refers to the - * about-to-be-invalidated UTF-8 rep. This sets the 'allocated' - * field of the String structure to 0 to indicate that a new - * buffer needs to be allocated. This assumes that the value is + * about-to-be-invalidated UTF-8 rep. This indicates that a new + * buffer needs to be allocated, and assumes that the value is * already of tclStringTypePtr type, which should be true provided * we call it after Tcl_GetUnicodeFromObj. */ #define MarkStringInternalRepForFlush(objPtr) \ - (((int *) ((objPtr)->internalRep.twoPtrValue.ptr1))[1] = 0) + (GET_STRING(objPtr)->allocated = 0) if (Tcl_IsShared(valuePtr)) { objResultPtr = Tcl_DuplicateObj(valuePtr); |