From: Andrea Corallo <akrl@sdf.org>
Date: Sun, 22 Dec 2019 08:52:46 +0000 (+0100)
Subject: add support for native comp unit to type-of
X-Git-Tag: emacs-28.0.90~2727^2~897
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5dae0a9a55101aeb668f90e1fece1ffbab5e7ee2;p=emacs.git

add support for native comp unit to type-of
---

diff --git a/src/data.c b/src/data.c
index fd20ecce696..73ddb021e23 100644
--- a/src/data.c
+++ b/src/data.c
@@ -265,6 +265,8 @@ for example, (type-of 1) returns `integer'.  */)
           }
         case PVEC_MODULE_FUNCTION:
           return Qmodule_function;
+	case PVEC_NATIVE_COMP_UNIT:
+          return Qnative_comp_unit;
         case PVEC_XWIDGET:
           return Qxwidget;
         case PVEC_XWIDGET_VIEW:
@@ -3876,6 +3878,7 @@ syms_of_data (void)
   DEFSYM (Qoverlay, "overlay");
   DEFSYM (Qfinalizer, "finalizer");
   DEFSYM (Qmodule_function, "module-function");
+  DEFSYM (Qnative_comp_unit, "native-comp-unit");
   DEFSYM (Quser_ptr, "user-ptr");
   DEFSYM (Qfloat, "float");
   DEFSYM (Qwindow_configuration, "window-configuration");