diff options
| author | fenner <fenner@FreeBSD.org> | 1999-01-10 08:53:19 +0000 |
|---|---|---|
| committer | fenner <fenner@FreeBSD.org> | 1999-01-10 08:53:19 +0000 |
| commit | 4ec8e7110cba07102bd29c791d1bdc6d1beb58e2 (patch) | |
| tree | 0cab68fb6116e269e42a3ab691cbc9d0cea6501d /mbone | |
| parent | 9713ae7cb386e765225ccf1c6a033aa65ea6c2d2 (diff) | |
| download | FreeBSD-ports-4ec8e7110cba07102bd29c791d1bdc6d1beb58e2.zip FreeBSD-ports-4ec8e7110cba07102bd29c791d1bdc6d1beb58e2.tar.gz | |
Allow vat & vic to run with tcl8.0.4.
Diffstat (limited to 'mbone')
| -rw-r--r-- | mbone/vat/files/patch-ae | 12 | ||||
| -rw-r--r-- | mbone/vic/files/patch-ag | 12 |
2 files changed, 20 insertions, 4 deletions
diff --git a/mbone/vat/files/patch-ae b/mbone/vat/files/patch-ae index c6842ae..0dd6468 100644 --- a/mbone/vat/files/patch-ae +++ b/mbone/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(); diff --git a/mbone/vic/files/patch-ag b/mbone/vic/files/patch-ag index b7c10c1..17380d8 100644 --- a/mbone/vic/files/patch-ag +++ b/mbone/vic/files/patch-ag @@ -35,7 +35,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_); @@ -44,7 +52,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(); |
