diff options
| author | oehhar <harald.oehlmann@elmicron.de> | 2024-02-27 20:23:29 (GMT) |
|---|---|---|
| committer | oehhar <harald.oehlmann@elmicron.de> | 2024-02-27 20:23:29 (GMT) |
| commit | 98518790eca9f53c8a8e7de4d1a7f2956f989832 (patch) | |
| tree | baebf46cab08e1d6c63addb582d8857c0eee3698 | |
| parent | 1e55bad2730889a9e3c64366f0a649eb498dbd9a (diff) | |
| parent | 9e63d5c422e2602a7f6ec355b143adc2c0b0ef08 (diff) | |
| download | tcl-98518790eca9f53c8a8e7de4d1a7f2956f989832.zip tcl-98518790eca9f53c8a8e7de4d1a7f2956f989832.tar.gz tcl-98518790eca9f53c8a8e7de4d1a7f2956f989832.tar.bz2 | |
Bug [f91ab723f3] : remove Windows 16 bit dead code
| -rw-r--r-- | win/tclWinPipe.c | 47 |
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; } /* |
