summaryrefslogtreecommitdiffstats
path: root/generic/tclIO.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclIO.c')
-rw-r--r--generic/tclIO.c22
1 files changed, 0 insertions, 22 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c
index 0c91428..6b74af4 100644
--- a/generic/tclIO.c
+++ b/generic/tclIO.c
@@ -1680,12 +1680,8 @@ Tcl_CreateChannel(
statePtr->encoding = Tcl_GetEncoding(NULL, name);
statePtr->inputEncodingState = NULL;
statePtr->inputEncodingFlags = TCL_ENCODING_START;
- ENCODING_PROFILE_SET(statePtr->inputEncodingFlags,
- TCL_ENCODING_PROFILE_DEFAULT);
statePtr->outputEncodingState = NULL;
statePtr->outputEncodingFlags = TCL_ENCODING_START;
- ENCODING_PROFILE_SET(statePtr->outputEncodingFlags,
- TCL_ENCODING_PROFILE_DEFAULT);
/*
* Set the channel up initially in AUTO input translation mode to accept
@@ -8167,12 +8163,6 @@ Tcl_SetChannelOption(
if ((newValue[0] == '\0') || (strcmp(newValue, "binary") == 0)) {
encoding = Tcl_GetEncoding(NULL, "iso8859-1");
- ENCODING_PROFILE_SET(statePtr->inputEncodingFlags
- ,ENCODING_PROFILE_GET(statePtr->inputEncodingFlags)
- |TCL_ENCODING_PROFILE_STRICT);
- ENCODING_PROFILE_SET(statePtr->outputEncodingFlags
- ,ENCODING_PROFILE_GET(statePtr->outputEncodingFlags)
- |TCL_ENCODING_PROFILE_STRICT);
} else {
encoding = Tcl_GetEncoding(interp, newValue);
if (encoding == NULL) {
@@ -8281,12 +8271,6 @@ Tcl_SetChannelOption(
statePtr->inEofChar = 0;
Tcl_FreeEncoding(statePtr->encoding);
statePtr->encoding = Tcl_GetEncoding(NULL, "iso8859-1");
- ENCODING_PROFILE_SET(statePtr->inputEncodingFlags
- ,ENCODING_PROFILE_GET(statePtr->inputEncodingFlags)
- |TCL_ENCODING_PROFILE_STRICT);
- ENCODING_PROFILE_SET(statePtr->outputEncodingFlags
- ,ENCODING_PROFILE_GET(statePtr->outputEncodingFlags)
- |TCL_ENCODING_PROFILE_STRICT);
} else if (strcmp(readMode, "lf") == 0) {
translation = TCL_TRANSLATE_LF;
} else if (strcmp(readMode, "cr") == 0) {
@@ -8336,12 +8320,6 @@ Tcl_SetChannelOption(
statePtr->outputTranslation = TCL_TRANSLATE_LF;
Tcl_FreeEncoding(statePtr->encoding);
statePtr->encoding = Tcl_GetEncoding(NULL, "iso8859-1");
- ENCODING_PROFILE_SET(statePtr->inputEncodingFlags
- ,ENCODING_PROFILE_GET(statePtr->inputEncodingFlags)
- |TCL_ENCODING_PROFILE_STRICT);
- ENCODING_PROFILE_SET(statePtr->outputEncodingFlags
- ,ENCODING_PROFILE_GET(statePtr->outputEncodingFlags)
- |TCL_ENCODING_PROFILE_STRICT);
} else if (strcmp(writeMode, "lf") == 0) {
statePtr->outputTranslation = TCL_TRANSLATE_LF;
} else if (strcmp(writeMode, "cr") == 0) {