master 90951f8 2/2: * src/print.c (print_vectorlike): Use `HASH_TABLE_SIZE`

[Stefan Monnier]

branch: master
commit 90951f847c04d288121d5cb3b2e03639f060125c
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * src/print.c (print_vectorlike): Use `HASH_TABLE_SIZE`
---
 src/lisp.h  | 4 ++--
 src/print.c | 3 ++-
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/lisp.h b/src/lisp.h
index 0ad788c..5cc735b 100644
--- 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 94a8bcb..14af919 100644
--- 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))