diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2011-09-21 13:14:57 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2011-09-21 13:14:57 -0700 |
| commit | 45c2afd612c04eb594aad53c7292a93ebfa367be (patch) | |
| tree | 46d9cb6b574bec3d0783c4de9db5f9a15761014e /src/casetab.c | |
| parent | 12b3abd58ba9bfb6c2e8611254a2fa765dc1e492 (diff) | |
| download | emacs-45c2afd612c04eb594aad53c7292a93ebfa367be.tar.gz | |
* casetab.c (set_identity, shuffle): Use lint_assume.
Diffstat (limited to 'src/casetab.c')
| -rw-r--r-- | src/casetab.c | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/src/casetab.c b/src/casetab.c index 6b639147b7b..64e47859d9b 100644 --- a/src/casetab.c +++ b/src/casetab.c @@ -194,8 +194,7 @@ set_identity (Lisp_Object table, Lisp_Object c, Lisp_Object elt) { if (NATNUMP (elt)) { - int from; - int to; + int from, to; if (CONSP (c)) { @@ -204,7 +203,10 @@ set_identity (Lisp_Object table, Lisp_Object c, Lisp_Object elt) } else from = to = XINT (c); - for (; from <= to; from++) + + to++; + lint_assume (to <= MAX_CHAR + 1); + for (; from < to; from++) CHAR_TABLE_SET (table, from, make_number (from)); } } @@ -229,7 +231,9 @@ shuffle (Lisp_Object table, Lisp_Object c, Lisp_Object elt) else from = to = XINT (c); - for (; from <= to; from++) + to++; + lint_assume (to <= MAX_CHAR + 1); + for (; from < to; from++) { Lisp_Object tem = Faref (table, elt); Faset (table, elt, make_number (from)); |