Prefer UINTMAX_WIDTH in print_object
* src/print.c (print_object): Prefer UINTMAX_WIDTH to rolling our own substitute.
This commit is contained in:
@@ -2202,7 +2202,7 @@ print_object (Lisp_Object obj, Lisp_Object printcharfun, bool escapeflag)
|
||||
char buf[max (sizeof "from..to..in " + 2 * INT_STRLEN_BOUND (EMACS_INT),
|
||||
max (sizeof " . #" + INT_STRLEN_BOUND (intmax_t),
|
||||
max ((sizeof " with data 0x"
|
||||
+ (sizeof (uintmax_t) * CHAR_BIT + 4 - 1) / 4),
|
||||
+ (UINTMAX_WIDTH + 4 - 1) / 4),
|
||||
40)))];
|
||||
current_thread->stack_top = NEAR_STACK_TOP (buf);
|
||||
|
||||
|
||||
Reference in New Issue
Block a user