22 lines
761 B
Text
22 lines
761 B
Text
$NetBSD: patch-aq,v 1.2 2010/02/15 18:24:59 is Exp $
|
|
|
|
--- Tcl.h.orig 1996-03-16 21:14:34.000000000 +0000
|
|
+++ Tcl.h
|
|
@@ -73,7 +73,7 @@ class Tcl {
|
|
error(file);
|
|
}
|
|
inline char* var(const char* varname, int flags = TCL_GLOBAL_ONLY) {
|
|
- return (Tcl_GetVar(tcl_, (char*)varname, flags));
|
|
+ return ((char *)Tcl_GetVar(tcl_, (char*)varname, flags));
|
|
}
|
|
/*
|
|
* Hooks for invoking the tcl interpreter:
|
|
@@ -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);
|