14 lines
646 B
Plaintext
14 lines
646 B
Plaintext
$OpenBSD: patch-Tcl_h,v 1.1 2001/07/30 15:33:22 espie Exp $
|
|
--- Tcl.h.orig Sat Mar 16 22:14:34 1996
|
|
+++ Tcl.h Mon Jul 30 17:25:38 2001
|
|
@@ -53,7 +53,8 @@ class Tcl {
|
|
inline int dark() const { return (tcl_ == 0); }
|
|
inline Tcl_Interp* interp() const { return (tcl_); }
|
|
inline char* result() const { return (tcl_->result); }
|
|
- inline void result(const char* p) { tcl_->result = (char*)p; }
|
|
+ inline void result(const char* p, Tcl_FreeProc* freeProc = TCL_STATIC)
|
|
+ { Tcl_SetResult(tcl_, (char *)p, freeProc); }
|
|
void resultf(const char* fmt, ...);
|
|
inline void CreateCommand(const char* cmd, Tcl_CmdProc* cproc,
|
|
ClientData cd = 0,
|