better printing for native compilation unit

diff --git a/src/comp.h b/src/comp.h
index 677ffdc4d7f3421ea385b48b63816110a295735c..36ee5d10e45aabc4c9a7a5ab1d1567192369d712 100644 (file)
--- a/src/comp.h
+++ b/src/comp.h
@@ -26,7 +26,7 @@ along with GNU Emacs.  If not, see <https://www.gnu.org/licenses/>.  */
 struct Lisp_Native_Comp_Unit
 {
   union vectorlike_header header;
-  /* Original eln file loaded (just for debug purpose). */
+  /* Original eln file loaded. */
   Lisp_Object file;
   /* Analogous to the constant vector but per compilation unit.  */
   Lisp_Object data_vec;

diff --git a/src/print.c b/src/print.c
index 4d7932a81d7b294ca97045ed1f086d3c34606525..9013ccc8ccd74b8cd86b99ae558736e8b7bf94a3 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -1829,8 +1829,7 @@ print_vectorlike (Lisp_Object obj, Lisp_Object printcharfun, bool escapeflag,
     case PVEC_NATIVE_COMP_UNIT:
       {
        print_c_string ("#<native compilation unit ", printcharfun);
-       int len = sprintf (buf, "%d", XNATIVE_COMP_UNIT (obj)->fd);
-       strout (buf, len, len, printcharfun);
+       print_string (XNATIVE_COMP_UNIT (obj)->file, printcharfun);
        printchar ('>', printcharfun);
       }
       break;