ports/devel/tclcl/files/patch-tclcl.h
Pietro Cerutti a13d23f6fc - Fix build with Tcl/Tk 86
- While at it, trim Makefile header and s/PORTDOCS/PORT_OPTIONS:MDOCS/

Reported by:	miwi (Tcl/Tk 86 exp-run)
2013-05-13 07:35:58 +00:00

11 lines
514 B
C

--- tclcl.h.orig 2013-05-13 09:20:07.000000000 +0200
+++ tclcl.h 2013-05-13 09:23:19.000000000 +0200
@@ -85,7 +85,7 @@
/* may not work at all! */
inline char* result() const { return (tcl_->result); }
#endif /* TCL_MAJOR_VERSION >= 8 */
- inline void result(const char* p) { tcl_->result = (char*)p; }
+ inline void result(const char* p) {Tcl_SetResult (tcl_, (char *)p, NULL);}
void resultf(const char* fmt, ...);
inline void CreateCommand(const char* cmd, Tcl_CmdProc* cproc,
ClientData cd = 0,