New type Lisp_Misc_Ptr

This is a streamlined version of Lisp_Save_Value, which contains just
a pointer, as that is all Lisp_Save_Values are used for any more.
With the previous changes, these objects are not primarily used as
save values, so just call them "Misc" rather than "Save".
* src/alloc.c (make_misc_ptr): New function.
(mark_object): Mark Lisp_Misc_Ptr too.
* src/lisp.h (Lisp_Misc_Ptr): New constant.
(struct Lisp_Misc_Ptr): New type.
(make_mint_ptr, mint_ptrp, xmint_pointer):
Use Lisp_Misc_Ptr, not Lisp_Save_Value.
(union Lisp_Misc): Add Lisp_Misc_Ptr.
* src/print.c (print_object): Print Lisp_Misc_Ptr.

1 files changed, 12 insertions, 0 deletions

diff --git a/src/alloc.c b/src/alloc.c
index 1d3ec4fbb8a..6b57c83cc2e 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -3827,6 +3827,14 @@ free_save_value (Lisp_Object save)
   free_misc (save);
 }
 
+Lisp_Object
+make_misc_ptr (void *a)
+{
+  Lisp_Object val = allocate_misc (Lisp_Misc_Ptr);
+  XUNTAG (val, Lisp_Misc, struct Lisp_Misc_Ptr)->pointer = a;
+  return val;
+}
+
 /* Return a Lisp_Misc_Overlay object with specified START, END and PLIST.  */
 
 Lisp_Object
@@ -6692,6 +6700,10 @@ mark_object (Lisp_Object arg)
           mark_save_value (XSAVE_VALUE (obj));
           break;
 
+        case Lisp_Misc_Ptr:
+          XMISCANY (obj)->gcmarkbit = true;
+          break;
+
         case Lisp_Misc_Overlay:
           mark_overlay (XOVERLAY (obj));
           break;