summaryrefslogtreecommitdiffstats
path: root/win
diff options
context:
space:
mode:
authoroehhar <harald.oehlmann@elmicron.de>2024-02-27 20:23:29 (GMT)
committeroehhar <harald.oehlmann@elmicron.de>2024-02-27 20:23:29 (GMT)
commit6b331d72097dd3b3e5a29038b281f86ef4c53977 (patch)
treebaebf46cab08e1d6c63addb582d8857c0eee3698 /win
parentc1fc3414ab92e46a2ba18629cb3543e512cfbee7 (diff)
parent303c6fdb95de76a430d8b6bf9c21351a21d28eb8 (diff)
downloadtcl-6b331d72097dd3b3e5a29038b281f86ef4c53977.zip
tcl-6b331d72097dd3b3e5a29038b281f86ef4c53977.tar.gz
tcl-6b331d72097dd3b3e5a29038b281f86ef4c53977.tar.bz2
Bug [f91ab723f3] : remove Windows 16 bit dead code
Diffstat (limited to 'win')
-rw-r--r--win/tclWinPipe.c47
1 files changed, 15 insertions, 32 deletions
diff --git a/win/tclWinPipe.c b/win/tclWinPipe.c
index b992536..171cf07 100644
--- a/win/tclWinPipe.c
+++ b/win/tclWinPipe.c
@@ -1094,40 +1094,23 @@ TclpCreateProcess(
* detached processes. The GUI window will still pop up to the foreground.
*/
- if (TclWinGetPlatformId() == VER_PLATFORM_WIN32_NT) {
- if (HasConsole()) {
- createFlags = 0;
- } else if (applType == APPL_DOS) {
- /*
- * Under NT, 16-bit DOS applications will not run unless they can
- * be attached to a console. If we are running without a console,
- * run the 16-bit program as an normal process inside of a hidden
- * console application, and then run that hidden console as a
- * detached process.
- */
+ if (HasConsole()) {
+ createFlags = 0;
+ } else if (applType == APPL_DOS) {
+ /*
+ * Under NT, 16-bit DOS applications will not run unless they can
+ * be attached to a console. If we are running without a console,
+ * run the 16-bit program as an normal process inside of a hidden
+ * console application, and then run that hidden console as a
+ * detached process.
+ */
- startInfo.wShowWindow = SW_HIDE;
- startInfo.dwFlags |= STARTF_USESHOWWINDOW;
- createFlags = CREATE_NEW_CONSOLE;
- TclDStringAppendLiteral(&cmdLine, "cmd.exe /c");
- } else {
- createFlags = DETACHED_PROCESS;
- }
+ startInfo.wShowWindow = SW_HIDE;
+ startInfo.dwFlags |= STARTF_USESHOWWINDOW;
+ createFlags = CREATE_NEW_CONSOLE;
+ TclDStringAppendLiteral(&cmdLine, "cmd.exe /c");
} else {
- if (HasConsole()) {
- createFlags = 0;
- } else {
- createFlags = DETACHED_PROCESS;
- }
-
- if (applType == APPL_DOS) {
- Tcl_SetObjResult(interp, Tcl_NewStringObj(
- "DOS application process not supported on this platform",
- -1));
- Tcl_SetErrorCode(interp, "TCL", "OPERATION", "EXEC", "DOS_APP",
- NULL);
- goto end;
- }
+ createFlags = DETACHED_PROCESS;
}
/*