1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
$NetBSD: patch-ar,v 1.2 2010/02/15 18:24:59 is Exp $
--- rate-variable.cc.orig 1996-03-16 21:13:57.000000000 +0000
+++ rate-variable.cc
@@ -61,13 +61,13 @@ class RateVariable : public TclObject {
public:
RateVariable(const char* name) : TclObject(name) { }
protected:
- static char* update_rate_var(ClientData, Tcl_Interp*, char* name1,
- char* name2, int flags);
+ static char* update_rate_var(ClientData, Tcl_Interp*, const char* name1,
+ const char* name2, int flags);
int command(int argc, const char*const* argv);
} rate_variable_cmd("rate_variable");
char* RateVariable::update_rate_var(ClientData clientData, Tcl_Interp* tcl,
- char* name1, char* name2, int flags)
+ const char* name1, const char* name2, int flags)
{
rv_data* rv = (rv_data*)clientData;
if (rv == NULL)
@@ -80,7 +80,7 @@ char* RateVariable::update_rate_var(Clie
*/
char res[128];
flags &= TCL_GLOBAL_ONLY;
- char* cv = Tcl_GetVar2(tcl, name1, name2, flags);
+ const char* cv = Tcl_GetVar2(tcl, name1, name2, flags);
if (cv == NULL)
return (tcl->result);
int curval = atoi(cv);
|