Identify statement objects

1 files changed, 5 insertions, 0 deletions

diff --git a/src/print.c b/src/print.c
index 63c91b7cb39..214f1d12c11 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);