1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
$NetBSD: patch-ba,v 1.1 2010/01/25 21:14:45 is Exp $
--- /pkg_comp/obj/pkgsrc/mbone/vic/netbsd5/vic-2.8/Tcl.h.orig 1996-03-16 21:14:34.000000000 +0000
+++ /pkg_comp/obj/pkgsrc/mbone/vic/netbsd5/vic-2.8/Tcl.h
@@ -72,7 +72,7 @@ class Tcl {
if (Tcl_EvalFile(tcl_, (char*)file) != TCL_OK)
error(file);
}
- inline char* var(const char* varname, int flags = TCL_GLOBAL_ONLY) {
+ inline const char* var(const char* varname, int flags = TCL_GLOBAL_ONLY) {
return (Tcl_GetVar(tcl_, (char*)varname, flags));
}
/*
@@ -123,7 +123,7 @@ class TclObject {
virtual void reset();
void class_name(const char*);
/* make this public for Sun's compiler */
- static int callback(ClientData, Tcl_Interp*, int ac, char** av);
+ static int callback(ClientData, Tcl_Interp*, int ac, const char** av);
static void reset_all();
protected:
TclObject(const char* name = 0);
|
