pkgsrc/net/tcl-scotty/patches/patch-tnm_generic_tnmEvent.c
he 5b73f85427 Make tcl-scotty build with minimal warnings and install again.
This change is the result of a large sweep triggered by the new
Tcl which has const'ified many interfaces -- this follows suit with
many corresponding changes internally in scotty => lots of new
patches.

Also, change so as to not access interp->errorLine and
interp->result directly, use the accessor functions instead,
and turn off the corresponding compatibility defines.

The old patch files have been renamed and expanded, the new
scheme for naming patch files is used.

Only minimal functionality testing is done, but what has been
done shows that it basically works again.

PKGREVISION bumped.
2014-03-05 13:52:29 +00:00

47 lines
1.3 KiB
C
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

$NetBSD: patch-tnm_generic_tnmEvent.c,v 1.1 2014/03/05 13:52:29 he Exp $
Constify.
--- tnm/generic/tnmEvent.c.orig 1996-08-27 20:24:58.000000000 +0000
+++ tnm/generic/tnmEvent.c
@@ -73,11 +73,11 @@ EventProc _ANSI_ARGS_((ClientData client
static int
BindEvent _ANSI_ARGS_((Tcl_Interp *interp, EventControl *control,
- int argc, char **argv));
+ int argc, const char **argv));
static int
RaiseEvent _ANSI_ARGS_((Tcl_Interp *interp, EventControl *control,
- int argc, char **argv));
+ int argc, const char * const *argv));
/*
*----------------------------------------------------------------------
@@ -170,7 +170,7 @@ BindEvent(interp, control, argc, argv)
Tcl_Interp *interp;
EventControl *control;
int argc;
- char **argv;
+ const char **argv;
{
Tcl_HashEntry *entryPtr;
@@ -249,7 +249,7 @@ RaiseEvent(interp, control, argc, argv)
Tcl_Interp *interp;
EventControl *control;
int argc;
- char **argv;
+ const char * const * argv;
{
Tcl_HashEntry *entryPtr;
@@ -299,7 +299,7 @@ Tnm_EventCmd(clientData, interp, argc, a
ClientData clientData;
Tcl_Interp *interp;
int argc;
- char **argv;
+ const char **argv;
{
EventControl *control = (EventControl *)
Tcl_GetAssocData(interp, tnmEventControl, NULL);