clisp/clisp-gcc14.patch

25 lines
1.1 KiB
Diff
Raw Normal View History

---
modules/gdbm/gdbm.c | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
--- 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
READER-CANT-REORGANIZE UNKNOWN-UPDATE ITEM-NOT-FOUND \
REORGANIZE-FAILED CANNOT-REPLACE ILLEGAL-DATA OPT-ALREADY-SET \
OPT-ILLEGAL)
-static _Noreturn void error_gdbm (char *fatal_message) {
+static _Noreturn void error_gdbm (const char *fatal_message) {
end_blocking_system_call(); /* in case we are called from _gdbm_fatal() */
pushSTACK(`GDBM::GDBM-ERROR`);
pushSTACK(`:MESSAGE`);
@@ -126,7 +126,7 @@ static object open_gdbm (object path, in
GDBM_FILE gdbm;
with_string_0(path, GLO(pathname_encoding), name, {
SYSCALL(gdbm = gdbm_open(name, bsize, rw, mode,
- (void (*)(void))error_gdbm));
+ (void (*)(const char *))error_gdbm));
});
if (gdbm == NULL) error_gdbm(NULL);
return allocate_fpointer(gdbm);