/[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.4 by camm, Tue Jun 10 13:28:11 2003 UTC revision 1.5 by mjthomas, Wed Jul 2 23:54:46 2003 UTC
# Line 259  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 416  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 519  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.4  
changed lines
  Added in v.1.5

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