File _service:extract_file:oops.patch of Package tcl

File _service:extract_file:oops.patch of Package tcl (Revision beb345802ebcb8e3b1674917fbbad563)

Currently displaying revision beb345802ebcb8e3b1674917fbbad563 , 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 34fa10893..6c9a2eb8d 100644
--- a/generic/tclOOMethod.c
+++ b/generic/tclOOMethod.c
@@ -1540,9 +1540,7 @@ TclOOGetMethodBody(
     if (mPtr->typePtr == &procMethodType) {
 	ProcedureMethod *pmPtr = 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 5bfa8f7ca..d96e35641 100644
--- a/generic/tclTest.c
+++ b/generic/tclTest.c
@@ -7012,11 +7012,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.19.1