File _service:tar_scm:oops.patch of Package tcl

File _service:tar_scm:oops.patch of Package tcl (Revision faaf188353aa3038a67e4436b8a1f970)

Currently displaying revision faaf188353aa3038a67e4436b8a1f970 , Show latest

From 15a2f423f0ea1de799f88ff78bcc8237e0afb5c8 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Thu, 24 Mar 2016 13:16:42 +0000
Subject: [PATCH 0239/1800] oops

---
 generic/tclOOMethod.c | 4 +---
 generic/tclTest.c     | 4 ++--
 2 files changed, 3 insertions(+), 5 deletions(-)

diff --git a/generic/tclOOMethod.c b/generic/tclOOMethod.c
index c65003f..0c7884a 100644
--- a/generic/tclOOMethod.c
+++ b/generic/tclOOMethod.c
@@ -1548,9 +1548,7 @@ TclOOGetMethodBody(
     if (mPtr->typePtr == &procMethodType) {
 	ProcedureMethod *pmPtr = (ProcedureMethod *)mPtr->clientData;
 
-	if (pmPtr->procPtr->bodyPtr->bytes == NULL) {
-	    (void) Tcl_GetString(pmPtr->procPtr->bodyPtr);
-	}
+	(void) TclGetString(pmPtr->procPtr->bodyPtr);
 	return pmPtr->procPtr->bodyPtr;
     }
     return NULL;
diff --git a/generic/tclTest.c b/generic/tclTest.c
index d3eb3b3..ea07291 100644
--- a/generic/tclTest.c
+++ b/generic/tclTest.c
@@ -7253,11 +7253,11 @@ TestconcatobjCmd(
 
     list1Ptr = Tcl_NewStringObj("foo bar sum", -1);
     Tcl_ListObjLength(NULL, list1Ptr, &len);
-    Tcl_InvalidateStringrep(list1Ptr);
+    Tcl_InvalidateStringRep(list1Ptr);
 
     list2Ptr = Tcl_NewStringObj("eeny meeny", -1);
     Tcl_ListObjLength(NULL, list2Ptr, &len);
-    Tcl_InvalidateStringrep(list2Ptr);
+    Tcl_InvalidateStringRep(list2Ptr);
 
     /*
      * Verify that concat'ing a list obj with one or more empty strings does
-- 
2.27.0