* src/print.c (print_vectorlike): Use `HASH_TABLE_SIZE`

diff --git a/src/lisp.h b/src/lisp.h
index 0ad788cff8499409e79a407b3b6bf749a785cc32..5cc735be86cd489367026a8fc77a71ba7c3c6788 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -1478,8 +1478,8 @@ struct Lisp_String
   {
     struct
     {
-      ptrdiff_t size;
-      ptrdiff_t size_byte;
+      ptrdiff_t size;           /* MSB is used as the markbit.  */
+      ptrdiff_t size_byte;      /* Set to -1 for unibyte strings.  */
       INTERVAL intervals;      /* Text properties in this string.  */
       unsigned char *data;
     } s;

diff --git a/src/print.c b/src/print.c
index 94a8bcbf882269757c643c9e817bf91952a94cc4..14af9195475efe3c4d1930ec521884e507c90cff 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -1557,7 +1557,8 @@ print_vectorlike (Lisp_Object obj, Lisp_Object printcharfun, bool escapeflag,
        /* Implement a readable output, e.g.:
          #s(hash-table size 2 test equal data (k1 v1 k2 v2)) */
        /* Always print the size.  */
-       int len = sprintf (buf, "#s(hash-table size %"pD"d", ASIZE (h->next));
+       int len = sprintf (buf, "#s(hash-table size %"pD"d",
+                           HASH_TABLE_SIZE (h));
        strout (buf, len, len, printcharfun);
 
        if (!NILP (h->test.name))