From a62009118b30df00bbe618899ac377b3b408d8f8 Mon Sep 17 00:00:00 2001
From: Alexey Dokuchaev <danfe@FreeBSD.org>
Date: Sat, 16 Nov 2024 06:07:52 +0000
Subject: [PATCH] lang/gforth: try to fix another warning-becomes-error with
 GCC 14

Old gforth_callback_ffcall() signature looks dubious and does not
match the API of `devel/libffcall' [-Wincompatible-pointer-types]:

  callback.h:58:35: note: expected 'callback_function_t' {aka
 'void (*)(void *, struct vacall_alist *)'} but argument is of
  type 'void (*)(void ***, void *)'

PR:	281238
---
 lang/gforth/files/patch-fflib.fs | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 lang/gforth/files/patch-fflib.fs

diff --git a/lang/gforth/files/patch-fflib.fs b/lang/gforth/files/patch-fflib.fs
new file mode 100644
index 000000000000..9dc464a1e4e5
--- /dev/null
+++ b/lang/gforth/files/patch-fflib.fs
@@ -0,0 +1,11 @@
+--- fflib.fs.orig	2013-10-11 21:31:28 UTC
++++ fflib.fs
+@@ -37,7 +37,7 @@ s" callback" add-lib
+ \c typedef void *Label;
+ \c typedef Label *Xt;
+ \c 
+-\c void gforth_callback_ffcall(Xt* fcall, void * alist)
++\c void gforth_callback_ffcall(void* fcall, va_alist alist)
+ \c {
+ \c #ifndef HAS_BACKLINK
+ \c   void **gforth_pointers = saved_gforth_pointers;