Projects
openEuler:24.03:SP1:Everything
tix
_service:tar_scm:tix-8.4.3-tcl86.patch
Sign Up
Log In
Username
Password
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File _service:tar_scm:tix-8.4.3-tcl86.patch of Package tix
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",
Locations
Projects
Search
Status Monitor
Help
Open Build Service
OBS Manuals
API Documentation
OBS Portal
Reporting a Bug
Contact
Mailing List
Forums
Chat (IRC)
Twitter
Open Build Service (OBS)
is an
openSUSE project
.
浙ICP备2022010568号-2