scratch/sqlite 7646e57: Identify statement objects

[Lars Ingebrigtsen]

branch: scratch/sqlite
commit 7646e57a8657a39e6f006fb04ebebabe44cb87f1
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Identify statement objects
---
 src/print.c | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/print.c b/src/print.c
index 63c91b7..214f1d1 100644
--- a/src/print.c
+++ b/src/print.c
@@ -1880,6 +1880,11 @@ print_vectorlike (Lisp_Object obj, Lisp_Object 
printcharfun, bool escapeflag,
        print_c_string ("#<sqlite ", printcharfun);
        int i = sprintf (buf, "db=%p", XSQLITE (obj)->db);
        strout (buf, i, i, printcharfun);
+       if (XSQLITE (obj)->is_statement)
+         {
+           i = sprintf (buf, " stmt=%p", XSQLITE (obj)->stmt);
+           strout (buf, i, i, printcharfun);
+         }
        i = sprintf (buf, " name=%s", XSQLITE (obj)->name);
        strout (buf, i, i, printcharfun);
        printchar ('>', printcharfun);