diff options
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/lread.c b/src/lread.c index 8634fd7fc37..3ac5d43a839 100644 --- a/src/lread.c +++ b/src/lread.c @@ -3621,8 +3621,8 @@ read_bool_vector (Lisp_Object readcharfun) invalid_syntax ("#&", readcharfun); break; } - if (INT_MULTIPLY_WRAPV (length, 10, &length) - || INT_ADD_WRAPV (length, c - '0', &length)) + if (ckd_mul (&length, length, 10) + || ckd_add (&length, length, c - '0')) invalid_syntax ("#&", readcharfun); } @@ -3667,8 +3667,8 @@ skip_lazy_string (Lisp_Object readcharfun) UNREAD (c); break; } - if (INT_MULTIPLY_WRAPV (nskip, 10, &nskip) - || INT_ADD_WRAPV (nskip, c - '0', &nskip)) + if (ckd_mul (&nskip, nskip, 10) + || ckd_add (&nskip, nskip, c - '0')) invalid_syntax ("#@", readcharfun); digits++; if (digits == 2 && nskip == 0) @@ -4232,8 +4232,8 @@ read0 (Lisp_Object readcharfun, bool locate_syms) c = READCHAR; if (c < '0' || c > '9') break; - if (INT_MULTIPLY_WRAPV (n, 10, &n) - || INT_ADD_WRAPV (n, c - '0', &n)) + if (ckd_mul (&n, n, 10) + || ckd_add (&n, n, c - '0')) invalid_syntax ("#", readcharfun); } if (c == 'r' || c == 'R') |