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

Diff of /gcl/o/sequence.d

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

revision 1.3 by camm, Tue Oct 15 19:32:01 2002 UTC revision 1.3.4.1 by camm, Wed Jul 16 02:02:51 2003 UTC
# Line 123  int index; Line 123  int index;
123  E:  E:
124          vs_push(make_fixnum(index));          vs_push(make_fixnum(index));
125          /* FIXME message should indicate out of range */          /* FIXME message should indicate out of range */
126          FEwrong_type_argument(sLpositive_fixnum,vs_head);          Icall_error_handler(sKwrong_type_argument,
127                         make_simple_string("The index, ~S, is too large."),
128                         1,vs_head);
129          return(Cnil);          return(Cnil);
130  }  }
131    
# Line 257  E: Line 259  E:
259                  case aet_short:                  case aet_short:
260                  case aet_ushort:                  case aet_ushort:
261                          for (i = s, j = 0;  i < e;  i++, j++)                          for (i = s, j = 0;  i < e;  i++, j++)
262                                  USHORT(x, j) = USHORT(sequence, i);                                  USHORT_GCL(x, j) = USHORT_GCL(sequence, i);
263                          break;                          break;
264                  case aet_char:                  case aet_char:
265                  case aet_uchar:                  case aet_uchar:
# Line 414  object seq; Line 416  object seq;
416                  case aet_short:                  case aet_short:
417                  case aet_ushort:                  case aet_ushort:
418                          for (j = k - 1, i = 0;  j >=0;  --j, i++)                          for (j = k - 1, i = 0;  j >=0;  --j, i++)
419                                  USHORT(y, j) = USHORT(x, i);                                  USHORT_GCL(y, j) = USHORT_GCL(x, i);
420                          break;                          break;
421                  case aet_char:                  case aet_char:
422                  case aet_uchar:                  case aet_uchar:
# Line 517  object seq; Line 519  object seq;
519                  case aet_ushort:                  case aet_ushort:
520                          for (i = 0, j = k - 1;  i < j;  i++, --j) {                          for (i = 0, j = k - 1;  i < j;  i++, --j) {
521                                  unsigned short y;                                  unsigned short y;
522                                  y = USHORT(x, i);                                  y = USHORT_GCL(x, i);
523                                  USHORT(x, i) = USHORT(x, j);                                  USHORT_GCL(x, i) = USHORT_GCL(x, j);
524                                  USHORT(x, y) = y;                                  USHORT_GCL(x, y) = y;
525                          }                          }
526                          return(seq);                          return(seq);
527                  case aet_char:                  case aet_char:

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.3.4.1

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