From 9a649938465721999360e7a90f534541155467ae4adf3656a6438f1aa76f409b Mon Sep 17 00:00:00 2001
From: "Dr. Werner Fink" <werner@suse.com>
Date: Wed, 28 Aug 2024 13:58:36 +0000
Subject: [PATCH] .

OBS-URL: https://build.opensuse.org/package/show/devel:languages:misc/clisp?expand=0&rev=131
---
 clisp-gcc14.patch | 61 +++++++++++++++++++++++++++++++++++++++++++++--
 1 file changed, 59 insertions(+), 2 deletions(-)

diff --git a/clisp-gcc14.patch b/clisp-gcc14.patch
index dfd93a8..4ed41f8 100644
--- a/clisp-gcc14.patch
+++ b/clisp-gcc14.patch
@@ -1,7 +1,64 @@
 ---
- modules/gdbm/gdbm.c |    4 ++--
- 1 file changed, 2 insertions(+), 2 deletions(-)
+ modules/berkeley-db/bdb.c        |    8 ++++----
+ modules/berkeley-db/configure    |    2 +-
+ modules/berkeley-db/configure.in |    2 +-
+ modules/gdbm/gdbm.c              |    4 ++--
+ 4 files changed, 8 insertions(+), 8 deletions(-)
 
+--- modules/berkeley-db/bdb.c
++++ modules/berkeley-db/bdb.c	2024-08-28 13:29:49.651861291 +0000
+@@ -365,7 +365,7 @@ DEFUN(BDB:DBE-CREATE,&key PASSWORD ENCRY
+     dbe_set_encryption(dbe,&STACK_0,&STACK_1);
+   skipSTACK(2);
+   /* set error & message callbacks */
+-  begin_system_call(); dbe->set_errcall(dbe,&error_callback);
++  begin_system_call(); dbe->set_errcall(dbe,(void (*)(const DB_ENV *,const char *,const char *))&error_callback);
+ #if defined(HAVE_DB_ENV_SET_MSGCALL)
+   dbe->set_msgcall(dbe,&message_callback);
+ #endif
+@@ -1213,7 +1213,7 @@ DEFUN(BDB:DB-CREATE, dbe)
+   SYSCALL(db_create,(&db,dbe,0));
+   if (!dbe) {                   /* set error callback */
+     begin_system_call();
+-    db->set_errcall(db,&error_callback);
++    db->set_errcall(db,(void (*)(const DB_ENV *,const char *,const char *))&error_callback);
+     end_system_call();
+   }
+   wrap_finalize(db,STACK_0,`BDB::MKDB`,``BDB::DB-CLOSE``);
+@@ -1515,9 +1515,9 @@ DEFUN(BDB:DB-STAT, db &key FAST-STAT TRA
+ { /* Return database statistics */
+   DB_TXN *txn = (DB_TXN*)bdb_handle(popSTACK(),`BDB::TXN`,BH_NIL_IS_NULL);
+ #if defined(HAVE_DB_STAT_ACCEPT_TXN)
+-# define DB_STAT(s)   SYSCALL(db->stat,(db,txn,&s,flags));
++# define DB_STAT(s)   SYSCALL(db->stat,(db,txn,(void*)&s,flags));
+ #else
+-# define DB_STAT(s)   SYSCALL(db->stat,(db,&s,flags));
++# define DB_STAT(s)   SYSCALL(db->stat,(db,(void*)&s,flags));
+ #endif
+   u_int32_t flags = missingp(STACK_0) ? 0 : DB_FAST_STAT;
+   DB *db = (DB*)bdb_handle(STACK_1,`BDB::DB`,BH_VALID);
+--- modules/berkeley-db/configure
++++ modules/berkeley-db/configure	2024-08-28 13:50:11.630365795 +0000
+@@ -5712,7 +5712,7 @@ cat confdefs.h - <<_ACEOF >conftest.$ac_
+ int
+ main ()
+ {
+-DB db; db.stat(&db,NULL,0,NULL);
++DB db; db.stat(&db,NULL,NULL,0);
+   ;
+   return 0;
+ }
+--- modules/berkeley-db/configure.in
++++ modules/berkeley-db/configure.in	2024-08-28 13:49:39.294928188 +0000
+@@ -38,7 +38,7 @@ AC_CHECK_SIZEOF(db_recno_t,,[#include <s
+ dnl <http://www.sleepycat.com/docs/ref/upgrade.4.3/stat.html>
+ AC_CACHE_CHECK([whether DB->stat() accepts TXNid],ac_cv_db_stat_accept_txn,[
+ AC_COMPILE_IFELSE([AC_LANG_PROGRAM([#include <db.h>],
+-[[DB db; db.stat(&db,NULL,0,NULL);]])],
++[[DB db; db.stat(&db,NULL,NULL,0);]])],
+ ac_cv_db_stat_accept_txn=yes,ac_cv_db_stat_accept_txn=no)])
+ if test "$ac_cv_db_stat_accept_txn" = "yes"; then
+ AC_DEFINE(HAVE_DB_STAT_ACCEPT_TXN,1,[Define to 1 if DB->stat() accepts TXNid])
 --- modules/gdbm/gdbm.c
 +++ modules/gdbm/gdbm.c	2024-08-28 11:55:51.720519565 +0000
 @@ -66,7 +66,7 @@ DEFCHECKER(check_gdbm_errno, prefix=GDBM