[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 90951f8 2/2: * src/print.c (print_vectorlike): Use `HASH_TABLE_SI
From: |
Stefan Monnier |
Subject: |
master 90951f8 2/2: * src/print.c (print_vectorlike): Use `HASH_TABLE_SIZE` |
Date: |
Mon, 4 Jan 2021 01:00:49 -0500 (EST) |
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))