/[gcl]/gcl/o/string.d
ViewVC logotype

Diff of /gcl/o/string.d

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by camm, Fri Oct 4 03:30:34 2002 UTC revision 1.6 by camm, Sat Oct 5 18:34:15 2002 UTC
# Line 211  object x; Line 211  object x;
211          check_type_string(&s);          check_type_string(&s);
212          if (type_of(i) != t_fixnum)          if (type_of(i) != t_fixnum)
213                  illegal_index(s, i);                  illegal_index(s, i);
214          if ((j = fix(i)) < 0 /*|| j >= s->st.st_fillp*/)          if ((j = fix(i)) < 0 || j >= s->st.st_dim)
215                  illegal_index(s, i);                  illegal_index(s, i);
216          @(return `code_char(s->ust.ust_self[j])`)          @(return `code_char(s->ust.ust_self[j])`)
217  @)  @)
# Line 225  siLchar_set() Line 225  siLchar_set()
225          check_type_string(&vs_base[0]);          check_type_string(&vs_base[0]);
226          if (type_of(vs_base[1]) != t_fixnum)          if (type_of(vs_base[1]) != t_fixnum)
227                  illegal_index(vs_base[0], vs_base[1]);                  illegal_index(vs_base[0], vs_base[1]);
228          if ((j = fix(vs_base[1])) < 0 /* || j >= vs_base[0]->st.st_fillp */)          if ((j = fix(vs_base[1])) < 0 || j >= vs_base[0]->st.st_dim)
229                  illegal_index(vs_base[0], vs_base[1]);                  illegal_index(vs_base[0], vs_base[1]);
230          check_type_character(&vs_base[2]);          check_type_character(&vs_base[2]);
231          vs_base[0]->st.st_self[j] = char_code(vs_base[2]);          vs_base[0]->st.st_self[j] = char_code(vs_base[2]);
# Line 435  object char_bag; Line 435  object char_bag;
435    
436          case t_vector:          case t_vector:
437                  for (i = 0, f = char_bag->v.v_fillp;  i < f;  i++) {                  for (i = 0, f = char_bag->v.v_fillp;  i < f;  i++) {
438                          if (type_of(char_bag->v.v_self[i]) != t_character                          if (type_of(char_bag->v.v_self[i]) == t_character
439                            && c == char_code(char_bag->v.v_self[i]))                            && c == char_code(char_bag->v.v_self[i]))
440                                  return(TRUE);                                  return(TRUE);
441                  }                  }

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26