1 files changed, 0 insertions, 79 deletions
diff --git a/audio/vat/files/patch-ae b/audio/vat/files/patch-ae
deleted file mode 100644
index 6ac2e51801f1..000000000000
--- a/audio/vat/files/patch-ae
+++ /dev/null
@@ -1,79 +0,0 @@
---- 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
-@@ -65,6 +65,7 @@
- {
- 	instance_.tcl_ = tcl;
- 	instance_.application_ = application;
-+	Tcl_Init(tcl);
- }
- 
- void Tcl::evalc(const char* s)
-@@ -162,6 +163,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 +200,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
-@@ -230,6 +230,10 @@
- 
- Site::~Site()
- {
-+	if (text_)
-+		delete text_;
-+	if (tag_)
-+		delete tag_;
- }
- 
- int Site::command(int argc, const char*const* argv)
-@@ -638,8 +642,8 @@
- 	need_sort_ = 0;
- 
- 	Tcl& tcl = Tcl::instance();
--	Tk_Uid fg = mono()? "black" : (char*)tcl.attr("foreground");
--	Tk_Uid bg = mono()? "white" : (char*)tcl.attr("background");
-+	Tk_Uid fg = mono()? (char*)"black" : (char*)tcl.attr("foreground");
-+	Tk_Uid bg = mono()? (char*)"white" : (char*)tcl.attr("background");
- 	fg_ = lookup_gc(0, fg, bg);
- 	bg_ = lookup_gc(0, bg, bg);
- }