diff options
| author | hobbs <hobbs> | 1999-11-24 20:55:07 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 1999-11-24 20:55:07 (GMT) |
| commit | 63975d2feab17a6bfc23c9817bf9ebbfa65f24cb (patch) | |
| tree | 4d05df4e657d9608845691082930382b5986a9d1 | |
| parent | dba6bd040e866529d033e0805b7ff42b24154a48 (diff) | |
| download | tcl-63975d2feab17a6bfc23c9817bf9ebbfa65f24cb.zip tcl-63975d2feab17a6bfc23c9817bf9ebbfa65f24cb.tar.gz tcl-63975d2feab17a6bfc23c9817bf9ebbfa65f24cb.tar.bz2 | |
* generic/tclCmdIL.c: made SORTMODE_INTEGER work with Longs
[Bug: 3652]
| -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; |