开源软件构建与测试

_service:tar_scm:tcl.spec Changed

_service:tar_scm:oops.patch Changed

@@ -9,12 +9,12 @@
  2 files changed, 3 insertions(+), 5 deletions(-)
 
 diff --git a/generic/tclOOMethod.c b/generic/tclOOMethod.c
-index 34fa10893..6c9a2eb8d 100644
+index c65003f..0c7884a 100644
 --- a/generic/tclOOMethod.c
 +++ b/generic/tclOOMethod.c
-@@ -1540,9 +1540,7 @@ TclOOGetMethodBody(
+@@ -1548,9 +1548,7 @@ TclOOGetMethodBody(
      if (mPtr->typePtr == &procMethodType) {
- 	ProcedureMethod *pmPtr = mPtr->clientData;
+ 	ProcedureMethod *pmPtr = (ProcedureMethod *)mPtr->clientData;
  
 -	if (pmPtr->procPtr->bodyPtr->bytes == NULL) {
 -	    (void) Tcl_GetString(pmPtr->procPtr->bodyPtr);
@@ -24,10 +24,10 @@
      }
      return NULL;
 diff --git a/generic/tclTest.c b/generic/tclTest.c
-index 5bfa8f7ca..d96e35641 100644
+index d3eb3b3..ea07291 100644
 --- a/generic/tclTest.c
 +++ b/generic/tclTest.c
-@@ -7012,11 +7012,11 @@ TestconcatobjCmd(
+@@ -7253,11 +7253,11 @@ TestconcatobjCmd(
  
      list1Ptr = Tcl_NewStringObj("foo bar sum", -1);
      Tcl_ListObjLength(NULL, list1Ptr, &len);
@@ -42,5 +42,5 @@
      /*
       * Verify that concat'ing a list obj with one or more empty strings does
 -- 
-2.19.1
+2.27.0

_service:tar_scm:tcl-core8.6.12-src.tar.gz Deleted

_service:tar_scm:tcl-core8.6.13-src.tar.gz Added

Changes of Revision 3