/[gcl]/gcl/o/funlink.c
ViewVC logotype

Diff of /gcl/o/funlink.c

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

revision 1.24 by camm, Fri Jul 16 11:42:15 2004 UTC revision 1.25 by camm, Fri Jun 10 15:24:44 2005 UTC
# Line 352  clean_link_array(object *ar, object *ar_ Line 352  clean_link_array(object *ar, object *ar_
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],
# Line 621  c_apply_n(object (*fn)(), int n, object Line 1016  c_apply_n(object (*fn)(), int n, object
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],
# Line 630  c_apply_n(object (*fn)(), int n, object Line 1032  c_apply_n(object (*fn)(), int n, object
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],
# Line 639  c_apply_n(object (*fn)(), int n, object Line 1048  c_apply_n(object (*fn)(), int n, object
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],
# Line 648  c_apply_n(object (*fn)(), int n, object Line 1064  c_apply_n(object (*fn)(), int n, object
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],
# Line 657  c_apply_n(object (*fn)(), int n, object Line 1080  c_apply_n(object (*fn)(), int n, object
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],
# Line 666  c_apply_n(object (*fn)(), int n, object Line 1096  c_apply_n(object (*fn)(), int n, object
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],
# Line 675  c_apply_n(object (*fn)(), int n, object Line 1112  c_apply_n(object (*fn)(), int n, object
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

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

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