352 |
#define LCAST(a) (*a) |
#define LCAST(a) (*a) |
353 |
/* #endif */ |
/* #endif */ |
354 |
|
|
355 |
object |
static object c_apply_n0(object (*)(),object *,object,object) __attribute__ ((noinline)); |
356 |
c_apply_n(object (*fn)(), int n, object *x) |
static object |
357 |
{object res=Cnil; |
c_apply_n0(object (*fn)(),object *x,object y,object z) { |
358 |
#ifdef DO_FUNLINK_DEBUG_1 |
return fn(); |
359 |
fprintf ( stderr, "c_apply_n: n %d, x %x START\n", n, x ); |
} |
360 |
#endif |
|
361 |
switch(n){ |
static object c_apply_n1(object (*)(),object *,object,object) __attribute__ ((noinline)); |
362 |
case 0: res=LCAST(fn)();break; |
static object |
363 |
case 1: res=LCAST(fn)(x[0]);break; |
c_apply_n1(object (*fn)(),object *x,object y,object z) { |
364 |
case 2: res=LCAST(fn)(x[0],x[1]);break; |
return fn(x[0]); |
365 |
case 3: res=LCAST(fn)(x[0],x[1],x[2]);break; |
} |
366 |
case 4: res=LCAST(fn)(x[0],x[1],x[2],x[3]);break; |
|
367 |
case 5: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4]);break; |
static object c_apply_n2(object (*)(),object *,object,object) __attribute__ ((noinline)); |
368 |
case 6: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5]);break; |
static object |
369 |
case 7: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6]);break; |
c_apply_n2(object (*fn)(),object *x,object y,object z) { |
370 |
case 8: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7]);break; |
return fn(x[0],x[1]); |
371 |
case 9: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
} |
372 |
x[8]);break; |
|
373 |
case 10: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
static object c_apply_n3(object (*)(),object *,object,object) __attribute__ ((noinline)); |
374 |
x[8],x[9]);break; |
static object |
375 |
case 11: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
c_apply_n3(object (*fn)(),object *x,object y,object z) { |
376 |
x[8],x[9],x[10]);break; |
return fn(x[0],x[1],x[2]); |
377 |
case 12: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
} |
378 |
x[8],x[9],x[10],x[11]);break; |
|
379 |
case 13: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
static object c_apply_n4(object (*)(),object *,object,object) __attribute__ ((noinline)); |
380 |
x[8],x[9],x[10],x[11],x[12]);break; |
static object |
381 |
case 14: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
c_apply_n4(object (*fn)(),object *x,object y,object z) { |
382 |
x[8],x[9],x[10],x[11],x[12],x[13]);break; |
|
383 |
case 15: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
return fn(x[0],x[1],x[2],x[3]); |
384 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14]);break; |
|
385 |
case 16: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
} |
386 |
|
|
387 |
|
static object c_apply_n5(object (*)(),object *,object,object) __attribute__ ((noinline)); |
388 |
|
static object |
389 |
|
c_apply_n5(object (*fn)(),object *x,object y,object z) { |
390 |
|
|
391 |
|
return fn(x[0],x[1],x[2],x[3],x[4]); |
392 |
|
|
393 |
|
} |
394 |
|
|
395 |
|
static object c_apply_n6(object (*)(),object *,object,object) __attribute__ ((noinline)); |
396 |
|
static object |
397 |
|
c_apply_n6(object (*fn)(),object *x,object y,object z) { |
398 |
|
|
399 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5]); |
400 |
|
|
401 |
|
} |
402 |
|
|
403 |
|
static object c_apply_n7(object (*)(),object *,object,object) __attribute__ ((noinline)); |
404 |
|
static object |
405 |
|
c_apply_n7(object (*fn)(),object *x,object y,object z) { |
406 |
|
|
407 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6]); |
408 |
|
|
409 |
|
} |
410 |
|
|
411 |
|
static object c_apply_n8(object (*)(),object *,object,object) __attribute__ ((noinline)); |
412 |
|
static object |
413 |
|
c_apply_n8(object (*fn)(),object *x,object y,object z) { |
414 |
|
|
415 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7]); |
416 |
|
|
417 |
|
} |
418 |
|
|
419 |
|
static object c_apply_n9(object (*)(),object *,object,object) __attribute__ ((noinline)); |
420 |
|
static object |
421 |
|
c_apply_n9(object (*fn)(),object *x,object y,object z) { |
422 |
|
|
423 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
424 |
|
x[8]); |
425 |
|
|
426 |
|
} |
427 |
|
|
428 |
|
static object c_apply_n10(object (*)(),object *,object,object) __attribute__ ((noinline)); |
429 |
|
static object |
430 |
|
c_apply_n10(object (*fn)(),object *x,object y,object z) { |
431 |
|
|
432 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
433 |
|
x[8],x[9]); |
434 |
|
|
435 |
|
} |
436 |
|
|
437 |
|
static object c_apply_n11(object (*)(),object *,object,object) __attribute__ ((noinline)); |
438 |
|
static object |
439 |
|
c_apply_n11(object (*fn)(),object *x,object y,object z) { |
440 |
|
|
441 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
442 |
|
x[8],x[9],x[10]); |
443 |
|
|
444 |
|
} |
445 |
|
|
446 |
|
static object c_apply_n12(object (*)(),object *,object,object) __attribute__ ((noinline)); |
447 |
|
static object |
448 |
|
c_apply_n12(object (*fn)(),object *x,object y,object z) { |
449 |
|
|
450 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
451 |
|
x[8],x[9],x[10],x[11]); |
452 |
|
|
453 |
|
} |
454 |
|
|
455 |
|
static object c_apply_n13(object (*)(),object *,object,object) __attribute__ ((noinline)); |
456 |
|
static object |
457 |
|
c_apply_n13(object (*fn)(),object *x,object y,object z) { |
458 |
|
|
459 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
460 |
|
x[8],x[9],x[10],x[11],x[12]); |
461 |
|
|
462 |
|
} |
463 |
|
|
464 |
|
static object c_apply_n14(object (*)(),object *,object,object) __attribute__ ((noinline)); |
465 |
|
static object |
466 |
|
c_apply_n14(object (*fn)(),object *x,object y,object z) { |
467 |
|
|
468 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
469 |
|
x[8],x[9],x[10],x[11],x[12],x[13]); |
470 |
|
|
471 |
|
} |
472 |
|
|
473 |
|
static object c_apply_n15(object (*)(),object *,object,object) __attribute__ ((noinline)); |
474 |
|
static object |
475 |
|
c_apply_n15(object (*fn)(),object *x,object y,object z) { |
476 |
|
|
477 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
478 |
|
x[8],x[9],x[10],x[11],x[12],x[13],x[14]); |
479 |
|
|
480 |
|
} |
481 |
|
|
482 |
|
static object c_apply_n16(object (*)(),object *,object,object) __attribute__ ((noinline)); |
483 |
|
static object |
484 |
|
c_apply_n16(object (*fn)(),object *x,object y,object z) { |
485 |
|
|
486 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
487 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
488 |
x[15]);break; |
x[15]); |
489 |
case 17: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
490 |
|
} |
491 |
|
|
492 |
|
static object c_apply_n17(object (*)(),object *,object,object) __attribute__ ((noinline)); |
493 |
|
static object |
494 |
|
c_apply_n17(object (*fn)(),object *x,object y,object z) { |
495 |
|
|
496 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
497 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
498 |
x[15],x[16]);break; |
x[15],x[16]); |
499 |
case 18: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
500 |
|
} |
501 |
|
|
502 |
|
static object c_apply_n18(object (*)(),object *,object,object) __attribute__ ((noinline)); |
503 |
|
static object |
504 |
|
c_apply_n18(object (*fn)(),object *x,object y,object z) { |
505 |
|
|
506 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
507 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
508 |
x[15],x[16],x[17]);break; |
x[15],x[16],x[17]); |
509 |
case 19: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
510 |
|
} |
511 |
|
|
512 |
|
static object c_apply_n19(object (*)(),object *,object,object) __attribute__ ((noinline)); |
513 |
|
static object |
514 |
|
c_apply_n19(object (*fn)(),object *x,object y,object z) { |
515 |
|
|
516 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
517 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
518 |
x[15],x[16],x[17],x[18]);break; |
x[15],x[16],x[17],x[18]); |
519 |
case 20: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
520 |
|
} |
521 |
|
|
522 |
|
static object c_apply_n20(object (*)(),object *,object,object) __attribute__ ((noinline)); |
523 |
|
static object |
524 |
|
c_apply_n20(object (*fn)(),object *x,object y,object z) { |
525 |
|
|
526 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
527 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
528 |
x[15],x[16],x[17],x[18],x[19]);break; |
x[15],x[16],x[17],x[18],x[19]); |
529 |
case 21: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
530 |
|
} |
531 |
|
|
532 |
|
static object c_apply_n21(object (*)(),object *,object,object) __attribute__ ((noinline)); |
533 |
|
static object |
534 |
|
c_apply_n21(object (*fn)(),object *x,object y,object z) { |
535 |
|
|
536 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
537 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
538 |
x[15],x[16],x[17],x[18],x[19],x[20]);break; |
x[15],x[16],x[17],x[18],x[19],x[20]); |
539 |
case 22: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
540 |
|
} |
541 |
|
|
542 |
|
static object c_apply_n22(object (*)(),object *,object,object) __attribute__ ((noinline)); |
543 |
|
static object |
544 |
|
c_apply_n22(object (*fn)(),object *x,object y,object z) { |
545 |
|
|
546 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
547 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
548 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21]);break; |
x[15],x[16],x[17],x[18],x[19],x[20],x[21]); |
549 |
case 23: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
550 |
|
} |
551 |
|
|
552 |
|
static object c_apply_n23(object (*)(),object *,object,object) __attribute__ ((noinline)); |
553 |
|
static object |
554 |
|
c_apply_n23(object (*fn)(),object *x,object y,object z) { |
555 |
|
|
556 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
557 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
558 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
559 |
x[22]);break; |
x[22]); |
560 |
case 24: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
561 |
|
} |
562 |
|
|
563 |
|
static object c_apply_n24(object (*)(),object *,object,object) __attribute__ ((noinline)); |
564 |
|
static object |
565 |
|
c_apply_n24(object (*fn)(),object *x,object y,object z) { |
566 |
|
|
567 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
568 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
569 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
570 |
x[22],x[23]);break; |
x[22],x[23]); |
571 |
case 25: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
572 |
|
} |
573 |
|
|
574 |
|
static object c_apply_n25(object (*)(),object *,object,object) __attribute__ ((noinline)); |
575 |
|
static object |
576 |
|
c_apply_n25(object (*fn)(),object *x,object y,object z) { |
577 |
|
|
578 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
579 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
580 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
581 |
x[22],x[23],x[24]);break; |
x[22],x[23],x[24]); |
582 |
case 26: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
583 |
|
} |
584 |
|
|
585 |
|
static object c_apply_n26(object (*)(),object *,object,object) __attribute__ ((noinline)); |
586 |
|
static object |
587 |
|
c_apply_n26(object (*fn)(),object *x,object y,object z) { |
588 |
|
|
589 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
590 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
591 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
592 |
x[22],x[23],x[24],x[25]);break; |
x[22],x[23],x[24],x[25]); |
593 |
case 27: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
594 |
|
} |
595 |
|
|
596 |
|
static object c_apply_n27(object (*)(),object *,object,object) __attribute__ ((noinline)); |
597 |
|
static object |
598 |
|
c_apply_n27(object (*fn)(),object *x,object y,object z) { |
599 |
|
|
600 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
601 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
602 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
603 |
x[22],x[23],x[24],x[25],x[26]);break; |
x[22],x[23],x[24],x[25],x[26]); |
604 |
case 28: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
605 |
|
} |
606 |
|
|
607 |
|
static object c_apply_n28(object (*)(),object *,object,object) __attribute__ ((noinline)); |
608 |
|
static object |
609 |
|
c_apply_n28(object (*fn)(),object *x,object y,object z) { |
610 |
|
|
611 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
612 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
613 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
614 |
x[22],x[23],x[24],x[25],x[26],x[27]);break; |
x[22],x[23],x[24],x[25],x[26],x[27]); |
615 |
case 29: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
616 |
|
} |
617 |
|
|
618 |
|
static object c_apply_n29(object (*)(),object *,object,object) __attribute__ ((noinline)); |
619 |
|
static object |
620 |
|
c_apply_n29(object (*fn)(),object *x,object y,object z) { |
621 |
|
|
622 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
623 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
624 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
625 |
x[22],x[23],x[24],x[25],x[26],x[27],x[28]);break; |
x[22],x[23],x[24],x[25],x[26],x[27],x[28]); |
626 |
case 30: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
627 |
|
} |
628 |
|
|
629 |
|
static object c_apply_n30(object (*)(),object *,object,object) __attribute__ ((noinline)); |
630 |
|
static object |
631 |
|
c_apply_n30(object (*fn)(),object *x,object y,object z) { |
632 |
|
|
633 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
634 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
635 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
636 |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
637 |
x[29]);break; |
x[29]); |
638 |
case 31: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
639 |
|
} |
640 |
|
|
641 |
|
static object c_apply_n31(object (*)(),object *,object,object) __attribute__ ((noinline)); |
642 |
|
static object |
643 |
|
c_apply_n31(object (*fn)(),object *x,object y,object z) { |
644 |
|
|
645 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
646 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
647 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
648 |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
649 |
x[29],x[30]);break; |
x[29],x[30]); |
650 |
case 32: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
651 |
|
} |
652 |
|
|
653 |
|
static object c_apply_n32(object (*)(),object *,object,object) __attribute__ ((noinline)); |
654 |
|
static object |
655 |
|
c_apply_n32(object (*fn)(),object *x,object y,object z) { |
656 |
|
|
657 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
658 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
659 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
660 |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
661 |
x[29],x[30],x[31]);break; |
x[29],x[30],x[31]); |
662 |
case 33: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
663 |
|
} |
664 |
|
|
665 |
|
static object c_apply_n33(object (*)(),object *,object,object) __attribute__ ((noinline)); |
666 |
|
static object |
667 |
|
c_apply_n33(object (*fn)(),object *x,object y,object z) { |
668 |
|
|
669 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
670 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
671 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
672 |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
673 |
x[29],x[30],x[31],x[32]);break; |
x[29],x[30],x[31],x[32]); |
674 |
case 34: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
675 |
|
} |
676 |
|
|
677 |
|
static object c_apply_n34(object (*)(),object *,object,object) __attribute__ ((noinline)); |
678 |
|
static object |
679 |
|
c_apply_n34(object (*fn)(),object *x,object y,object z) { |
680 |
|
|
681 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
682 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
683 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
684 |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
685 |
x[29],x[30],x[31],x[32],x[33]);break; |
x[29],x[30],x[31],x[32],x[33]); |
686 |
case 35: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
687 |
|
} |
688 |
|
|
689 |
|
static object c_apply_n35(object (*)(),object *,object,object) __attribute__ ((noinline)); |
690 |
|
static object |
691 |
|
c_apply_n35(object (*fn)(),object *x,object y,object z) { |
692 |
|
|
693 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
694 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
695 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
696 |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
697 |
x[29],x[30],x[31],x[32],x[33],x[34]);break; |
x[29],x[30],x[31],x[32],x[33],x[34]); |
698 |
case 36: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
699 |
|
} |
700 |
|
|
701 |
|
static object c_apply_n36(object (*)(),object *,object,object) __attribute__ ((noinline)); |
702 |
|
static object |
703 |
|
c_apply_n36(object (*fn)(),object *x,object y,object z) { |
704 |
|
|
705 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
706 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
707 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
708 |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
709 |
x[29],x[30],x[31],x[32],x[33],x[34],x[35]);break; |
x[29],x[30],x[31],x[32],x[33],x[34],x[35]); |
710 |
case 37: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
711 |
|
} |
712 |
|
|
713 |
|
static object c_apply_n37(object (*)(),object *,object,object) __attribute__ ((noinline)); |
714 |
|
static object |
715 |
|
c_apply_n37(object (*fn)(),object *x,object y,object z) { |
716 |
|
|
717 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
718 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
719 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
720 |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
721 |
x[29],x[30],x[31],x[32],x[33],x[34],x[35], |
x[29],x[30],x[31],x[32],x[33],x[34],x[35], |
722 |
x[36]);break; |
x[36]); |
723 |
case 38: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
724 |
|
} |
725 |
|
|
726 |
|
static object c_apply_n38(object (*)(),object *,object,object) __attribute__ ((noinline)); |
727 |
|
static object |
728 |
|
c_apply_n38(object (*fn)(),object *x,object y,object z) { |
729 |
|
|
730 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
731 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
732 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
733 |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
734 |
x[29],x[30],x[31],x[32],x[33],x[34],x[35], |
x[29],x[30],x[31],x[32],x[33],x[34],x[35], |
735 |
x[36],x[37]);break; |
x[36],x[37]); |
736 |
case 39: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
737 |
|
} |
738 |
|
|
739 |
|
static object c_apply_n39(object (*)(),object *,object,object) __attribute__ ((noinline)); |
740 |
|
static object |
741 |
|
c_apply_n39(object (*fn)(),object *x,object y,object z) { |
742 |
|
|
743 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
744 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
745 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
746 |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
747 |
x[29],x[30],x[31],x[32],x[33],x[34],x[35], |
x[29],x[30],x[31],x[32],x[33],x[34],x[35], |
748 |
x[36],x[37],x[38]);break; |
x[36],x[37],x[38]); |
749 |
case 40: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
750 |
|
} |
751 |
|
|
752 |
|
static object c_apply_n40(object (*)(),object *,object,object) __attribute__ ((noinline)); |
753 |
|
static object |
754 |
|
c_apply_n40(object (*fn)(),object *x,object y,object z) { |
755 |
|
|
756 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
757 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
758 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
759 |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
760 |
x[29],x[30],x[31],x[32],x[33],x[34],x[35], |
x[29],x[30],x[31],x[32],x[33],x[34],x[35], |
761 |
x[36],x[37],x[38],x[39]);break; |
x[36],x[37],x[38],x[39]); |
762 |
case 41: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
763 |
|
} |
764 |
|
|
765 |
|
static object c_apply_n41(object (*)(),object *,object,object) __attribute__ ((noinline)); |
766 |
|
static object |
767 |
|
c_apply_n41(object (*fn)(),object *x,object y,object z) { |
768 |
|
|
769 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
770 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
771 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
772 |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
773 |
x[29],x[30],x[31],x[32],x[33],x[34],x[35], |
x[29],x[30],x[31],x[32],x[33],x[34],x[35], |
774 |
x[36],x[37],x[38],x[39],x[40]);break; |
x[36],x[37],x[38],x[39],x[40]); |
775 |
case 42: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
776 |
|
} |
777 |
|
|
778 |
|
static object c_apply_n42(object (*)(),object *,object,object) __attribute__ ((noinline)); |
779 |
|
static object |
780 |
|
c_apply_n42(object (*fn)(),object *x,object y,object z) { |
781 |
|
|
782 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
783 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
784 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
785 |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
786 |
x[29],x[30],x[31],x[32],x[33],x[34],x[35], |
x[29],x[30],x[31],x[32],x[33],x[34],x[35], |
787 |
x[36],x[37],x[38],x[39],x[40],x[41]);break; |
x[36],x[37],x[38],x[39],x[40],x[41]); |
788 |
case 43: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
789 |
|
} |
790 |
|
|
791 |
|
static object c_apply_n43(object (*)(),object *,object,object) __attribute__ ((noinline)); |
792 |
|
static object |
793 |
|
c_apply_n43(object (*fn)(),object *x,object y,object z) { |
794 |
|
|
795 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
796 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
797 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
798 |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
799 |
x[29],x[30],x[31],x[32],x[33],x[34],x[35], |
x[29],x[30],x[31],x[32],x[33],x[34],x[35], |
800 |
x[36],x[37],x[38],x[39],x[40],x[41],x[42]);break; |
x[36],x[37],x[38],x[39],x[40],x[41],x[42]); |
801 |
case 44: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
802 |
|
} |
803 |
|
|
804 |
|
static object c_apply_n44(object (*)(),object *,object,object) __attribute__ ((noinline)); |
805 |
|
static object |
806 |
|
c_apply_n44(object (*fn)(),object *x,object y,object z) { |
807 |
|
|
808 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
809 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
810 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
811 |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
812 |
x[29],x[30],x[31],x[32],x[33],x[34],x[35], |
x[29],x[30],x[31],x[32],x[33],x[34],x[35], |
813 |
x[36],x[37],x[38],x[39],x[40],x[41],x[42], |
x[36],x[37],x[38],x[39],x[40],x[41],x[42], |
814 |
x[43]);break; |
x[43]); |
815 |
case 45: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
816 |
|
} |
817 |
|
|
818 |
|
static object c_apply_n45(object (*)(),object *,object,object) __attribute__ ((noinline)); |
819 |
|
static object |
820 |
|
c_apply_n45(object (*fn)(),object *x,object y,object z) { |
821 |
|
|
822 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
823 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
824 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
825 |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
826 |
x[29],x[30],x[31],x[32],x[33],x[34],x[35], |
x[29],x[30],x[31],x[32],x[33],x[34],x[35], |
827 |
x[36],x[37],x[38],x[39],x[40],x[41],x[42], |
x[36],x[37],x[38],x[39],x[40],x[41],x[42], |
828 |
x[43],x[44]);break; |
x[43],x[44]); |
829 |
case 46: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
830 |
|
} |
831 |
|
|
832 |
|
static object c_apply_n46(object (*)(),object *,object,object) __attribute__ ((noinline)); |
833 |
|
static object |
834 |
|
c_apply_n46(object (*fn)(),object *x,object y,object z) { |
835 |
|
|
836 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
837 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
838 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
839 |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
840 |
x[29],x[30],x[31],x[32],x[33],x[34],x[35], |
x[29],x[30],x[31],x[32],x[33],x[34],x[35], |
841 |
x[36],x[37],x[38],x[39],x[40],x[41],x[42], |
x[36],x[37],x[38],x[39],x[40],x[41],x[42], |
842 |
x[43],x[44],x[45]);break; |
x[43],x[44],x[45]); |
843 |
case 47: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
844 |
|
} |
845 |
|
|
846 |
|
static object c_apply_n47(object (*)(),object *,object,object) __attribute__ ((noinline)); |
847 |
|
static object |
848 |
|
c_apply_n47(object (*fn)(),object *x,object y,object z) { |
849 |
|
|
850 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
851 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
852 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
853 |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
854 |
x[29],x[30],x[31],x[32],x[33],x[34],x[35], |
x[29],x[30],x[31],x[32],x[33],x[34],x[35], |
855 |
x[36],x[37],x[38],x[39],x[40],x[41],x[42], |
x[36],x[37],x[38],x[39],x[40],x[41],x[42], |
856 |
x[43],x[44],x[45],x[46]);break; |
x[43],x[44],x[45],x[46]); |
857 |
case 48: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
858 |
|
} |
859 |
|
|
860 |
|
static object c_apply_n48(object (*)(),object *,object,object) __attribute__ ((noinline)); |
861 |
|
static object |
862 |
|
c_apply_n48(object (*fn)(),object *x,object y,object z) { |
863 |
|
|
864 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
865 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
866 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
867 |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
868 |
x[29],x[30],x[31],x[32],x[33],x[34],x[35], |
x[29],x[30],x[31],x[32],x[33],x[34],x[35], |
869 |
x[36],x[37],x[38],x[39],x[40],x[41],x[42], |
x[36],x[37],x[38],x[39],x[40],x[41],x[42], |
870 |
x[43],x[44],x[45],x[46],x[47]);break; |
x[43],x[44],x[45],x[46],x[47]); |
871 |
case 49: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
872 |
|
} |
873 |
|
|
874 |
|
static object c_apply_n49(object (*)(),object *,object,object) __attribute__ ((noinline)); |
875 |
|
static object |
876 |
|
c_apply_n49(object (*fn)(),object *x,object y,object z) { |
877 |
|
|
878 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
879 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
880 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
881 |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
882 |
x[29],x[30],x[31],x[32],x[33],x[34],x[35], |
x[29],x[30],x[31],x[32],x[33],x[34],x[35], |
883 |
x[36],x[37],x[38],x[39],x[40],x[41],x[42], |
x[36],x[37],x[38],x[39],x[40],x[41],x[42], |
884 |
x[43],x[44],x[45],x[46],x[47],x[48]);break; |
x[43],x[44],x[45],x[46],x[47],x[48]); |
885 |
case 50: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
886 |
|
} |
887 |
|
|
888 |
|
static object c_apply_n50(object (*)(),object *,object,object) __attribute__ ((noinline)); |
889 |
|
static object |
890 |
|
c_apply_n50(object (*fn)(),object *x,object y,object z) { |
891 |
|
|
892 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
893 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
894 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
895 |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
896 |
x[29],x[30],x[31],x[32],x[33],x[34],x[35], |
x[29],x[30],x[31],x[32],x[33],x[34],x[35], |
897 |
x[36],x[37],x[38],x[39],x[40],x[41],x[42], |
x[36],x[37],x[38],x[39],x[40],x[41],x[42], |
898 |
x[43],x[44],x[45],x[46],x[47],x[48],x[49]);break; |
x[43],x[44],x[45],x[46],x[47],x[48],x[49]); |
899 |
case 51: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
900 |
|
} |
901 |
|
|
902 |
|
static object c_apply_n51(object (*)(),object *,object,object) __attribute__ ((noinline)); |
903 |
|
static object |
904 |
|
c_apply_n51(object (*fn)(),object *x,object y,object z) { |
905 |
|
|
906 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
907 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
908 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
909 |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
910 |
x[29],x[30],x[31],x[32],x[33],x[34],x[35], |
x[29],x[30],x[31],x[32],x[33],x[34],x[35], |
911 |
x[36],x[37],x[38],x[39],x[40],x[41],x[42], |
x[36],x[37],x[38],x[39],x[40],x[41],x[42], |
912 |
x[43],x[44],x[45],x[46],x[47],x[48],x[49], |
x[43],x[44],x[45],x[46],x[47],x[48],x[49], |
913 |
x[50]);break; |
x[50]); |
914 |
case 52: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
915 |
|
} |
916 |
|
|
917 |
|
static object c_apply_n52(object (*)(),object *,object,object) __attribute__ ((noinline)); |
918 |
|
static object |
919 |
|
c_apply_n52(object (*fn)(),object *x,object y,object z) { |
920 |
|
|
921 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
922 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
923 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
924 |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
925 |
x[29],x[30],x[31],x[32],x[33],x[34],x[35], |
x[29],x[30],x[31],x[32],x[33],x[34],x[35], |
926 |
x[36],x[37],x[38],x[39],x[40],x[41],x[42], |
x[36],x[37],x[38],x[39],x[40],x[41],x[42], |
927 |
x[43],x[44],x[45],x[46],x[47],x[48],x[49], |
x[43],x[44],x[45],x[46],x[47],x[48],x[49], |
928 |
x[50],x[51]);break; |
x[50],x[51]); |
929 |
case 53: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
930 |
|
} |
931 |
|
|
932 |
|
static object c_apply_n53(object (*)(),object *,object,object) __attribute__ ((noinline)); |
933 |
|
static object |
934 |
|
c_apply_n53(object (*fn)(),object *x,object y,object z) { |
935 |
|
|
936 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
937 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
938 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
939 |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
940 |
x[29],x[30],x[31],x[32],x[33],x[34],x[35], |
x[29],x[30],x[31],x[32],x[33],x[34],x[35], |
941 |
x[36],x[37],x[38],x[39],x[40],x[41],x[42], |
x[36],x[37],x[38],x[39],x[40],x[41],x[42], |
942 |
x[43],x[44],x[45],x[46],x[47],x[48],x[49], |
x[43],x[44],x[45],x[46],x[47],x[48],x[49], |
943 |
x[50],x[51],x[52]);break; |
x[50],x[51],x[52]); |
944 |
case 54: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
945 |
|
} |
946 |
|
|
947 |
|
static object c_apply_n54(object (*)(),object *,object,object) __attribute__ ((noinline)); |
948 |
|
static object |
949 |
|
c_apply_n54(object (*fn)(),object *x,object y,object z) { |
950 |
|
|
951 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
952 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
953 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
954 |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
955 |
x[29],x[30],x[31],x[32],x[33],x[34],x[35], |
x[29],x[30],x[31],x[32],x[33],x[34],x[35], |
956 |
x[36],x[37],x[38],x[39],x[40],x[41],x[42], |
x[36],x[37],x[38],x[39],x[40],x[41],x[42], |
957 |
x[43],x[44],x[45],x[46],x[47],x[48],x[49], |
x[43],x[44],x[45],x[46],x[47],x[48],x[49], |
958 |
x[50],x[51],x[52],x[53]);break; |
x[50],x[51],x[52],x[53]); |
959 |
case 55: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
960 |
|
} |
961 |
|
|
962 |
|
static object c_apply_n55(object (*)(),object *,object,object) __attribute__ ((noinline)); |
963 |
|
static object |
964 |
|
c_apply_n55(object (*fn)(),object *x,object y,object z) { |
965 |
|
|
966 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
967 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
968 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
969 |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
970 |
x[29],x[30],x[31],x[32],x[33],x[34],x[35], |
x[29],x[30],x[31],x[32],x[33],x[34],x[35], |
971 |
x[36],x[37],x[38],x[39],x[40],x[41],x[42], |
x[36],x[37],x[38],x[39],x[40],x[41],x[42], |
972 |
x[43],x[44],x[45],x[46],x[47],x[48],x[49], |
x[43],x[44],x[45],x[46],x[47],x[48],x[49], |
973 |
x[50],x[51],x[52],x[53],x[54]);break; |
x[50],x[51],x[52],x[53],x[54]); |
974 |
case 56: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
975 |
|
} |
976 |
|
|
977 |
|
static object c_apply_n56(object (*)(),object *,object,object) __attribute__ ((noinline)); |
978 |
|
static object |
979 |
|
c_apply_n56(object (*fn)(),object *x,object y,object z) { |
980 |
|
|
981 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
982 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
983 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
984 |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
985 |
x[29],x[30],x[31],x[32],x[33],x[34],x[35], |
x[29],x[30],x[31],x[32],x[33],x[34],x[35], |
986 |
x[36],x[37],x[38],x[39],x[40],x[41],x[42], |
x[36],x[37],x[38],x[39],x[40],x[41],x[42], |
987 |
x[43],x[44],x[45],x[46],x[47],x[48],x[49], |
x[43],x[44],x[45],x[46],x[47],x[48],x[49], |
988 |
x[50],x[51],x[52],x[53],x[54],x[55]);break; |
x[50],x[51],x[52],x[53],x[54],x[55]); |
989 |
case 57: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
990 |
|
} |
991 |
|
|
992 |
|
static object c_apply_n57(object (*)(),object *,object,object) __attribute__ ((noinline)); |
993 |
|
static object |
994 |
|
c_apply_n57(object (*fn)(),object *x,object y,object z) { |
995 |
|
|
996 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
997 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
998 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
999 |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
1000 |
x[29],x[30],x[31],x[32],x[33],x[34],x[35], |
x[29],x[30],x[31],x[32],x[33],x[34],x[35], |
1001 |
x[36],x[37],x[38],x[39],x[40],x[41],x[42], |
x[36],x[37],x[38],x[39],x[40],x[41],x[42], |
1002 |
x[43],x[44],x[45],x[46],x[47],x[48],x[49], |
x[43],x[44],x[45],x[46],x[47],x[48],x[49], |
1003 |
x[50],x[51],x[52],x[53],x[54],x[55],x[56]);break; |
x[50],x[51],x[52],x[53],x[54],x[55],x[56]); |
1004 |
case 58: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
1005 |
|
} |
1006 |
|
|
1007 |
|
static object c_apply_n58(object (*)(),object *,object,object) __attribute__ ((noinline)); |
1008 |
|
static object |
1009 |
|
c_apply_n58(object (*fn)(),object *x,object y,object z) { |
1010 |
|
|
1011 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
1012 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
1013 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
1014 |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
1016 |
x[36],x[37],x[38],x[39],x[40],x[41],x[42], |
x[36],x[37],x[38],x[39],x[40],x[41],x[42], |
1017 |
x[43],x[44],x[45],x[46],x[47],x[48],x[49], |
x[43],x[44],x[45],x[46],x[47],x[48],x[49], |
1018 |
x[50],x[51],x[52],x[53],x[54],x[55],x[56], |
x[50],x[51],x[52],x[53],x[54],x[55],x[56], |
1019 |
x[57]);break; |
x[57]); |
1020 |
case 59: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
1021 |
|
} |
1022 |
|
|
1023 |
|
static object c_apply_n59(object (*)(),object *,object,object) __attribute__ ((noinline)); |
1024 |
|
static object |
1025 |
|
c_apply_n59(object (*fn)(),object *x,object y,object z) { |
1026 |
|
|
1027 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
1028 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
1029 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
1030 |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
1032 |
x[36],x[37],x[38],x[39],x[40],x[41],x[42], |
x[36],x[37],x[38],x[39],x[40],x[41],x[42], |
1033 |
x[43],x[44],x[45],x[46],x[47],x[48],x[49], |
x[43],x[44],x[45],x[46],x[47],x[48],x[49], |
1034 |
x[50],x[51],x[52],x[53],x[54],x[55],x[56], |
x[50],x[51],x[52],x[53],x[54],x[55],x[56], |
1035 |
x[57],x[58]);break; |
x[57],x[58]); |
1036 |
case 60: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
1037 |
|
} |
1038 |
|
|
1039 |
|
static object c_apply_n60(object (*)(),object *,object,object) __attribute__ ((noinline)); |
1040 |
|
static object |
1041 |
|
c_apply_n60(object (*fn)(),object *x,object y,object z) { |
1042 |
|
|
1043 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
1044 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
1045 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
1046 |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
1048 |
x[36],x[37],x[38],x[39],x[40],x[41],x[42], |
x[36],x[37],x[38],x[39],x[40],x[41],x[42], |
1049 |
x[43],x[44],x[45],x[46],x[47],x[48],x[49], |
x[43],x[44],x[45],x[46],x[47],x[48],x[49], |
1050 |
x[50],x[51],x[52],x[53],x[54],x[55],x[56], |
x[50],x[51],x[52],x[53],x[54],x[55],x[56], |
1051 |
x[57],x[58],x[59]);break; |
x[57],x[58],x[59]); |
1052 |
case 61: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
1053 |
|
} |
1054 |
|
|
1055 |
|
static object c_apply_n61(object (*)(),object *,object,object) __attribute__ ((noinline)); |
1056 |
|
static object |
1057 |
|
c_apply_n61(object (*fn)(),object *x,object y,object z) { |
1058 |
|
|
1059 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
1060 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
1061 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
1062 |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
1064 |
x[36],x[37],x[38],x[39],x[40],x[41],x[42], |
x[36],x[37],x[38],x[39],x[40],x[41],x[42], |
1065 |
x[43],x[44],x[45],x[46],x[47],x[48],x[49], |
x[43],x[44],x[45],x[46],x[47],x[48],x[49], |
1066 |
x[50],x[51],x[52],x[53],x[54],x[55],x[56], |
x[50],x[51],x[52],x[53],x[54],x[55],x[56], |
1067 |
x[57],x[58],x[59],x[60]);break; |
x[57],x[58],x[59],x[60]); |
1068 |
case 62: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
1069 |
|
} |
1070 |
|
|
1071 |
|
static object c_apply_n62(object (*)(),object *,object,object) __attribute__ ((noinline)); |
1072 |
|
static object |
1073 |
|
c_apply_n62(object (*fn)(),object *x,object y,object z) { |
1074 |
|
|
1075 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
1076 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
1077 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
1078 |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
1080 |
x[36],x[37],x[38],x[39],x[40],x[41],x[42], |
x[36],x[37],x[38],x[39],x[40],x[41],x[42], |
1081 |
x[43],x[44],x[45],x[46],x[47],x[48],x[49], |
x[43],x[44],x[45],x[46],x[47],x[48],x[49], |
1082 |
x[50],x[51],x[52],x[53],x[54],x[55],x[56], |
x[50],x[51],x[52],x[53],x[54],x[55],x[56], |
1083 |
x[57],x[58],x[59],x[60],x[61]);break; |
x[57],x[58],x[59],x[60],x[61]); |
1084 |
case 63: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
1085 |
|
} |
1086 |
|
|
1087 |
|
static object c_apply_n63(object (*)(),object *,object,object) __attribute__ ((noinline)); |
1088 |
|
static object |
1089 |
|
c_apply_n63(object (*fn)(),object *x,object y,object z) { |
1090 |
|
|
1091 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
1092 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
1093 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
1094 |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
1096 |
x[36],x[37],x[38],x[39],x[40],x[41],x[42], |
x[36],x[37],x[38],x[39],x[40],x[41],x[42], |
1097 |
x[43],x[44],x[45],x[46],x[47],x[48],x[49], |
x[43],x[44],x[45],x[46],x[47],x[48],x[49], |
1098 |
x[50],x[51],x[52],x[53],x[54],x[55],x[56], |
x[50],x[51],x[52],x[53],x[54],x[55],x[56], |
1099 |
x[57],x[58],x[59],x[60],x[61],x[62]);break; |
x[57],x[58],x[59],x[60],x[61],x[62]); |
1100 |
case 64: res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
|
1101 |
|
} |
1102 |
|
|
1103 |
|
static object c_apply_n64(object (*)(),object *,object,object) __attribute__ ((noinline)); |
1104 |
|
static object |
1105 |
|
c_apply_n64(object (*fn)(),object *x,object y,object z) { |
1106 |
|
|
1107 |
|
return fn(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], |
1108 |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
x[8],x[9],x[10],x[11],x[12],x[13],x[14], |
1109 |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
x[15],x[16],x[17],x[18],x[19],x[20],x[21], |
1110 |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
x[22],x[23],x[24],x[25],x[26],x[27],x[28], |
1112 |
x[36],x[37],x[38],x[39],x[40],x[41],x[42], |
x[36],x[37],x[38],x[39],x[40],x[41],x[42], |
1113 |
x[43],x[44],x[45],x[46],x[47],x[48],x[49], |
x[43],x[44],x[45],x[46],x[47],x[48],x[49], |
1114 |
x[50],x[51],x[52],x[53],x[54],x[55],x[56], |
x[50],x[51],x[52],x[53],x[54],x[55],x[56], |
1115 |
x[57],x[58],x[59],x[60],x[61],x[62],x[63]);break; |
x[57],x[58],x[59],x[60],x[61],x[62],x[63]); |
1116 |
default: FEerror("Exceeded call-arguments-limit ",0); |
|
1117 |
|
} |
1118 |
|
|
1119 |
|
#define CASE_N(a,b,c) case c : return Mjoin(c_apply_n,c)(a,b,OBJNULL,OBJNULL);break |
1120 |
|
|
1121 |
|
object |
1122 |
|
c_apply_n(object (*fn)(), int n, object *x) |
1123 |
|
{object res=Cnil; |
1124 |
|
/* clear_c_stack(&res-4*(n+16)); */ |
1125 |
|
switch(n){ |
1126 |
|
CASE_N(fn,x,0); |
1127 |
|
CASE_N(fn,x,1); |
1128 |
|
CASE_N(fn,x,2); |
1129 |
|
CASE_N(fn,x,3); |
1130 |
|
CASE_N(fn,x,4); |
1131 |
|
CASE_N(fn,x,5); |
1132 |
|
CASE_N(fn,x,6); |
1133 |
|
CASE_N(fn,x,7); |
1134 |
|
CASE_N(fn,x,8); |
1135 |
|
CASE_N(fn,x,9); |
1136 |
|
CASE_N(fn,x,10); |
1137 |
|
CASE_N(fn,x,11); |
1138 |
|
CASE_N(fn,x,12); |
1139 |
|
CASE_N(fn,x,13); |
1140 |
|
CASE_N(fn,x,14); |
1141 |
|
CASE_N(fn,x,15); |
1142 |
|
CASE_N(fn,x,16); |
1143 |
|
CASE_N(fn,x,17); |
1144 |
|
CASE_N(fn,x,18); |
1145 |
|
CASE_N(fn,x,19); |
1146 |
|
CASE_N(fn,x,20); |
1147 |
|
CASE_N(fn,x,21); |
1148 |
|
CASE_N(fn,x,22); |
1149 |
|
CASE_N(fn,x,23); |
1150 |
|
CASE_N(fn,x,24); |
1151 |
|
CASE_N(fn,x,25); |
1152 |
|
CASE_N(fn,x,26); |
1153 |
|
CASE_N(fn,x,27); |
1154 |
|
CASE_N(fn,x,28); |
1155 |
|
CASE_N(fn,x,29); |
1156 |
|
CASE_N(fn,x,30); |
1157 |
|
CASE_N(fn,x,31); |
1158 |
|
CASE_N(fn,x,32); |
1159 |
|
CASE_N(fn,x,33); |
1160 |
|
CASE_N(fn,x,34); |
1161 |
|
CASE_N(fn,x,35); |
1162 |
|
CASE_N(fn,x,36); |
1163 |
|
CASE_N(fn,x,37); |
1164 |
|
CASE_N(fn,x,38); |
1165 |
|
CASE_N(fn,x,39); |
1166 |
|
CASE_N(fn,x,40); |
1167 |
|
CASE_N(fn,x,41); |
1168 |
|
CASE_N(fn,x,42); |
1169 |
|
CASE_N(fn,x,43); |
1170 |
|
CASE_N(fn,x,44); |
1171 |
|
CASE_N(fn,x,45); |
1172 |
|
CASE_N(fn,x,46); |
1173 |
|
CASE_N(fn,x,47); |
1174 |
|
CASE_N(fn,x,48); |
1175 |
|
CASE_N(fn,x,49); |
1176 |
|
CASE_N(fn,x,50); |
1177 |
|
CASE_N(fn,x,51); |
1178 |
|
CASE_N(fn,x,52); |
1179 |
|
CASE_N(fn,x,53); |
1180 |
|
CASE_N(fn,x,54); |
1181 |
|
CASE_N(fn,x,55); |
1182 |
|
CASE_N(fn,x,56); |
1183 |
|
CASE_N(fn,x,57); |
1184 |
|
CASE_N(fn,x,58); |
1185 |
|
CASE_N(fn,x,59); |
1186 |
|
CASE_N(fn,x,60); |
1187 |
|
CASE_N(fn,x,61); |
1188 |
|
CASE_N(fn,x,62); |
1189 |
|
CASE_N(fn,x,63); |
1190 |
|
CASE_N(fn,x,64); |
1191 |
|
default: FEerror("Exceeded call-arguments-limit ",0); |
1192 |
} |
} |
1193 |
|
|
1194 |
#ifdef DO_FUNLINK_DEBUG_1 |
#ifdef DO_FUNLINK_DEBUG_1 |