summaryrefslogtreecommitdiff
path: root/net/tcl-scotty/patches/patch-tnm_snmp_tnmSnmpAgent.c
diff options
context:
space:
mode:
Diffstat (limited to 'net/tcl-scotty/patches/patch-tnm_snmp_tnmSnmpAgent.c')
-rw-r--r--net/tcl-scotty/patches/patch-tnm_snmp_tnmSnmpAgent.c131
1 files changed, 131 insertions, 0 deletions
diff --git a/net/tcl-scotty/patches/patch-tnm_snmp_tnmSnmpAgent.c b/net/tcl-scotty/patches/patch-tnm_snmp_tnmSnmpAgent.c
new file mode 100644
index 00000000000..d3b366ebcda
--- /dev/null
+++ b/net/tcl-scotty/patches/patch-tnm_snmp_tnmSnmpAgent.c
@@ -0,0 +1,131 @@
+$NetBSD: patch-tnm_snmp_tnmSnmpAgent.c,v 1.1 2014/03/05 13:52:29 he Exp $
+
+Constify.
+Avoid use of interp->result.
+
+--- tnm/snmp/tnmSnmpAgent.c.orig 1998-05-19 13:13:53.000000000 +0000
++++ tnm/snmp/tnmSnmpAgent.c
+@@ -52,18 +52,21 @@ CacheHit _ANSI_ARGS_((SNMP_Session *ses
+ static char*
+ TraceSysUpTime _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp,
+- char *name1, char *name2, int flags));
++ const char *name1, const char *name2,
++ int flags));
+ #ifdef TNM_SNMPv2U
+ static char*
+ TraceAgentTime _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp,
+- char *name1, char *name2, int flags));
++ const char *name1, const char *name2,
++ int flags));
+ #endif
+
+ static char*
+ TraceUnsignedInt _ANSI_ARGS_((ClientData clientData,
+ Tcl_Interp *interp,
+- char *name1, char *name2, int flags));
++ const char *name1, const char *name2,
++ int flags));
+ static TnmSnmpNode*
+ FindInstance _ANSI_ARGS_((SNMP_Session *session,
+ Tnm_Oid *oid, int oidlen));
+@@ -312,8 +315,8 @@ static char*
+ TraceSysUpTime(clientData, interp, name1, name2, flags)
+ ClientData clientData;
+ Tcl_Interp *interp;
+- char *name1;
+- char *name2;
++ const char *name1;
++ const char *name2;
+ int flags;
+ {
+ char buf[20];
+@@ -344,8 +347,8 @@ static char*
+ TraceAgentTime(clientData, interp, name1, name2, flags)
+ ClientData clientData;
+ Tcl_Interp *interp;
+- char *name1;
+- char *name2;
++ const char *name1;
++ const char *name2;
+ int flags;
+ {
+ char buf[20];
+@@ -377,8 +380,8 @@ static char*
+ TraceUnsignedInt(clientData, interp, name1, name2, flags)
+ ClientData clientData;
+ Tcl_Interp *interp;
+- char *name1;
+- char *name2;
++ const char *name1;
++ const char *name2;
+ int flags;
+ {
+ char buf[20];
+@@ -410,12 +413,15 @@ Tnm_SnmpAgentInit(interp, session)
+ SNMP_Session *session;
+ {
+ static int done = 0;
+- char tclvar[80], buffer[255], *value;
++ char tclvar[80], buffer[255];
++ const char *value;
+ struct StatReg *p;
+
+ if (Tnm_SnmpAgentOpen(session->agentInterp, session) != TCL_OK) {
+ if (interp != session->agentInterp) {
+- Tcl_SetResult(interp, session->agentInterp->result, TCL_STATIC);
++ Tcl_SetResult(interp,
++ (char*)Tcl_GetStringResult(session->agentInterp),
++ TCL_VOLATILE);
+ }
+ return TCL_ERROR;
+ }
+@@ -618,7 +624,7 @@ GetRequest(interp, session, request, res
+
+ for (i = 0; i < inVarBindSize; i++) {
+
+- char *value, *syntax;
++ const char *value, *syntax;
+
+ oid = Tnm_StrToOid(inVarBindPtr[i].soid, &oidlen);
+ if (request->type == TNM_SNMP_GETNEXT
+@@ -689,7 +695,7 @@ GetRequest(interp, session, request, res
+
+ varBindTclError:
+ response->error_status = TnmGetTableKey(tnmSnmpErrorTable,
+- interp->result);
++ Tcl_GetStringResult(interp));
+ if (response->error_status < 0) {
+ response->error_status = TNM_SNMP_GENERR;
+ }
+@@ -755,7 +761,7 @@ SetRequest(interp, session, request, res
+
+ for (i = 0; i < inVarBindSize; i++) {
+
+- char *value, *syntax;
++ const char *value, *syntax;
+ int setAlreadyDone = 0;
+ varsToRollback = i;
+
+@@ -859,7 +865,7 @@ SetRequest(interp, session, request, res
+
+ varBindTclError:
+ response->error_status = TnmGetTableKey(tnmSnmpErrorTable,
+- interp->result);
++ Tcl_GetStringResult(interp));
+ if (response->error_status < 0) {
+ response->error_status = TNM_SNMP_GENERR;
+ }
+@@ -902,8 +908,9 @@ SetRequest(interp, session, request, res
+ }
+
+ if (code != TCL_OK) {
+- response->error_status = TnmGetTableKey(tnmSnmpErrorTable,
+- interp->result);
++ response->error_status =
++ TnmGetTableKey(tnmSnmpErrorTable,
++ Tcl_GetStringResult(interp));
+ if (response->error_status < 0) {
+ response->error_status = TNM_SNMP_GENERR;
+ }