diff options
Diffstat (limited to 'src/charset.c')
| -rw-r--r-- | src/charset.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/charset.c b/src/charset.c index cf0122eeceb..c41a6622f00 100644 --- a/src/charset.c +++ b/src/charset.c @@ -819,6 +819,7 @@ TO-CODE, which are CHARSET code points. */) from = CHARSET_MIN_CODE (cs); else { + CHECK_FIXNAT (from_code); from = XFIXNUM (from_code); if (from < CHARSET_MIN_CODE (cs)) from = CHARSET_MIN_CODE (cs); @@ -827,6 +828,7 @@ TO-CODE, which are CHARSET code points. */) to = CHARSET_MAX_CODE (cs); else { + CHECK_FIXNAT (to_code); to = XFIXNUM (to_code); if (to > CHARSET_MAX_CODE (cs)) to = CHARSET_MAX_CODE (cs); @@ -1007,7 +1009,8 @@ usage: (define-charset-internal ...) */) i = CODE_POINT_TO_INDEX (&charset, charset.max_code); if (MAX_CHAR - charset.code_offset < i) - error ("Unsupported max char: %d", charset.max_char); + error ("Unsupported max char: %d + %ud > MAX_CHAR (%d)", + i, charset.max_code, MAX_CHAR); charset.max_char = i + charset.code_offset; i = CODE_POINT_TO_INDEX (&charset, charset.min_code); charset.min_char = i + charset.code_offset; |