From 1e690a3e69af330e71274af2914a73278f3cebc9 Mon Sep 17 00:00:00 2001
From: Alfredo Tupone <tupone@gentoo.org>
Date: Wed, 25 Jan 2023 19:56:13 +0100
Subject: dev-ml/labltk: fix function without prototype

Closes: https://bugs.gentoo.org/882057
Signed-off-by: Alfredo Tupone <tupone@gentoo.org>
---
 dev-ml/labltk/files/labltk-8.06.12-c2x.patch | 47 ++++++++++++++++++++++++++++
 dev-ml/labltk/labltk-8.06.12-r1.ebuild       |  1 +
 2 files changed, 48 insertions(+)
 create mode 100644 dev-ml/labltk/files/labltk-8.06.12-c2x.patch

(limited to 'dev-ml/labltk')

diff --git a/dev-ml/labltk/files/labltk-8.06.12-c2x.patch b/dev-ml/labltk/files/labltk-8.06.12-c2x.patch
new file mode 100644
index 000000000000..f495e532d590
--- /dev/null
+++ b/dev-ml/labltk/files/labltk-8.06.12-c2x.patch
@@ -0,0 +1,47 @@
+--- a/support/cltkWait.c	2023-01-25 19:38:41.920494229 +0100
++++ b/support/cltkWait.c	2023-01-25 19:39:51.246347410 +0100
+@@ -44,9 +44,7 @@
+   Tk_Window win;
+ };
+ 
+-static void WaitVisibilityProc(clientData, eventPtr)
+-    ClientData clientData;
+-    XEvent *eventPtr;           /* Information about event (not used). */
++static void WaitVisibilityProc(ClientData clientData, XEvent *eventPtr)
+ {
+   struct WinCBData *vis = clientData;
+   value cbid = Val_int(vis->cbid);
+--- a/support/cltkImg.c	2023-01-25 19:42:03.647173018 +0100
++++ b/support/cltkImg.c	2023-01-25 19:42:49.290423395 +0100
+@@ -111,9 +111,7 @@
+   return Val_int(0);
+ }
+ 
+-CAMLprim value camltk_setimgdata_bytecode(argv,argn)
+-     value *argv;
+-     int argn;
++CAMLprim value camltk_setimgdata_bytecode(value *argv, int argn)
+ {
+   return camltk_setimgdata_native(argv[0], argv[1], argv[2], argv[3],
+                                   argv[4], argv[5]);
+--- a/support/cltkVar.c	2023-01-25 19:44:11.880066940 +0100
++++ b/support/cltkVar.c	2023-01-25 19:46:16.580018764 +0100
+@@ -74,12 +74,12 @@
+ typedef char *(Tcl_VarTraceProc) _ANSI_ARGS_((ClientData clientData,
+         Tcl_Interp *interp, char *part1, char *part2, int flags));
+  */
+-static char * tracevar(clientdata, interp, name1, name2, flags)
+-     ClientData clientdata;
+-     Tcl_Interp *interp;        /* Interpreter containing variable. */
+-     char *name1;               /* Name of variable. */
+-     char *name2;               /* Second part of variable name. */
+-     int flags;                 /* Information about what happened. */
++static char * tracevar(ClientData clientdata, Tcl_Interp *interp,
++                char *name1, char *name2, int flags)
++     /* interp -> Interpreter containing variable. */
++     /* name1  -> Name of variable. */
++     /* name2  -> Second part of variable name. */
++     /* flags  -> Information about what happened. */
+ {
+   Tcl_UntraceVar2(interp, name1, name2,
+                 TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
diff --git a/dev-ml/labltk/labltk-8.06.12-r1.ebuild b/dev-ml/labltk/labltk-8.06.12-r1.ebuild
index a85ce87f404c..6ec61653cabe 100644
--- a/dev-ml/labltk/labltk-8.06.12-r1.ebuild
+++ b/dev-ml/labltk/labltk-8.06.12-r1.ebuild
@@ -24,6 +24,7 @@ PATCHES=(
 	"${FILESDIR}/findlib.patch"
 	"${FILESDIR}"/${PN}-8.06.9-configure-clang16.patch
 	"${FILESDIR}"/${P}-shuffle.patch
+	"${FILESDIR}"/${P}-c2x.patch
 )
 
 src_prepare() {
-- 
cgit v1.2.3-65-gdbad