28 lines
788 B
Diff
28 lines
788 B
Diff
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 +---
|
|
1 file changed, 1 insertions(+), 3 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;
|
|
--
|
|
2.27.0
|
|
|