From: Gerd Möllmann <gerd@gnu.org>
Date: Sat, 12 Aug 2023 09:07:17 +0000 (+0200)
Subject: LLDB: print packages with xprint
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0ebe3ea2a91344267712a75afe271cd442f8a402;p=emacs.git

LLDB: print packages with xprint
---

diff --git a/etc/emacs_lldb.py b/etc/emacs_lldb.py
index c6cc6225234..120282f5335 100644
--- a/etc/emacs_lldb.py
+++ b/etc/emacs_lldb.py
@@ -182,6 +182,10 @@ class Lisp_Object:
                 return name.get_string_data()
         return None
 
+    def get_package_name(self):
+        name = Lisp_Object(self.value.GetValueForExpressionPath("->name"))
+        return name.get_string_data()
+
     # Return a summary string for this object.
     def summary(self):
         return str(self.value)
@@ -192,6 +196,8 @@ class Lisp_Object:
             result.AppendMessage(f"name:    {self.get_symbol_name()}")
         elif self.lisp_type == "Lisp_String":
             result.AppendMessage(str(self.get_string_data()))
+        elif self.lisp_type == "Lisp_Vectorlike" and self.pvec_type == "PVEC_PACKAGE":
+            result.AppendMessage(f"package {self.get_package_name()}")
         else:
             result.AppendMessage(self.summary())