25 lines
766 B
Diff
25 lines
766 B
Diff
diff --git a/generic/tixGrSort.c b/generic/tixGrSort.c
|
|
index 7dee30f..d45f51d 100644
|
|
--- a/generic/tixGrSort.c
|
|
+++ b/generic/tixGrSort.c
|
|
@@ -425,7 +425,7 @@ SortCompareProc(first, second)
|
|
}
|
|
} else {
|
|
int oldLength;
|
|
- char *end;
|
|
+ char *end, *result;
|
|
|
|
/*
|
|
* Generate and evaluate a command to determine which string comes
|
|
@@ -447,8 +447,8 @@ SortCompareProc(first, second)
|
|
* Parse the result of the command.
|
|
*/
|
|
|
|
- order = strtol(sortInterp->result, &end, 0);
|
|
- if ((end == sortInterp->result) || (*end != 0)) {
|
|
+ order = strtol(result = Tcl_GetStringResult(sortInterp), &end, 0);
|
|
+ if ((end == result) || (*end != 0)) {
|
|
Tcl_ResetResult(sortInterp);
|
|
Tcl_AppendResult(sortInterp,
|
|
"comparison command returned non-numeric result",
|