diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-04-02 07:53:52 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-04-02 07:53:52 (GMT) |
| commit | c5eb2bd7b35e0434b2c63979daf26864ebf5ec0b (patch) | |
| tree | b37148eddc3360b03f17c3f0ab137dc1e9e77686 /generic/tclCmdAH.c | |
| parent | 111a6e4bac3278ef0ddc805732230768dfcf4df3 (diff) | |
| parent | 27027cc682f4bdbf40ee66671cb0576e6c65e1da (diff) | |
| download | tcl-c5eb2bd7b35e0434b2c63979daf26864ebf5ec0b.zip tcl-c5eb2bd7b35e0434b2c63979daf26864ebf5ec0b.tar.gz tcl-c5eb2bd7b35e0434b2c63979daf26864ebf5ec0b.tar.bz2 | |
Merge trunk
Diffstat (limited to 'generic/tclCmdAH.c')
| -rw-r--r-- | generic/tclCmdAH.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclCmdAH.c b/generic/tclCmdAH.c index cda6d3a..fbf13f4 100644 --- a/generic/tclCmdAH.c +++ b/generic/tclCmdAH.c @@ -800,7 +800,7 @@ Tcl_ExitObjCmd( int objc, /* Number of arguments. */ Tcl_Obj *const objv[]) /* Argument objects. */ { - int value; + Tcl_WideInt value; if ((objc != 1) && (objc != 2)) { Tcl_WrongNumArgs(interp, 1, objv, "?returnCode?"); @@ -809,10 +809,10 @@ Tcl_ExitObjCmd( if (objc == 1) { value = 0; - } else if (Tcl_GetIntFromObj(interp, objv[1], &value) != TCL_OK) { + } else if (TclGetWideBitsFromObj(interp, objv[1], &value) != TCL_OK) { return TCL_ERROR; } - Tcl_Exit(value); + Tcl_Exit((int)value); /*NOTREACHED*/ return TCL_OK; /* Better not ever reach this! */ } |