mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Unreachable code in charset set operator

Browse source 
* libguile/srfi-14.c (scm_i_charset_set): remove unreachable code
  in scm_i_charset_set
This commit is contained in:
Michael Gran 2009-09-02 06:21:40 -07:00
parent aff31b0f99
commit 08ed805879
1 changed files with 5 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

17
libguile/srfi-14.c
View file

@ -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. */ /* This char is one below the current range. */
if (i > 0 && cs->ranges[i - 1].hi + 1 == n) if (i > 0 && cs->ranges[i - 1].hi + 1 == n)
{ {
/* It is also one above the previous range, so combine them. */ /* It is also one above the previous range. */
cs->ranges[i - 1].hi = cs->ranges[i].hi; /* This is an impossible condition: in the previous
if (i < len - 1) iteration, the test for 'one above the current range'
memmove (cs->ranges + i, cs->ranges + (i + 1), should already have inserted the character here. */
sizeof (scm_t_char_range) * (len - i - 1)); abort ();
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;
} }
else else
{ {