diff options
| author | dgp <dgp@users.sourceforge.net> | 2019-04-12 19:44:34 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2019-04-12 19:44:34 (GMT) |
| commit | 6ae823b6b7894f244a874659bfd93fb4914c6a3a (patch) | |
| tree | bb59dd0853a15bd8f1fbdb66bb75064f30fd94e0 /generic/tclCmdAH.c | |
| parent | 325bbf57920315a1457d500d5fec8867c0e0744b (diff) | |
| parent | 71ae5810dc6d2d626841ee68af71d69df5fd7bd3 (diff) | |
| download | tcl-6ae823b6b7894f244a874659bfd93fb4914c6a3a.zip tcl-6ae823b6b7894f244a874659bfd93fb4914c6a3a.tar.gz tcl-6ae823b6b7894f244a874659bfd93fb4914c6a3a.tar.bz2 | |
merge 8.7
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 331f791..1811c5c 100644 --- a/generic/tclCmdAH.c +++ b/generic/tclCmdAH.c @@ -932,7 +932,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?"); @@ -941,10 +941,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! */ } |