scratch/comp-static-data a0bd3b7d32a 02/16: src/alloc.c: Remove unnecessary calls to static_comp_object_p.

[Vibhav Pant]

branch: scratch/comp-static-data
commit a0bd3b7d32a8100af942eeba1e96a2641ed689dd
Author: Vibhav Pant <vibhavp@gmail.com>
Commit: Vibhav Pant <vibhavp@gmail.com>

    src/alloc.c: Remove unnecessary calls to static_comp_object_p.
    
    * src/alloc.c (pin_string, process_mark_stack, mark_object)
    (mark_terminals): Remove calls to check whether obj is a statically
    native compiled literal.
---
 src/alloc.c | 18 ------------------
 1 file changed, 18 deletions(-)

diff --git a/src/alloc.c b/src/alloc.c
index 40f4402bca4..fb6e9dafb3d 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -2643,11 +2643,6 @@ make_formatted_string (char *buf, const char *format, 
...)
 void
 pin_string (Lisp_Object string)
 {
-#ifdef HAVE_STATIC_LISP_GLOBALS
-  if (static_comp_object_p (string))
-    return;
-#endif
-
   eassert (STRINGP (string) && !STRING_MULTIBYTE (string));
   struct Lisp_String *s = XSTRING (string);
   ptrdiff_t size = STRING_BYTES (s);
@@ -7113,10 +7108,6 @@ process_mark_stack (ptrdiff_t base_sp)
   while (mark_stk.sp > base_sp)
     {
       Lisp_Object obj = mark_stack_pop ();
-#ifdef HAVE_STATIC_LISP_GLOBALS
-      if (static_comp_object_p (obj))
-       continue;
-#endif
 
     mark_obj: ;
       void *po = XPNTR (obj);
@@ -7411,10 +7402,6 @@ process_mark_stack (ptrdiff_t base_sp)
 void
 mark_object (Lisp_Object obj)
 {
-#ifdef HAVE_STATIC_LISP_GLOBALS
-  if (static_comp_object_p (obj))
-    return;
-#endif
   ptrdiff_t sp = mark_stk.sp;
   mark_stack_push_value (obj);
   process_mark_stack (sp);
@@ -7455,11 +7442,6 @@ mark_terminals (void)
 bool
 survives_gc_p (Lisp_Object obj)
 {
-#ifdef HAVE_STATIC_LISP_GLOBALS
-  if (static_comp_object_p (obj))
-    return true;
-#endif
-
   bool survives_p;
 
   switch (XTYPE (obj))