procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix Fsqlite_finalize book-keeping

Browse source 
* src/sqlite.c (Fsqlite_finalize): Mark the object as dead.
This commit is contained in:
Lars Ingebrigtsen 2021-12-11 07:47:34 +01:00
parent 19233f6501
commit 17569c9495
2 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/sqlite.c
View file

@ -290,7 +290,7 @@ DEFUN ("sqlite-close", Fsqlite_close, Ssqlite_close, 1, 1, 0,
check_sqlite (db, false);
sqlite3_close (XSQLITE (db)->db);
XSQLITE (db)->db = NULL;
return Qnil;
return Qt;
}
/* Bind values in a statement like
@ -647,6 +647,7 @@ This will free the resources held by SET. */)
{
check_sqlite (set, true);
sqlite3_finalize (XSQLITE (set)->stmt);
XSQLITE (set)->db = NULL;
return Qt;
}

4
test/src/sqlite-tests.el
View file

@ -79,7 +79,9 @@
(should (equal (sqlite-next set)
'("bar" 2)))
(should-not (sqlite-next set))
(should-not (sqlite-more-p set))))
(should-not (sqlite-more-p set))
(sqlite-finalize set)
(should-error (sqlite-next set))))
(ert-deftest sqlite-chars ()
(skip-unless (sqlite-available-p))