From: Andrea Corallo <akrl@sdf.org>
Date: Mon, 23 Dec 2019 08:24:51 +0000 (+0100)
Subject: better printing for native compilation unit
X-Git-Tag: emacs-28.0.90~2727^2~894
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=12639610f78f9006b70933bfc6898c1312f95290;p=emacs.git

better printing for native compilation unit
---

diff --git a/src/comp.h b/src/comp.h
index 677ffdc4d7f..36ee5d10e45 100644
--- 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 4d7932a81d7..9013ccc8ccd 100644
--- 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;