From 7646e57a8657a39e6f006fb04ebebabe44cb87f1 Mon Sep 17 00:00:00 2001
From: Lars Ingebrigtsen
Date: Wed, 8 Dec 2021 01:07:42 +0100
Subject: Identify statement objects

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

(limited to 'src')

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);
-- 
cgit v1.2.1