diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-02-25 03:03:46 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-02-25 03:03:46 (GMT) |
| commit | f0f2ee57f9f6423cc4fb56be376158f7e006739e (patch) | |
| tree | 6927074dc76b88fec40d76c7a1554581d814e79a /unix/tclUnixChan.c | |
| parent | 50cafc9f132619bcb0c671486c587f639b5f772b (diff) | |
| download | tcl-f0f2ee57f9f6423cc4fb56be376158f7e006739e.zip tcl-f0f2ee57f9f6423cc4fb56be376158f7e006739e.tar.gz tcl-f0f2ee57f9f6423cc4fb56be376158f7e006739e.tar.bz2 | |
Compiles and runs. Tests still to be ported.
Diffstat (limited to 'unix/tclUnixChan.c')
| -rw-r--r-- | unix/tclUnixChan.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/unix/tclUnixChan.c b/unix/tclUnixChan.c index c41cdd9..b81676e 100644 --- a/unix/tclUnixChan.c +++ b/unix/tclUnixChan.c @@ -1028,11 +1028,11 @@ TtyGetOptionProc( tcgetattr(fsPtr->fileState.fd, &iostate); Tcl_DStringInit(&ds); - Tcl_ExternalToUtfDStringEx(NULL, (char *) &iostate.c_cc[VSTART], 1, TCL_ENCODING_NOCOMPLAIN, &ds); + Tcl_ExternalToUtfDStringEx(NULL, NULL, (char *) &iostate.c_cc[VSTART], 1, TCL_ENCODING_PROFILE_TCL8, &ds, NULL); Tcl_DStringAppendElement(dsPtr, Tcl_DStringValue(&ds)); TclDStringClear(&ds); - Tcl_ExternalToUtfDStringEx(NULL, (char *) &iostate.c_cc[VSTOP], 1, TCL_ENCODING_NOCOMPLAIN, &ds); + Tcl_ExternalToUtfDStringEx(NULL, NULL, (char *) &iostate.c_cc[VSTOP], 1, TCL_ENCODING_PROFILE_TCL8, &ds, NULL); Tcl_DStringAppendElement(dsPtr, Tcl_DStringValue(&ds)); Tcl_DStringFree(&ds); } |