diff options
author | Michael Gran <spk121@yahoo.com> | 2009-09-02 06:21:40 -0700 |
---|---|---|
committer | Michael Gran <spk121@yahoo.com> | 2009-09-02 06:28:55 -0700 |
commit | 08ed805879a0c5fc5231522f99c7af782ac3cd8b (patch) | |
tree | 4375db2a26cc8f1305ff40503143e10407a89a7b /libguile/srfi-14.c | |
parent | aff31b0f9946999d9adbf582fabbbd3e523e29e8 (diff) | |
download | guile-08ed805879a0c5fc5231522f99c7af782ac3cd8b.tar.gz |
Unreachable code in charset set operator
* libguile/srfi-14.c (scm_i_charset_set): remove unreachable code
in scm_i_charset_set
Diffstat (limited to 'libguile/srfi-14.c')
-rw-r--r-- | libguile/srfi-14.c | 17 |
1 files changed, 5 insertions, 12 deletions
diff --git a/libguile/srfi-14.c b/libguile/srfi-14.c index e99a7227c..7dc04f1f4 100644 --- a/libguile/srfi-14.c +++ b/libguile/srfi-14.c @@ -86,18 +86,11 @@ scm_i_charset_set (scm_t_char_set *cs, scm_t_wchar n) /* This char is one below the current range. */ if (i > 0 && cs->ranges[i - 1].hi + 1 == n) { - /* It is also one above the previous range, so combine them. */ - cs->ranges[i - 1].hi = cs->ranges[i].hi; - if (i < len - 1) - memmove (cs->ranges + i, cs->ranges + (i + 1), - sizeof (scm_t_char_range) * (len - i - 1)); - cs->ranges = scm_gc_realloc (cs->ranges, - sizeof (scm_t_char_range) * len, - sizeof (scm_t_char_range) * (len - - 1), - "character-set"); - cs->len = len - 1; - return; + /* It is also one above the previous range. */ + /* This is an impossible condition: in the previous + iteration, the test for 'one above the current range' + should already have inserted the character here. */ + abort (); } else { |