1 files changed, 113 insertions, 0 deletions
diff --git a/net/tcl-scotty/patches/patch-tnm_generic_tnmJob.c b/net/tcl-scotty/patches/patch-tnm_generic_tnmJob.c
new file mode 100644
index 00000000000..29f03cfd320
--- /dev/null
+++ b/net/tcl-scotty/patches/patch-tnm_generic_tnmJob.c
@@ -0,0 +1,113 @@
+$NetBSD: patch-tnm_generic_tnmJob.c,v 1.1 2014/03/05 13:52:29 he Exp $
+
+Constify.
+
+--- tnm/generic/tnmJob.c~	1999-12-02 09:52:56.000000000 +0100
++++ tnm/generic/tnmJob.c	2014-03-05 10:06:11.000000000 +0100
+@@ -96,20 +96,20 @@
+ Schedule	_ANSI_ARGS_((Tcl_Interp *interp, JobControl *control));
+ 
+ static int
+-CreateJob	_ANSI_ARGS_((Tcl_Interp *interp, int argc, char **argv));
++CreateJob	_ANSI_ARGS_((Tcl_Interp *interp, int argc, const char **argv));
+ 
+ static int
+ Attributes	_ANSI_ARGS_((Job *jobPtr, Tcl_Interp *interp, 
+-			     int argc, char **argv));
+-static char *
++			     int argc, const char **argv));
++static const char *
+ GetOption	_ANSI_ARGS_((Tcl_Interp *interp, ClientData object, 
+ 			     int option));
+ static int
+ SetOption	_ANSI_ARGS_((Tcl_Interp *interp, ClientData object, 
+-			     int option, char *value));
++			     int option, const char *value));
+ static int
+ JobCmd		_ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, 
+-			     int argc, char **argv));
++			     int argc, const char **argv));
+ 
+ /*
+  * The options used to configure job objects.
+@@ -481,7 +481,7 @@
+   repeat:
+     for (jobPtr = control->jobList; jobPtr != NULL; jobPtr = jobPtr->nextPtr) {
+         if (jobPtr->status == TNM_JOB_EXPIRED) {
+-	    char *name = Tcl_GetCommandName(interp, jobPtr->token);
++	    const char *name = Tcl_GetCommandName(interp, jobPtr->token);
+ #if 0
+ 	    char cmd[40];
+ 	    sprintf(cmd, "event raise %s", name);
+@@ -523,7 +523,7 @@
+ CreateJob(interp, argc, argv)
+     Tcl_Interp *interp;
+     int argc;
+-    char **argv;
++    const char **argv;
+ {
+     static unsigned lastid = 0;
+     Job *jobPtr, *p;
+@@ -603,7 +603,7 @@
+     Job *jobPtr;
+     Tcl_Interp *interp;
+     int argc;
+-    char **argv;
++    const char **argv;
+ {
+     Tcl_HashTable *tablePtr = &(jobPtr->attributes);
+     Tcl_HashEntry *entryPtr;
+@@ -655,7 +655,7 @@
+  *----------------------------------------------------------------------
+  */
+ 
+-static char *
++static const char *
+ GetOption(interp, object, option)
+     Tcl_Interp *interp;
+     ClientData object;
+@@ -709,7 +709,7 @@
+     Tcl_Interp *interp;
+     ClientData object;
+     int option;
+-    char *value;
++    const char *value;
+ {
+     Job *jobPtr = (Job *) object;
+     int num, status;
+@@ -783,7 +783,7 @@
+     ClientData clientData;
+     Tcl_Interp *interp;
+     int argc;
+-    char **argv;
++    const char **argv;
+ {
+     int result = TCL_OK;
+     Job *job = (Job *) clientData;
+@@ -831,7 +831,7 @@
+ 	if (control) {
+ 	repeat:
+ 	    for (job = control->jobList; job; job = job->nextPtr) {
+-		char *name = Tcl_GetCommandName(interp, job->token);
++		const char *name = Tcl_GetCommandName(interp, job->token);
+ 		if (job->status == TNM_JOB_WAITING 
+ 		    && (strcmp(name, argv[0]) == 0)) {
+ 		    Tcl_DoOneEvent(0);
+@@ -878,7 +878,7 @@
+     ClientData clientData;
+     Tcl_Interp *interp;
+     int argc;
+-    char **argv;
++    const char **argv;
+ {
+     Job *job;
+     JobControl *control = (JobControl *) 
+@@ -914,7 +914,7 @@
+ 	}
+ 	if (currentJob && currentJob->interp == interp) {
+ 	    Tcl_SetResult(interp, 
+-			  Tcl_GetCommandName(interp, currentJob->token),
++			  (char*)Tcl_GetCommandName(interp, currentJob->token),
+ 			  TCL_VOLATILE);
+ 	}
+ 	return TCL_OK;