1 files changed, 68 insertions, 0 deletions
diff --git a/net/tcl-scotty/patches/patch-tnm_generic_tnmNtp.c b/net/tcl-scotty/patches/patch-tnm_generic_tnmNtp.c
new file mode 100644
index 00000000000..6a1df39a233
--- /dev/null
+++ b/net/tcl-scotty/patches/patch-tnm_generic_tnmNtp.c
@@ -0,0 +1,68 @@
+$NetBSD: patch-tnm_generic_tnmNtp.c,v 1.1 2014/03/05 13:52:29 he Exp $
+
+Avoid use of interp->result.
+Constify.
+
+--- tnm/generic/tnmNtp.c~	1996-09-18 23:33:54.000000000 +0200
++++ tnm/generic/tnmNtp.c	2014-03-04 16:04:08.000000000 +0100
+@@ -74,7 +74,7 @@
+ 			     int op, int retries, int timeo,
+ 			     char *buf, int assoc));
+ static int
+-NtpSplit	_ANSI_ARGS_((Tcl_Interp *interp, char *varname,
++NtpSplit	_ANSI_ARGS_((Tcl_Interp *interp, const char *varname,
+ 			     char *pfix, char *buf));
+ static int 
+ NtpGetPeer	_ANSI_ARGS_((char *data, int *assoc));
+@@ -349,11 +349,12 @@
+ static int
+ NtpSplit(interp, varname, pfix, buf)
+     Tcl_Interp *interp;
+-    char *varname;
++    const char *varname;
+     char *pfix;
+     char *buf;
+ {
+-    char *d, *s, *g, *r;
++    char *d, *s, *g;
++    const char *r;
+     char var [256];
+ 
+     for (s = buf, d = buf; *s; s++) {
+@@ -440,9 +441,9 @@
+     ClientData clientData;
+     Tcl_Interp *interp;
+     int argc;
+-    char *argv[];
++    const char *argv[];
+ {
+-    char *cmd = argv[0];
++    const char *cmd = argv[0];
+     struct sockaddr_in daddr;
+     int code, assoc;
+     char data1 [1024], data2 [1024];
+@@ -472,10 +473,13 @@
+     argc--; argv++;
+ 
+     while (argc > 0 && (*argv[0] == '-')) {
++        char res[20];
++
+ 	if (strcmp(argv [0], "-retries") == 0) {
+ 	    argc--, argv++;
+ 	    if (argc < 1) {
+-	        sprintf(interp->result, "%d", control->retries);
++	        sprintf(res, "%d", control->retries);
++		Tcl_SetResult(interp, res, TCL_VOLATILE);
+ 		return TCL_OK;
+ 	    }
+ 	    if (TnmGetUnsigned(interp, argv[0], &actRetries) != TCL_OK) {
+@@ -484,7 +488,8 @@
+ 	} else if (strcmp(argv [0], "-timeout") == 0) {
+ 	    argc--, argv++;
+ 	    if (argc < 1) {
+-	        sprintf(interp->result, "%d", control->timeout);
++	        sprintf(res, "%d", control->timeout);
++		Tcl_SetResult(interp, res, TCL_VOLATILE);
+ 		return TCL_OK;
+ 	    }
+ 	    if (TnmGetPositive(interp, argv [0], &actTimeout) != TCL_OK) {