From 12639610f78f9006b70933bfc6898c1312f95290 Mon Sep 17 00:00:00 2001
From: Andrea Corallo <akrl@sdf.org>
Date: Mon, 23 Dec 2019 09:24:51 +0100
Subject: [PATCH] better printing for native compilation unit

---
 src/comp.h  | 2 +-
 src/print.c | 3 +--
 2 files changed, 2 insertions(+), 3 deletions(-)

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;
-- 
2.39.5