summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorhobbs <hobbs>1999-11-24 20:55:07 (GMT)
committerhobbs <hobbs>1999-11-24 20:55:07 (GMT)
commit63975d2feab17a6bfc23c9817bf9ebbfa65f24cb (patch)
tree4d05df4e657d9608845691082930382b5986a9d1
parentdba6bd040e866529d033e0805b7ff42b24154a48 (diff)
downloadtcl-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.c8
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;