diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2012-07-04 13:41:14 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2012-07-04 13:41:14 (GMT) |
| commit | d3d01b3da3a10dd5e639e3663d45d683684c852a (patch) | |
| tree | d4d7483235952e765ef7d6320705567fc1a9f650 | |
| parent | fe2cecb7b71ceb3aa098a7a434332f0a15914375 (diff) | |
| download | tcl-d3d01b3da3a10dd5e639e3663d45d683684c852a.zip tcl-d3d01b3da3a10dd5e639e3663d45d683684c852a.tar.gz tcl-d3d01b3da3a10dd5e639e3663d45d683684c852a.tar.bz2 | |
only use public API in loaded packages; oops\!
| -rw-r--r-- | win/tclWinReg.c | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/win/tclWinReg.c b/win/tclWinReg.c index 10437e6..565188c 100644 --- a/win/tclWinReg.c +++ b/win/tclWinReg.c @@ -1316,16 +1316,15 @@ SetValue( Tcl_DStringInit(&data); for (i = 0; i < objc; i++) { - TclDStringAppendObj(&data, objv[i]); + const char *bytes = Tcl_GetStringFromObj(objv[i], &length); + + Tcl_DStringAppend(&data, bytes, length); /* - * Add a null character to separate this value from the next. We - * accomplish this by growing the string by one byte. Since the - * DString always tacks on an extra null byte, the new byte will - * already be set to null. + * Add a null character to separate this value from the next. */ - Tcl_DStringSetLength(&data, Tcl_DStringLength(&data)+1); + Tcl_DStringAppend(&data, "", 1); /* NUL-terminated string */ } Tcl_WinUtfToTChar(Tcl_DStringValue(&data), Tcl_DStringLength(&data)+1, |