From 4ec8e7110cba07102bd29c791d1bdc6d1beb58e2 Mon Sep 17 00:00:00 2001
From: fenner <fenner@FreeBSD.org>
Date: Sun, 10 Jan 1999 08:53:19 +0000
Subject: Allow vat & vic to run with tcl8.0.4.

---
 audio/vat/files/patch-ae | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

(limited to 'audio/vat/files/patch-ae')

diff --git a/audio/vat/files/patch-ae b/audio/vat/files/patch-ae
index c6842ae2566..0dd64688bde 100644
--- a/audio/vat/files/patch-ae
+++ b/audio/vat/files/patch-ae
@@ -24,7 +24,15 @@
  		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 @@
+@@ -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_);
@@ -33,7 +41,7 @@
  	TclObject** p;
  	for (p = &all_; *p != this; p = &(*p)->next_)
  		;
-@@ -197,8 +199,9 @@
+@@ -197,8 +200,9 @@
  void TclObject::setproc(const char* s)
  {
  	Tcl& tcl = Tcl::instance();
-- 
cgit