16 lines
361 B
Text
16 lines
361 B
Text
$NetBSD: patch-ah,v 1.1 1999/05/31 17:11:22 he Exp $
|
|
|
|
--- Tcl.cc.old Wed Apr 3 06:53:27 1996
|
|
+++ Tcl.cc Mon May 31 18:39:24 1999
|
|
@@ -63,10 +63,11 @@
|
|
|
|
void Tcl::init(Tcl_Interp* tcl, const char* application)
|
|
{
|
|
instance_.tcl_ = tcl;
|
|
instance_.application_ = application;
|
|
+ Tcl_Init(tcl);
|
|
}
|
|
|
|
void Tcl::evalc(const char* s)
|
|
{
|
|
u_int n = strlen(s) + 1;
|