diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-03-24 18:05:07 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-03-24 18:05:07 (GMT) |
| commit | 79481e896dba0539e9e16bd9db4e0461b6c15125 (patch) | |
| tree | d96c246ff1af5503783da44aefb6ca35d972e344 /generic/tclEncoding.c | |
| parent | aad49af5898df4701d54c94bb1afad5b5c589b0e (diff) | |
| download | tcl-79481e896dba0539e9e16bd9db4e0461b6c15125.zip tcl-79481e896dba0539e9e16bd9db4e0461b6c15125.tar.gz tcl-79481e896dba0539e9e16bd9db4e0461b6c15125.tar.bz2 | |
(cherry-pick): Change Tcl_ExternalToUtfDStringEx and Tcl_UtfToExternalDStringEx to ignore START/END
flags as stated in documentation instead of raising an error.
Diffstat (limited to 'generic/tclEncoding.c')
| -rw-r--r-- | generic/tclEncoding.c | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c index 39c6ee3..c3bd36d 100644 --- a/generic/tclEncoding.c +++ b/generic/tclEncoding.c @@ -1285,18 +1285,6 @@ Tcl_ExternalToUtfDStringEx( /* DO FIRST - Must always be initialized before returning */ Tcl_DStringInit(dstPtr); - if (flags & (TCL_ENCODING_START|TCL_ENCODING_END)) { - /* TODO - what other flags are illegal? - See TIP 656 */ - Tcl_SetObjResult( - interp, - Tcl_NewStringObj( - "Parameter error: TCL_ENCODING_{START,STOP} bits set in flags.", - TCL_INDEX_NONE)); - Tcl_SetErrorCode(interp, "TCL", "ENCODING", "ILLEGALFLAGS", (void *)NULL); - errno = EINVAL; - return TCL_ERROR; - } - dst = Tcl_DStringValue(dstPtr); dstLen = dstPtr->spaceAvl - 1; @@ -1587,18 +1575,6 @@ Tcl_UtfToExternalDStringEx( /* DO FIRST - must always be initialized on return */ Tcl_DStringInit(dstPtr); - if (flags & (TCL_ENCODING_START|TCL_ENCODING_END)) { - /* TODO - what other flags are illegal? - See TIP 656 */ - Tcl_SetObjResult( - interp, - Tcl_NewStringObj( - "Parameter error: TCL_ENCODING_{START,STOP} bits set in flags.", - TCL_INDEX_NONE)); - Tcl_SetErrorCode(interp, "TCL", "ENCODING", "ILLEGALFLAGS", (void *)NULL); - errno = EINVAL; - return TCL_ERROR; - } - dst = Tcl_DStringValue(dstPtr); dstLen = dstPtr->spaceAvl - 1; |