diff options
| author | patthoyts <patthoyts@users.sourceforge.net> | 2005-11-04 18:33:34 (GMT) |
|---|---|---|
| committer | patthoyts <patthoyts@users.sourceforge.net> | 2005-11-04 18:33:34 (GMT) |
| commit | 841c2af7dcfcd20b68bd3f05f5ecce6498b35a18 (patch) | |
| tree | b1bf11da1526f8870771f95b77002ca9960b2793 /win/tclWinPort.h | |
| parent | 05f6317032522fa4b68966fe3c1ef854d87fbf6e (diff) | |
| download | tcl-841c2af7dcfcd20b68bd3f05f5ecce6498b35a18.zip tcl-841c2af7dcfcd20b68bd3f05f5ecce6498b35a18.tar.gz tcl-841c2af7dcfcd20b68bd3f05f5ecce6498b35a18.tar.bz2 | |
* win/tclWinPipe.c: Applied patch #1267871 by Matt Newman which
* win/tclWinPort.h: provides extended error code support.
* tests/exec.test: Wrote some tests for this feature.
Diffstat (limited to 'win/tclWinPort.h')
| -rw-r--r-- | win/tclWinPort.h | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/win/tclWinPort.h b/win/tclWinPort.h index 47545ba..4062d6c 100644 --- a/win/tclWinPort.h +++ b/win/tclWinPort.h @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWinPort.h,v 1.36.2.1 2005/10/05 08:02:20 hobbs Exp $ + * RCS: @(#) $Id: tclWinPort.h,v 1.36.2.2 2005/11/04 18:33:35 patthoyts Exp $ */ #ifndef _TCLWINPORT @@ -230,15 +230,15 @@ #endif /* TCL_UNION_WAIT */ #ifndef WIFEXITED -# define WIFEXITED(stat) (((*((int *) &(stat))) & 0xff) == 0) +# define WIFEXITED(stat) (((*((int *) &(stat))) & 0xC0000000) == 0) #endif #ifndef WEXITSTATUS -# define WEXITSTATUS(stat) (((*((int *) &(stat))) >> 8) & 0xff) +# define WEXITSTATUS(stat) (*((int *) &(stat))) #endif #ifndef WIFSIGNALED -# define WIFSIGNALED(stat) (((*((int *) &(stat)))) && ((*((int *) &(stat))) == ((*((int *) &(stat))) & 0x00ff))) +# define WIFSIGNALED(stat) ((*((int *) &(stat))) & 0xC0000000) #endif #ifndef WTERMSIG @@ -246,7 +246,7 @@ #endif #ifndef WIFSTOPPED -# define WIFSTOPPED(stat) (((*((int *) &(stat))) & 0xff) == 0177) +# define WIFSTOPPED(stat) 0 #endif #ifndef WSTOPSIG |