summaryrefslogtreecommitdiffstats
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)
commit98518790eca9f53c8a8e7de4d1a7f2956f989832 (patch)
treebaebf46cab08e1d6c63addb582d8857c0eee3698
parent1e55bad2730889a9e3c64366f0a649eb498dbd9a (diff)
parent9e63d5c422e2602a7f6ec355b143adc2c0b0ef08 (diff)
downloadtcl-98518790eca9f53c8a8e7de4d1a7f2956f989832.zip
tcl-98518790eca9f53c8a8e7de4d1a7f2956f989832.tar.gz
tcl-98518790eca9f53c8a8e7de4d1a7f2956f989832.tar.bz2
Bug [f91ab723f3] : remove Windows 16 bit dead code
-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;
}
/*