269 |
array_allocself(x, FALSE,0); |
array_allocself(x, FALSE,0); |
270 |
switch (sequence->v.v_elttype) { |
switch (sequence->v.v_elttype) { |
271 |
case aet_object: |
case aet_object: |
|
case aet_fix: |
|
|
case aet_sf: |
|
272 |
for (i = s, j = 0; i < e; i++, j++) |
for (i = s, j = 0; i < e; i++, j++) |
273 |
x->v.v_self[j] = sequence->v.v_self[i]; |
x->v.v_self[j] = sequence->v.v_self[i]; |
274 |
break; |
break; |
279 |
sequence->lfa.lfa_self[i]; |
sequence->lfa.lfa_self[i]; |
280 |
break; |
break; |
281 |
|
|
282 |
|
case aet_sf: |
283 |
|
for (i = s, j = 0; i < e; i++, j++) |
284 |
|
x->sfa.sfa_self[j] = |
285 |
|
sequence->sfa.sfa_self[i]; |
286 |
|
break; |
287 |
|
|
288 |
|
case aet_nnfix: |
289 |
|
case aet_fix: |
290 |
|
for (i = s, j = 0; i < e; i++, j++) |
291 |
|
x->fixa.fixa_self[j] = |
292 |
|
sequence->fixa.fixa_self[i]; |
293 |
|
break; |
294 |
|
|
295 |
case aet_short: |
case aet_short: |
296 |
|
case aet_nnshort: |
297 |
case aet_ushort: |
case aet_ushort: |
298 |
for (i = s, j = 0; i < e; i++, j++) |
for (i = s, j = 0; i < e; i++, j++) |
299 |
USHORT_GCL(x, j) = USHORT_GCL(sequence, i); |
USHORT_GCL(x, j) = USHORT_GCL(sequence, i); |
300 |
break; |
break; |
301 |
case aet_char: |
case aet_char: |
302 |
|
case aet_nnchar: |
303 |
case aet_uchar: |
case aet_uchar: |
304 |
for (i = s, j = 0; i < e; i++, j++) |
for (i = s, j = 0; i < e; i++, j++) |
305 |
x->st.st_self[j] = sequence->st.st_self[i]; |
x->st.st_self[j] = sequence->st.st_self[i]; |
437 |
array_allocself(y, FALSE,0); |
array_allocself(y, FALSE,0); |
438 |
switch (x->v.v_elttype) { |
switch (x->v.v_elttype) { |
439 |
case aet_object: |
case aet_object: |
|
case aet_fix: |
|
|
case aet_sf: |
|
440 |
for (j = k - 1, i = 0; j >=0; --j, i++) |
for (j = k - 1, i = 0; j >=0; --j, i++) |
441 |
y->v.v_self[j] = x->v.v_self[i]; |
y->v.v_self[j] = x->v.v_self[i]; |
442 |
break; |
break; |
446 |
y->lfa.lfa_self[j] = x->lfa.lfa_self[i]; |
y->lfa.lfa_self[j] = x->lfa.lfa_self[i]; |
447 |
break; |
break; |
448 |
|
|
449 |
|
case aet_sf: |
450 |
|
for (j = k - 1, i = 0; j >=0; --j, i++) |
451 |
|
y->sfa.sfa_self[j] = x->sfa.sfa_self[i]; |
452 |
|
break; |
453 |
|
|
454 |
|
case aet_fix: |
455 |
|
case aet_nnfix: |
456 |
|
for (j = k - 1, i = 0; j >=0; --j, i++) |
457 |
|
y->fixa.fixa_self[j] = x->fixa.fixa_self[i]; |
458 |
|
break; |
459 |
|
|
460 |
case aet_short: |
case aet_short: |
461 |
|
case aet_nnshort: |
462 |
case aet_ushort: |
case aet_ushort: |
463 |
for (j = k - 1, i = 0; j >=0; --j, i++) |
for (j = k - 1, i = 0; j >=0; --j, i++) |
464 |
USHORT_GCL(y, j) = USHORT_GCL(x, i); |
USHORT_GCL(y, j) = USHORT_GCL(x, i); |
465 |
break; |
break; |
466 |
case aet_char: |
case aet_char: |
467 |
|
case aet_nnchar: |
468 |
case aet_uchar: |
case aet_uchar: |
469 |
goto TYPE_STRING; |
goto TYPE_STRING; |
470 |
} |
} |
542 |
k = x->v.v_fillp; |
k = x->v.v_fillp; |
543 |
switch (x->v.v_elttype) { |
switch (x->v.v_elttype) { |
544 |
case aet_object: |
case aet_object: |
|
case aet_fix: |
|
|
case aet_sf: |
|
545 |
for (i = 0, j = k - 1; i < j; i++, --j) { |
for (i = 0, j = k - 1; i < j; i++, --j) { |
546 |
y = x->v.v_self[i]; |
y = x->v.v_self[i]; |
547 |
x->v.v_self[i] = x->v.v_self[j]; |
x->v.v_self[i] = x->v.v_self[j]; |
558 |
} |
} |
559 |
return(seq); |
return(seq); |
560 |
|
|
561 |
|
case aet_sf: |
562 |
|
for (i = 0, j = k - 1; i < j; i++, --j) { |
563 |
|
shortfloat y; |
564 |
|
y = x->sfa.sfa_self[i]; |
565 |
|
x->sfa.sfa_self[i] = x->sfa.sfa_self[j]; |
566 |
|
x->sfa.sfa_self[j] = y; |
567 |
|
} |
568 |
|
return(seq); |
569 |
|
|
570 |
|
case aet_fix: |
571 |
|
case aet_nnfix: |
572 |
|
for (i = 0, j = k - 1; i < j; i++, --j) { |
573 |
|
fixnum y; |
574 |
|
y = x->fixa.fixa_self[i]; |
575 |
|
x->fixa.fixa_self[i] = x->fixa.fixa_self[j]; |
576 |
|
x->fixa.fixa_self[j] = y; |
577 |
|
} |
578 |
|
return(seq); |
579 |
|
|
580 |
case aet_short: |
case aet_short: |
581 |
|
case aet_nnshort: |
582 |
case aet_ushort: |
case aet_ushort: |
583 |
for (i = 0, j = k - 1; i < j; i++, --j) { |
for (i = 0, j = k - 1; i < j; i++, --j) { |
584 |
unsigned short y; |
unsigned short y; |
588 |
} |
} |
589 |
return(seq); |
return(seq); |
590 |
case aet_char: |
case aet_char: |
591 |
|
case aet_nnchar: |
592 |
case aet_uchar: |
case aet_uchar: |
593 |
goto TYPE_STRING; |
goto TYPE_STRING; |
594 |
} |
} |