diff options
author | hobbs <hobbs@noemail.net> | 1999-11-24 20:55:06 (GMT) |
---|---|---|
committer | hobbs <hobbs@noemail.net> | 1999-11-24 20:55:06 (GMT) |
commit | 26de374274a184f8865654f5792c12ea564ae608 (patch) | |
tree | 4d05df4e657d9608845691082930382b5986a9d1 | |
parent | b4f7f898d7c56f405d9748715e0dc1e4c5968255 (diff) | |
download | tcl-26de374274a184f8865654f5792c12ea564ae608.zip tcl-26de374274a184f8865654f5792c12ea564ae608.tar.gz tcl-26de374274a184f8865654f5792c12ea564ae608.tar.bz2 |
* generic/tclCmdIL.c: made SORTMODE_INTEGER work with Longs
[Bug: 3652]
FossilOrigin-Name: 07f78f991f28ca204d36cb2e1115e83e443fd6b0
-rw-r--r-- | generic/tclCmdIL.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index c74278c..01c5a25 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -14,7 +14,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCmdIL.c,v 1.17 1999/10/05 22:45:40 hobbs Exp $ + * RCS: @(#) $Id: tclCmdIL.c,v 1.18 1999/11/24 20:55:07 hobbs Exp $ */ #include "tclInt.h" @@ -2786,10 +2786,10 @@ SortCompare(objPtr1, objPtr2, infoPtr) order = DictionaryCompare( Tcl_GetString(objPtr1), Tcl_GetString(objPtr2)); } else if (infoPtr->sortMode == SORTMODE_INTEGER) { - int a, b; + long a, b; - if ((Tcl_GetIntFromObj(infoPtr->interp, objPtr1, &a) != TCL_OK) - || (Tcl_GetIntFromObj(infoPtr->interp, objPtr2, &b) + if ((Tcl_GetLongFromObj(infoPtr->interp, objPtr1, &a) != TCL_OK) + || (Tcl_GetLongFromObj(infoPtr->interp, objPtr2, &b) != TCL_OK)) { infoPtr->resultCode = TCL_ERROR; return order; |