/* -*- mode: c -*- */ /* apply.c -- Interface to C call mechanism. */ /* Copyright (c) 1993, Giuseppe Attardi. Copyright (c) 2001, Juan Jose Garcia Ripoll. MKCL is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 3 of the License, or (at your option) any later version. See file '../../Copyright' for full details. */ #include #ifndef MKCL_ASM_APPLY mkcl_object mkcl_APPLY(MKCL, mkcl_narg n, mkcl_object fun, mkcl_object *x) { #if 0 const mkcl_objectfn fn = fun->cfun.f.entry; #endif switch (n) { case 0: return fun->cfun.f._[0](env); case 1: return fun->cfun.f._[1](env, x[0]); case 2: return fun->cfun.f._[2](env, x[0],x[1]); case 3: return fun->cfun.f._[3](env, x[0],x[1],x[2]); case 4: return fun->cfun.f._[4](env, x[0],x[1],x[2],x[3]); case 5: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4]); case 6: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5]); case 7: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6]); case 8: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7]); case 9: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8]); case 10: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9]); case 11: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10]); case 12: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11]); case 13: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12]); case 14: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13]); case 15: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14]); case 16: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15]); case 17: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16]); case 18: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17]); case 19: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18]); case 20: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19]); case 21: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20]); case 22: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21]); case 23: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22]); case 24: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23]); case 25: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24]); case 26: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25]); case 27: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26]); case 28: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27]); case 29: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28]); case 30: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29]); case 31: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30]); case 32: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31]); case 33: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32]); case 34: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33]); case 35: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34]); case 36: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35]); case 37: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36]); case 38: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37]); case 39: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38]); case 40: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39]); case 41: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40]); case 42: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41]); case 43: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42]); case 44: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42], x[43]); case 45: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42], x[43],x[44]); case 46: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42], x[43],x[44],x[45]); case 47: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42], x[43],x[44],x[45],x[46]); case 48: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42], x[43],x[44],x[45],x[46],x[47]); case 49: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42], x[43],x[44],x[45],x[46],x[47],x[48]); case 50: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42], x[43],x[44],x[45],x[46],x[47],x[48],x[49]); case 51: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42], x[43],x[44],x[45],x[46],x[47],x[48],x[49], x[50]); case 52: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42], x[43],x[44],x[45],x[46],x[47],x[48],x[49], x[50],x[51]); case 53: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42], x[43],x[44],x[45],x[46],x[47],x[48],x[49], x[50],x[51],x[52]); case 54: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42], x[43],x[44],x[45],x[46],x[47],x[48],x[49], x[50],x[51],x[52],x[53]); case 55: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42], x[43],x[44],x[45],x[46],x[47],x[48],x[49], x[50],x[51],x[52],x[53],x[54]); case 56: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42], x[43],x[44],x[45],x[46],x[47],x[48],x[49], x[50],x[51],x[52],x[53],x[54],x[55]); case 57: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42], x[43],x[44],x[45],x[46],x[47],x[48],x[49], x[50],x[51],x[52],x[53],x[54],x[55],x[56]); case 58: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42], x[43],x[44],x[45],x[46],x[47],x[48],x[49], x[50],x[51],x[52],x[53],x[54],x[55],x[56], x[57]); case 59: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42], x[43],x[44],x[45],x[46],x[47],x[48],x[49], x[50],x[51],x[52],x[53],x[54],x[55],x[56], x[57],x[58]); case 60: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42], x[43],x[44],x[45],x[46],x[47],x[48],x[49], x[50],x[51],x[52],x[53],x[54],x[55],x[56], x[57],x[58],x[59]); case 61: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42], x[43],x[44],x[45],x[46],x[47],x[48],x[49], x[50],x[51],x[52],x[53],x[54],x[55],x[56], x[57],x[58],x[59],x[60]); case 62: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42], x[43],x[44],x[45],x[46],x[47],x[48],x[49], x[50],x[51],x[52],x[53],x[54],x[55],x[56], x[57],x[58],x[59],x[60],x[61]); case 63: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42], x[43],x[44],x[45],x[46],x[47],x[48],x[49], x[50],x[51],x[52],x[53],x[54],x[55],x[56], x[57],x[58],x[59],x[60],x[61],x[62]); default: return fun->cfun.f.entry(env, n, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42], x[43],x[44],x[45],x[46],x[47],x[48],x[49], x[50],x[51],x[52],x[53],x[54],x[55],x[56], x[57],x[58],x[59],x[60],x[61],x[62],x[63]); /* Arguments above 64 have been pushed on the lisp temporaries stack */ } } mkcl_object mkcl_APPLY_fixed(MKCL, mkcl_narg n, mkcl_object (*fn)(), mkcl_object *x) { switch (n) { case 0: return (*fn)(env); case 1: return (*fn)(env, x[0]); case 2: return (*fn)(env, x[0],x[1]); case 3: return (*fn)(env, x[0],x[1],x[2]); case 4: return (*fn)(env, x[0],x[1],x[2],x[3]); case 5: return (*fn)(env, x[0],x[1],x[2],x[3],x[4]); case 6: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5]); case 7: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6]); case 8: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7]); case 9: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8]); case 10: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9]); case 11: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10]); case 12: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11]); case 13: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12]); case 14: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13]); case 15: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14]); case 16: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15]); case 17: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16]); case 18: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17]); case 19: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18]); case 20: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19]); case 21: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20]); case 22: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21]); case 23: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22]); case 24: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23]); case 25: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24]); case 26: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25]); case 27: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26]); case 28: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27]); case 29: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28]); case 30: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29]); case 31: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30]); case 32: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31]); case 33: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32]); case 34: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33]); case 35: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34]); case 36: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35]); case 37: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36]); case 38: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37]); case 39: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38]); case 40: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39]); case 41: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40]); case 42: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41]); case 43: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42]); case 44: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42], x[43]); case 45: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42], x[43],x[44]); case 46: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42], x[43],x[44],x[45]); case 47: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42], x[43],x[44],x[45],x[46]); case 48: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42], x[43],x[44],x[45],x[46],x[47]); case 49: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42], x[43],x[44],x[45],x[46],x[47],x[48]); case 50: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42], x[43],x[44],x[45],x[46],x[47],x[48],x[49]); case 51: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42], x[43],x[44],x[45],x[46],x[47],x[48],x[49], x[50]); case 52: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42], x[43],x[44],x[45],x[46],x[47],x[48],x[49], x[50],x[51]); case 53: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42], x[43],x[44],x[45],x[46],x[47],x[48],x[49], x[50],x[51],x[52]); case 54: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42], x[43],x[44],x[45],x[46],x[47],x[48],x[49], x[50],x[51],x[52],x[53]); case 55: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42], x[43],x[44],x[45],x[46],x[47],x[48],x[49], x[50],x[51],x[52],x[53],x[54]); case 56: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42], x[43],x[44],x[45],x[46],x[47],x[48],x[49], x[50],x[51],x[52],x[53],x[54],x[55]); case 57: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42], x[43],x[44],x[45],x[46],x[47],x[48],x[49], x[50],x[51],x[52],x[53],x[54],x[55],x[56]); case 58: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42], x[43],x[44],x[45],x[46],x[47],x[48],x[49], x[50],x[51],x[52],x[53],x[54],x[55],x[56], x[57]); case 59: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42], x[43],x[44],x[45],x[46],x[47],x[48],x[49], x[50],x[51],x[52],x[53],x[54],x[55],x[56], x[57],x[58]); case 60: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42], x[43],x[44],x[45],x[46],x[47],x[48],x[49], x[50],x[51],x[52],x[53],x[54],x[55],x[56], x[57],x[58],x[59]); case 61: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42], x[43],x[44],x[45],x[46],x[47],x[48],x[49], x[50],x[51],x[52],x[53],x[54],x[55],x[56], x[57],x[58],x[59],x[60]); case 62: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42], x[43],x[44],x[45],x[46],x[47],x[48],x[49], x[50],x[51],x[52],x[53],x[54],x[55],x[56], x[57],x[58],x[59],x[60],x[61]); case 63: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42], x[43],x[44],x[45],x[46],x[47],x[48],x[49], x[50],x[51],x[52],x[53],x[54],x[55],x[56], x[57],x[58],x[59],x[60],x[61],x[62]); case 64: return (*fn)(env, x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7], x[8],x[9],x[10],x[11],x[12],x[13],x[14], x[15],x[16],x[17],x[18],x[19],x[20],x[21], x[22],x[23],x[24],x[25],x[26],x[27],x[28], x[29],x[30],x[31],x[32],x[33],x[34],x[35], x[36],x[37],x[38],x[39],x[40],x[41],x[42], x[43],x[44],x[45],x[46],x[47],x[48],x[49], x[50],x[51],x[52],x[53],x[54],x[55],x[56], x[57],x[58],x[59],x[60],x[61],x[62],x[63]); default: mkcl_FEprogram_error(env, "Too many arguments", 0); } } #endif /* ndef MKCL_ASM_APPLY */