/[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.12 by camm, Wed Sep 7 02:58:02 2005 UTC revision 1.13 by camm, Sun Sep 18 02:48:59 2005 UTC
# Line 292  E: Line 292  E:
292                                  sequence->fixa.fixa_self[i];                                  sequence->fixa.fixa_self[i];
293                          break;                          break;
294    
295                    case aet_int:
296                    case aet_nnint:
297                    case aet_uint:
298                            for (i = s, j = 0;  i < e;  i++, j++)
299                                    UINT_GCL(x, j) = UINT_GCL(sequence, i);
300                            break;
301    
302                  case aet_short:                  case aet_short:
303                  case aet_nnshort:                  case aet_nnshort:
304                  case aet_ushort:                  case aet_ushort:
# Line 457  object seq; Line 464  object seq;
464                                  y->fixa.fixa_self[j] = x->fixa.fixa_self[i];                                  y->fixa.fixa_self[j] = x->fixa.fixa_self[i];
465                          break;                          break;
466    
467                    case aet_int:
468                    case aet_nnint:
469                    case aet_uint:
470                            for (j = k - 1, i = 0;  j >=0;  --j, i++)
471                                    UINT_GCL(y, j) = UINT_GCL(x, i);
472                            break;
473    
474                  case aet_short:                  case aet_short:
475                  case aet_nnshort:                  case aet_nnshort:
476                  case aet_ushort:                  case aet_ushort:
# Line 577  object seq; Line 591  object seq;
591                          }                          }
592                          return(seq);                          return(seq);
593    
594                    case aet_int:
595                    case aet_nnint:
596                    case aet_uint:
597                            for (i = 0, j = k - 1;  i < j;  i++, --j) {
598                                    unsigned int y;
599                                    y = UINT_GCL(x, i);
600                                    UINT_GCL(x, i) = UINT_GCL(x, j);
601                                    UINT_GCL(x, y) = y;
602                            }
603                            return(seq);
604    
605                  case aet_short:                  case aet_short:
606                  case aet_nnshort:                  case aet_nnshort:
607                  case aet_ushort:                  case aet_ushort:

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

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