/[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.1.1.1 by wfs, Mon Dec 6 22:44:11 1999 UTC revision 1.2 by camm, Sun Feb 3 18:44:08 2002 UTC
# Line 229  object Line 229  object
229  c_apply_n(fn,n,x)  c_apply_n(fn,n,x)
230       object *x;       object *x;
231       int n;       int n;
232       object (*fn)();       int (*fn)();
233  {object res;  {object res;
234   switch(n){   switch(n){
235      case 0:  res=(*fn)();break;      case 0:  res=(object)(*fn)();break;
236      case 1:  res=(*fn)(x[0]);break;      case 1:  res=(object)(*fn)(x[0]);break;
237      case 2:  res=(*fn)(x[0],x[1]);break;      case 2:  res=(object)(*fn)(x[0],x[1]);break;
238      case 3:  res=(*fn)(x[0],x[1],x[2]);break;      case 3:  res=(object)(*fn)(x[0],x[1],x[2]);break;
239      case 4:  res=(*fn)(x[0],x[1],x[2],x[3]);break;      case 4:  res=(object)(*fn)(x[0],x[1],x[2],x[3]);break;
240      case 5:  res=(*fn)(x[0],x[1],x[2],x[3],x[4]);break;      case 5:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4]);break;
241      case 6:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5]);break;      case 6:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5]);break;
242      case 7:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6]);break;      case 7:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6]);break;
243      case 8:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7]);break;      case 8:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7]);break;
244      case 9:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 9:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
245           x[8]);break;           x[8]);break;
246      case 10:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 10:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
247           x[8],x[9]);break;           x[8],x[9]);break;
248      case 11:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 11:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
249           x[8],x[9],x[10]);break;           x[8],x[9],x[10]);break;
250      case 12:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 12:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
251           x[8],x[9],x[10],x[11]);break;           x[8],x[9],x[10],x[11]);break;
252      case 13:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 13:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
253           x[8],x[9],x[10],x[11],x[12]);break;           x[8],x[9],x[10],x[11],x[12]);break;
254      case 14:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 14:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
255           x[8],x[9],x[10],x[11],x[12],x[13]);break;           x[8],x[9],x[10],x[11],x[12],x[13]);break;
256      case 15:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 15:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
257           x[8],x[9],x[10],x[11],x[12],x[13],x[14]);break;           x[8],x[9],x[10],x[11],x[12],x[13],x[14]);break;
258      case 16:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 16:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
259           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],
260           x[15]);break;           x[15]);break;
261      case 17:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 17:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
262           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],
263           x[15],x[16]);break;           x[15],x[16]);break;
264      case 18:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 18:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
265           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],
266           x[15],x[16],x[17]);break;           x[15],x[16],x[17]);break;
267      case 19:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 19:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
268           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],
269           x[15],x[16],x[17],x[18]);break;           x[15],x[16],x[17],x[18]);break;
270      case 20:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 20:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
271           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],
272           x[15],x[16],x[17],x[18],x[19]);break;           x[15],x[16],x[17],x[18],x[19]);break;
273      case 21:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 21:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
274           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],
275           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]);break;
276      case 22:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 22:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
277           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],
278           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]);break;
279      case 23:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 23:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
280           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],
281           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],
282           x[22]);break;           x[22]);break;
283      case 24:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 24:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
284           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],
285           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],
286           x[22],x[23]);break;           x[22],x[23]);break;
287      case 25:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 25:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
288           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],
289           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],
290           x[22],x[23],x[24]);break;           x[22],x[23],x[24]);break;
291      case 26:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 26:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
292           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],
293           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],
294           x[22],x[23],x[24],x[25]);break;           x[22],x[23],x[24],x[25]);break;
295      case 27:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 27:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
296           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],
297           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],
298           x[22],x[23],x[24],x[25],x[26]);break;           x[22],x[23],x[24],x[25],x[26]);break;
299      case 28:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 28:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
300           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],
301           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],
302           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]);break;
303      case 29:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 29:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
304           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],
305           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],
306           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]);break;
307      case 30:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 30:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
308           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],
309           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],
310           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],
311           x[29]);break;           x[29]);break;
312      case 31:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 31:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
313           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],
314           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],
315           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],
316           x[29],x[30]);break;           x[29],x[30]);break;
317      case 32:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 32:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
318           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],
319           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],
320           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],
321           x[29],x[30],x[31]);break;           x[29],x[30],x[31]);break;
322      case 33:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 33:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
323           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],
324           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],
325           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],
326           x[29],x[30],x[31],x[32]);break;           x[29],x[30],x[31],x[32]);break;
327      case 34:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 34:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
328           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],
329           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],
330           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],
331           x[29],x[30],x[31],x[32],x[33]);break;           x[29],x[30],x[31],x[32],x[33]);break;
332      case 35:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 35:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
333           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],
334           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],
335           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],
336           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]);break;
337      case 36:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 36:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
338           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],
339           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],
340           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],
341           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]);break;
342      case 37:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 37:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
343           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],
344           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],
345           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],
346           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],
347           x[36]);break;           x[36]);break;
348      case 38:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 38:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
349           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],
350           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],
351           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],
352           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],
353           x[36],x[37]);break;           x[36],x[37]);break;
354      case 39:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 39:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
355           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],
356           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],
357           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],
358           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],
359           x[36],x[37],x[38]);break;           x[36],x[37],x[38]);break;
360      case 40:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 40:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
361           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],
362           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],
363           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],
364           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],
365           x[36],x[37],x[38],x[39]);break;           x[36],x[37],x[38],x[39]);break;
366      case 41:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 41:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
367           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],
368           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],
369           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],
370           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],
371           x[36],x[37],x[38],x[39],x[40]);break;           x[36],x[37],x[38],x[39],x[40]);break;
372      case 42:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 42:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
373           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],
374           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],
375           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],
376           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],
377           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]);break;
378      case 43:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 43:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
379           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],
380           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],
381           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],
382           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],
383           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]);break;
384      case 44:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 44:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
385           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],
386           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],
387           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],
388           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],
389           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],
390           x[43]);break;           x[43]);break;
391      case 45:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 45:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
392           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],
393           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],
394           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],
395           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],
396           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],
397           x[43],x[44]);break;           x[43],x[44]);break;
398      case 46:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 46:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
399           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],
400           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],
401           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],
402           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],
403           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],
404           x[43],x[44],x[45]);break;           x[43],x[44],x[45]);break;
405      case 47:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 47:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
406           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],
407           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],
408           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],
409           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],
410           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],
411           x[43],x[44],x[45],x[46]);break;           x[43],x[44],x[45],x[46]);break;
412      case 48:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 48:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
413           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],
414           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],
415           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],
416           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],
417           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],
418           x[43],x[44],x[45],x[46],x[47]);break;           x[43],x[44],x[45],x[46],x[47]);break;
419      case 49:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 49:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
420           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],
421           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],
422           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],
423           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],
424           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],
425           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]);break;
426      case 50:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 50:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
427           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],
428           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],
429           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],
430           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],
431           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],
432           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]);break;
433      case 51:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 51:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
434           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],
435           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],
436           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 438  c_apply_n(fn,n,x) Line 438  c_apply_n(fn,n,x)
438           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],
439           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],
440           x[50]);break;           x[50]);break;
441      case 52:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 52:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
442           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],
443           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],
444           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 446  c_apply_n(fn,n,x) Line 446  c_apply_n(fn,n,x)
446           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],
447           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],
448           x[50],x[51]);break;           x[50],x[51]);break;
449      case 53:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 53:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
450           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],
451           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],
452           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 454  c_apply_n(fn,n,x) Line 454  c_apply_n(fn,n,x)
454           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],
455           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],
456           x[50],x[51],x[52]);break;           x[50],x[51],x[52]);break;
457      case 54:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 54:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
458           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],
459           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],
460           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 462  c_apply_n(fn,n,x) Line 462  c_apply_n(fn,n,x)
462           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],
463           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],
464           x[50],x[51],x[52],x[53]);break;           x[50],x[51],x[52],x[53]);break;
465      case 55:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 55:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
466           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],
467           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],
468           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 470  c_apply_n(fn,n,x) Line 470  c_apply_n(fn,n,x)
470           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],
471           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],
472           x[50],x[51],x[52],x[53],x[54]);break;           x[50],x[51],x[52],x[53],x[54]);break;
473      case 56:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 56:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
474           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],
475           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],
476           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 478  c_apply_n(fn,n,x) Line 478  c_apply_n(fn,n,x)
478           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],
479           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],
480           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]);break;
481      case 57:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 57:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
482           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],
483           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],
484           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 486  c_apply_n(fn,n,x) Line 486  c_apply_n(fn,n,x)
486           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],
487           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],
488           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]);break;
489      case 58:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 58:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
490           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],
491           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],
492           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 495  c_apply_n(fn,n,x) Line 495  c_apply_n(fn,n,x)
495           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],
496           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],
497           x[57]);break;           x[57]);break;
498      case 59:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 59:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
499           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],
500           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],
501           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 504  c_apply_n(fn,n,x) Line 504  c_apply_n(fn,n,x)
504           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],
505           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],
506           x[57],x[58]);break;           x[57],x[58]);break;
507      case 60:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 60:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
508           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],
509           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],
510           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 513  c_apply_n(fn,n,x) Line 513  c_apply_n(fn,n,x)
513           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],
514           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],
515           x[57],x[58],x[59]);break;           x[57],x[58],x[59]);break;
516      case 61:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 61:  res=(object)(*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],x[19],x[20],x[21],           x[15],x[16],x[17],x[18],x[19],x[20],x[21],
519           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 522  c_apply_n(fn,n,x) Line 522  c_apply_n(fn,n,x)
522           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],
523           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],
524           x[57],x[58],x[59],x[60]);break;           x[57],x[58],x[59],x[60]);break;
525      case 62:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 62:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
526           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],
527           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],
528           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 531  c_apply_n(fn,n,x) Line 531  c_apply_n(fn,n,x)
531           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],
532           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],
533           x[57],x[58],x[59],x[60],x[61]);break;           x[57],x[58],x[59],x[60],x[61]);break;
534      case 63:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 63:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
535           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],
536           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],
537           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 540  c_apply_n(fn,n,x) Line 540  c_apply_n(fn,n,x)
540           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],
541           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],
542           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]);break;
543      case 64:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 64:  res=(object)(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
544           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],
545           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],
546           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 573  va_list ll; Line 573  va_list ll;
573               || type_of(fun)==t_gfun               || type_of(fun)==t_gfun
574               || type_of(fun)== t_vfun)               || type_of(fun)== t_vfun)
575               && Rset) /* the && Rset is to allow tracing */               && Rset) /* the && Rset is to allow tracing */
576     {object_func fn;     {int (*fn)();
577      fn =  (object_func) fun->sfn.sfn_self;      fn =  (int (*)()) fun->sfn.sfn_self;
578      if (type_of(fun)==t_vfun)      if (type_of(fun)==t_vfun)
579        { /* argd=VFUN_NARGS; */ /*remove this! */        { /* argd=VFUN_NARGS; */ /*remove this! */
580          nargs=SFUN_NARGS(argd);          nargs=SFUN_NARGS(argd);
# Line 608  va_list ll; Line 608  va_list ll;
608         if (nargs-- > 0)         if (nargs-- > 0)
609           x0=va_arg(ll,object);           x0=va_arg(ll,object);
610         else         else
611           {return((*fn)());}           {return((object)(*fn)());}
612         if (nargs-- > 0)         if (nargs-- > 0)
613           x1=va_arg(ll,object);           x1=va_arg(ll,object);
614         else         else
615           { return((*fn)(x0));}           { return((object)(*fn)(x0));}
616         if (nargs-- > 0)         if (nargs-- > 0)
617           x2=va_arg(ll,object);           x2=va_arg(ll,object);
618         else         else
619           {return((*fn)(x0,x1));}           {return((object)(*fn)(x0,x1));}
620         if (nargs-- > 0)  x3=va_arg(ll,object);         if (nargs-- > 0)  x3=va_arg(ll,object);
621         else         else
622           return((*fn)(x0,x1,x2));           return((object)(*fn)(x0,x1,x2));
623         if (nargs-- > 0)  x4=va_arg(ll,object);         if (nargs-- > 0)  x4=va_arg(ll,object);
624         else         else
625           return((*fn)(x0,x1,x2,x3));           return((object)(*fn)(x0,x1,x2,x3));
626         if (nargs-- > 0)  x5=va_arg(ll,object);         if (nargs-- > 0)  x5=va_arg(ll,object);
627         else         else
628           return((*fn)(x0,x1,x2,x3,x4));           return((object)(*fn)(x0,x1,x2,x3,x4));
629         if (nargs-- > 0)  x6=va_arg(ll,object);         if (nargs-- > 0)  x6=va_arg(ll,object);
630         else         else
631           return((*fn)(x0,x1,x2,x3,x4,x5));           return((object)(*fn)(x0,x1,x2,x3,x4,x5));
632         if (nargs-- > 0)  x7=va_arg(ll,object);         if (nargs-- > 0)  x7=va_arg(ll,object);
633         else         else
634           return((*fn)(x0,x1,x2,x3,x4,x5,x6));           return((object)(*fn)(x0,x1,x2,x3,x4,x5,x6));
635         if (nargs-- > 0)  x8=va_arg(ll,object);         if (nargs-- > 0)  x8=va_arg(ll,object);
636         else         else
637           return((*fn)(x0,x1,x2,x3,x4,x5,x6,x7));           return((object)(*fn)(x0,x1,x2,x3,x4,x5,x6,x7));
638         if (nargs-- > 0)  x9=va_arg(ll,object);         if (nargs-- > 0)  x9=va_arg(ll,object);
639         else         else
640           return((*fn)(x0,x1,x2,x3,x4,x5,x6,x7,x8));           return((object)(*fn)(x0,x1,x2,x3,x4,x5,x6,x7,x8));
641         return((*fn)(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9));         return((object)(*fn)(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9));
642    
643       }       }
644    else {object *new;    else {object *new;

Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.2

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