diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2013-04-01 18:54:56 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2013-04-01 18:54:56 -0700 |
| commit | 7216e43b329303146455bb1dace88f8c61b1cd20 (patch) | |
| tree | 900c267701eccb66398b6514816e153fb50b6a26 /src/ccl.c | |
| parent | 4b725a70efa7ed781b6d5e466c8acc246f68f49d (diff) | |
| download | emacs-7216e43b329303146455bb1dace88f8c61b1cd20.tar.gz | |
Prefer < to > in range checks such as 0 <= i && i < N.
This makes it easier to visualize quantities on a number line.
This patch doesn't apply to all such range checks,
only to the range checks affected by the 2013-03-24 change.
This patch reverts most of the 2013-03-24 change.
* alloc.c (xpalloc, Fgarbage_collect):
* ccl.c (ccl_driver, resolve_symbol_ccl_program):
* character.c (string_escape_byte8):
* charset.c (read_hex):
* data.c (cons_to_unsigned):
* dispnew.c (update_frame_1):
* doc.c (Fsubstitute_command_keys):
* doprnt.c (doprnt):
* editfns.c (hi_time, decode_time_components):
* fileio.c (file_offset):
* fns.c (larger_vector, make_hash_table, Fmake_hash_table):
* font.c (font_intern_prop):
* frame.c (x_set_alpha):
* gtkutil.c (get_utf8_string):
* indent.c (check_display_width):
* keymap.c (Fkey_description):
* lisp.h (FIXNUM_OVERFLOW_P, vcopy):
* lread.c (read1):
* minibuf.c (read_minibuf_noninteractive):
* process.c (wait_reading_process_output):
* search.c (Freplace_match):
* window.c (get_phys_cursor_glyph):
* xdisp.c (redisplay_internal):
* xsmfns.c (smc_save_yourself_CB):
Prefer < to > for range checks.
* dispnew.c (sit_for): Don't mishandle NaNs.
This fixes a bug introduced in the 2013-03-24 change.
* editfns.c (decode_time_components): Don't hoist comparison.
This fixes another bug introduced in the 2013-03-24 change.
Diffstat (limited to 'src/ccl.c')
| -rw-r--r-- | src/ccl.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/ccl.c b/src/ccl.c index c3b3f5486c4..8fec18296a6 100644 --- a/src/ccl.c +++ b/src/ccl.c @@ -1668,7 +1668,7 @@ ccl_driver (struct ccl_program *ccl, int *source, int *destination, int src_size } map = XCDR (map); if (! (VECTORP (map) - && ASIZE (map) > 0 + && 0 < ASIZE (map) && INTEGERP (AREF (map, 0)) && XINT (AREF (map, 0)) <= op && op - XINT (AREF (map, 0)) + 1 < ASIZE (map))) @@ -1867,7 +1867,7 @@ resolve_symbol_ccl_program (Lisp_Object ccl) return Qnil; } - if (! (XINT (AREF (result, CCL_HEADER_BUF_MAG)) >= 0 + if (! (0 <= XINT (AREF (result, CCL_HEADER_BUF_MAG)) && ASCENDING_ORDER (0, XINT (AREF (result, CCL_HEADER_EOF)), ASIZE (ccl)))) return Qnil; |