scratch/pkg 0ebe3ea2a91 1/2: LLDB: print packages with xprint

[Gerd Moellmann]

branch: scratch/pkg
commit 0ebe3ea2a91344267712a75afe271cd442f8a402
Author: Gerd Möllmann <gerd@gnu.org>
Commit: Gerd Möllmann <gerd@gnu.org>

    LLDB: print packages with xprint
---
 etc/emacs_lldb.py | 6 ++++++
 1 file changed, 6 insertions(+)

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())