clisp/clisp-bdb-mismatched-pointer.patch
2023-12-01 12:44:55 -07:00

13 lines
540 B
Diff

--- modules/berkeley-db/bdb.c.orig 2023-07-18 14:03:05.000000000 -0600
+++ modules/berkeley-db/bdb.c 2023-12-01 12:12:30.675503890 -0700
@@ -2752,8 +2752,8 @@ DEFUN(BDB:TXN-RECOVER, dbe &key FIRST :N
DB_ENV *dbe = (DB_ENV*)bdb_handle(popSTACK(),`BDB::DBE`,BH_VALID);
u_int32_t tx_max;
DB_PREPLIST *preplist;
- int status, ii;
- u_int32_t retnum;
+ int status;
+ long ii, retnum;
SYSCALL(dbe->get_tx_max,(dbe,&tx_max));
preplist = (DB_PREPLIST*)clisp_malloc(tx_max * sizeof(DB_PREPLIST));
begin_blocking_system_call();