aboutsummaryrefslogtreecommitdiff
path: root/mbone/vat
diff options
context:
space:
mode:
authorBill Fenner <fenner@FreeBSD.org>1998-02-19 19:03:15 +0000
committerBill Fenner <fenner@FreeBSD.org>1998-02-19 19:03:15 +0000
commit2edf00cf6728d2f61cb29fec3265c440e7528d50 (patch)
treec5567a6336bbdf4449abb57cd0bd83aa16dce8a4 /mbone/vat
parent141bb0840a4b212c9791c37d03c35ac598a346fa (diff)
downloadports-2edf00cf6728d2f61cb29fec3265c440e7528d50.tar.gz
ports-2edf00cf6728d2f61cb29fec3265c440e7528d50.zip
Notes
Diffstat (limited to 'mbone/vat')
-rw-r--r--mbone/vat/files/patch-ae61
1 files changed, 61 insertions, 0 deletions
diff --git a/mbone/vat/files/patch-ae b/mbone/vat/files/patch-ae
new file mode 100644
index 000000000000..c6842ae25663
--- /dev/null
+++ b/mbone/vat/files/patch-ae
@@ -0,0 +1,61 @@
+--- Tcl.h.orig Sat Mar 16 13:14:34 1996
++++ Tcl.h Tue Dec 17 14:39:45 1996
+@@ -53,7 +53,8 @@
+ 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,
+--- source.cc.orig Thu Apr 4 07:05:45 1996
++++ source.cc Tue Dec 17 14:38:44 1996
+@@ -251,8 +251,7 @@
+ return (TCL_OK);
+ }
+ if (strcmp(argv[1], "addr") == 0) {
+- strcpy(wrk, InetNtoa(addr_));
+- tcl.result(wrk);
++ tcl.result(InetNtoa(addr_), TCL_DYNAMIC);
+ return (TCL_OK);
+ }
+ if (strcmp(argv[1], "srcid") == 0) {
+--- Tcl.cc.orig Tue Apr 2 20:53:27 1996
++++ Tcl.cc Tue Dec 17 15:45:30 1996
+@@ -162,6 +162,8 @@
+ Tcl& tcl = Tcl::instance();
+ if (!tcl.dark())
+ tcl.DeleteCommand(name_);
++ if (name_ != 0)
++ delete name_;
+ TclObject** p;
+ for (p = &all_; *p != this; p = &(*p)->next_)
+ ;
+@@ -197,8 +199,9 @@
+ void TclObject::setproc(const char* s)
+ {
+ Tcl& tcl = Tcl::instance();
+- if (name_ != 0 && !tcl.dark()) {
+- tcl.DeleteCommand(name_);
++ if (name_ != 0) {
++ if (!tcl.dark())
++ tcl.DeleteCommand(name_);
+ delete name_;
+ }
+ int n = strlen(s);
+--- sitebox.cc.orig 1997/01/07 22:48:27
++++ sitebox.cc 1997/01/07 23:27:35
+@@ -228,6 +228,10 @@
+
+ Site::~Site()
+ {
++ if (text_)
++ delete text_;
++ if (tag_)
++ delete tag_;
+ }
+
+ int Site::command(int argc, const char*const* argv)
+