mirror of
https://github.com/Stichting-MINIX-Research-Foundation/pkgsrc-ng.git
synced 2025-09-24 04:03:34 -04:00
31 lines
1.1 KiB
Plaintext
31 lines
1.1 KiB
Plaintext
$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);
|