2010-02-03 22:14:22 +01:00
|
|
|
$NetBSD: patch-ba,v 1.2 2010/02/03 21:14:22 is Exp $
|
2010-01-25 22:14:45 +01:00
|
|
|
|
2010-02-03 22:14:22 +01:00
|
|
|
--- Tcl.h.orig 1996-03-16 21:14:34.000000000 +0000
|
|
|
|
|
+++ Tcl.h
|
2010-01-25 22:14:45 +01:00
|
|
|
@@ -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);
|
