/[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.9 by camm, Wed Jul 31 22:48:44 2002 UTC revision 1.10 by camm, Thu Aug 1 22:15:06 2002 UTC
# Line 218  clean_link_array(object *ar, object *ar_ Line 218  clean_link_array(object *ar, object *ar_
218    
219  #include <varargs.h>  #include <varargs.h>
220    
221    /* This is a temporary workaround.  m68k cannot find the result
222       of a function returning long when invoked via a function pointer
223       declared as a function returning a pointer, in this case, an
224       object.  A proper fix will require rewriting sections of the lisp
225       compiler to separate the calling procedures for functions returning
226       an object from functions returning a long.  CM  20020801 */
227    #if defined(__mc68020__)
228    #define LCAST(a) (object)(*(long(*)())a)
229    #else
230    #define LCAST(a) (*a)
231    #endif
232    
233  object  object
234  c_apply_n(object (*fn)(), int n, object *x)  c_apply_n(object (*fn)(), int n, object *x)
235  {object res=Cnil;  {object res=Cnil;
236   switch(n){   switch(n){
237      case 0:  res=(*fn)();break;      case 0:  res=LCAST(fn)();break;
238      case 1:  res=(*fn)(x[0]);break;      case 1:  res=LCAST(fn)(x[0]);break;
239      case 2:  res=(*fn)(x[0],x[1]);break;      case 2:  res=LCAST(fn)(x[0],x[1]);break;
240      case 3:  res=(*fn)(x[0],x[1],x[2]);break;      case 3:  res=LCAST(fn)(x[0],x[1],x[2]);break;
241      case 4:  res=(*fn)(x[0],x[1],x[2],x[3]);break;      case 4:  res=LCAST(fn)(x[0],x[1],x[2],x[3]);break;
242      case 5:  res=(*fn)(x[0],x[1],x[2],x[3],x[4]);break;      case 5:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4]);break;
243      case 6:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5]);break;      case 6:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5]);break;
244      case 7:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6]);break;      case 7:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6]);break;
245      case 8:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7]);break;      case 8:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7]);break;
246      case 9:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 9:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
247           x[8]);break;           x[8]);break;
248      case 10:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 10:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
249           x[8],x[9]);break;           x[8],x[9]);break;
250      case 11:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 11:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
251           x[8],x[9],x[10]);break;           x[8],x[9],x[10]);break;
252      case 12:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 12:  res=LCAST(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]);break;           x[8],x[9],x[10],x[11]);break;
254      case 13:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 13:  res=LCAST(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]);break;           x[8],x[9],x[10],x[11],x[12]);break;
256      case 14:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 14:  res=LCAST(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]);break;           x[8],x[9],x[10],x[11],x[12],x[13]);break;
258      case 15:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 15:  res=LCAST(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]);break;           x[8],x[9],x[10],x[11],x[12],x[13],x[14]);break;
260      case 16:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 16:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
261           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],
262           x[15]);break;           x[15]);break;
263      case 17:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 17:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
264           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],
265           x[15],x[16]);break;           x[15],x[16]);break;
266      case 18:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 18:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
267           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],
268           x[15],x[16],x[17]);break;           x[15],x[16],x[17]);break;
269      case 19:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 19:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
270           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],
271           x[15],x[16],x[17],x[18]);break;           x[15],x[16],x[17],x[18]);break;
272      case 20:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 20:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
273           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],
274           x[15],x[16],x[17],x[18],x[19]);break;           x[15],x[16],x[17],x[18],x[19]);break;
275      case 21:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 21:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
276           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],
277           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;
278      case 22:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 22:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
279           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],
280           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;
281      case 23:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 23:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
282           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],
283           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],
284           x[22]);break;           x[22]);break;
285      case 24:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 24:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
286           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],
287           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],
288           x[22],x[23]);break;           x[22],x[23]);break;
289      case 25:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 25:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
290           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],
291           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],
292           x[22],x[23],x[24]);break;           x[22],x[23],x[24]);break;
293      case 26:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 26:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
294           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],
295           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],
296           x[22],x[23],x[24],x[25]);break;           x[22],x[23],x[24],x[25]);break;
297      case 27:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 27:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
298           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],
299           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],
300           x[22],x[23],x[24],x[25],x[26]);break;           x[22],x[23],x[24],x[25],x[26]);break;
301      case 28:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 28:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
302           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],
303           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],
304           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;
305      case 29:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 29:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
306           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],
307           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],
308           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;
309      case 30:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 30:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
310           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],
311           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],
312           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],
313           x[29]);break;           x[29]);break;
314      case 31:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 31:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
315           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],
316           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],
317           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],
318           x[29],x[30]);break;           x[29],x[30]);break;
319      case 32:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 32:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
320           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],
321           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],
322           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],
323           x[29],x[30],x[31]);break;           x[29],x[30],x[31]);break;
324      case 33:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 33:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
325           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],
326           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],
327           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],
328           x[29],x[30],x[31],x[32]);break;           x[29],x[30],x[31],x[32]);break;
329      case 34:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 34:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
330           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],
331           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],
332           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],
333           x[29],x[30],x[31],x[32],x[33]);break;           x[29],x[30],x[31],x[32],x[33]);break;
334      case 35:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 35:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
335           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],
336           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],
337           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],
338           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;
339      case 36:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 36:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
340           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],
341           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],
342           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],
343           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;
344      case 37:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 37:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
345           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],
346           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],
347           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],
348           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],
349           x[36]);break;           x[36]);break;
350      case 38:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 38:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
351           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],
352           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],
353           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],
354           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],
355           x[36],x[37]);break;           x[36],x[37]);break;
356      case 39:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 39:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
357           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],
358           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],
359           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],
360           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],
361           x[36],x[37],x[38]);break;           x[36],x[37],x[38]);break;
362      case 40:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 40:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
363           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],
364           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],
365           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],
366           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],
367           x[36],x[37],x[38],x[39]);break;           x[36],x[37],x[38],x[39]);break;
368      case 41:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 41:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
369           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],
370           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],
371           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],
372           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],
373           x[36],x[37],x[38],x[39],x[40]);break;           x[36],x[37],x[38],x[39],x[40]);break;
374      case 42:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 42:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
375           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],
376           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],
377           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],
378           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],
379           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;
380      case 43:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 43:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
381           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],
382           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],
383           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],
384           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],
385           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;
386      case 44:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 44:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
387           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],
388           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],
389           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],
390           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],
391           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],
392           x[43]);break;           x[43]);break;
393      case 45:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 45:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
394           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],
395           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],
396           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],
397           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],
398           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],
399           x[43],x[44]);break;           x[43],x[44]);break;
400      case 46:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 46:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
401           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],
402           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],
403           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],
404           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],
405           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],
406           x[43],x[44],x[45]);break;           x[43],x[44],x[45]);break;
407      case 47:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 47:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
408           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],
409           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],
410           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],
411           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],
412           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],
413           x[43],x[44],x[45],x[46]);break;           x[43],x[44],x[45],x[46]);break;
414      case 48:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 48:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
415           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],
416           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],
417           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],
418           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],
419           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],
420           x[43],x[44],x[45],x[46],x[47]);break;           x[43],x[44],x[45],x[46],x[47]);break;
421      case 49:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 49:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
422           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],
423           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],
424           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],
425           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],
426           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],
427           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;
428      case 50:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 50:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
429           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],
430           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],
431           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],
432           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],
433           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],
434           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;
435      case 51:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 51:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
436           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],
437           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],
438           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 428  c_apply_n(object (*fn)(), int n, object Line 440  c_apply_n(object (*fn)(), int n, object
440           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],
441           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],
442           x[50]);break;           x[50]);break;
443      case 52:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 52:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
444           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],
445           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],
446           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 436  c_apply_n(object (*fn)(), int n, object Line 448  c_apply_n(object (*fn)(), int n, object
448           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],
449           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],
450           x[50],x[51]);break;           x[50],x[51]);break;
451      case 53:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 53:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
452           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],
453           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],
454           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 444  c_apply_n(object (*fn)(), int n, object Line 456  c_apply_n(object (*fn)(), int n, object
456           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],
457           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],
458           x[50],x[51],x[52]);break;           x[50],x[51],x[52]);break;
459      case 54:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 54:  res=LCAST(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],x[13],x[14],           x[8],x[9],x[10],x[11],x[12],x[13],x[14],
461           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],
462           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 452  c_apply_n(object (*fn)(), int n, object Line 464  c_apply_n(object (*fn)(), int n, object
464           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],
465           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],
466           x[50],x[51],x[52],x[53]);break;           x[50],x[51],x[52],x[53]);break;
467      case 55:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 55:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
468           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],
469           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],
470           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 460  c_apply_n(object (*fn)(), int n, object Line 472  c_apply_n(object (*fn)(), int n, object
472           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],
473           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],
474           x[50],x[51],x[52],x[53],x[54]);break;           x[50],x[51],x[52],x[53],x[54]);break;
475      case 56:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 56:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
476           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],
477           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],
478           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 468  c_apply_n(object (*fn)(), int n, object Line 480  c_apply_n(object (*fn)(), int n, object
480           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],
481           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],
482           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;
483      case 57:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 57:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
484           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],
485           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],
486           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 476  c_apply_n(object (*fn)(), int n, object Line 488  c_apply_n(object (*fn)(), int n, object
488           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],
489           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],
490           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;
491      case 58:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 58:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
492           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],
493           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],
494           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 485  c_apply_n(object (*fn)(), int n, object Line 497  c_apply_n(object (*fn)(), int n, object
497           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],
498           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],
499           x[57]);break;           x[57]);break;
500      case 59:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 59:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
501           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],
502           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],
503           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 494  c_apply_n(object (*fn)(), int n, object Line 506  c_apply_n(object (*fn)(), int n, object
506           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],
507           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],
508           x[57],x[58]);break;           x[57],x[58]);break;
509      case 60:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 60:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
510           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],
511           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],
512           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 503  c_apply_n(object (*fn)(), int n, object Line 515  c_apply_n(object (*fn)(), int n, object
515           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],
516           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],
517           x[57],x[58],x[59]);break;           x[57],x[58],x[59]);break;
518      case 61:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 61:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
519           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],
520           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],
521           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 512  c_apply_n(object (*fn)(), int n, object Line 524  c_apply_n(object (*fn)(), int n, object
524           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],
525           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],
526           x[57],x[58],x[59],x[60]);break;           x[57],x[58],x[59],x[60]);break;
527      case 62:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 62:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
528           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],
529           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],
530           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 521  c_apply_n(object (*fn)(), int n, object Line 533  c_apply_n(object (*fn)(), int n, object
533           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],
534           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],
535           x[57],x[58],x[59],x[60],x[61]);break;           x[57],x[58],x[59],x[60],x[61]);break;
536      case 63:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 63:  res=LCAST(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],x[21],           x[15],x[16],x[17],x[18],x[19],x[20],x[21],
539           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 530  c_apply_n(object (*fn)(), int n, object Line 542  c_apply_n(object (*fn)(), int n, object
542           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],
543           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],
544           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;
545      case 64:  res=(*fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],      case 64:  res=LCAST(fn)(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],
546           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],
547           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],
548           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 594  call_proc(object sym, void **link, int a Line 606  call_proc(object sym, void **link, int a
606         if (nargs-- > 0)         if (nargs-- > 0)
607           x0=va_arg(ll,object);           x0=va_arg(ll,object);
608         else         else
609           {return((object)(*fn)());}           {return(LCAST(fn)());}
610         if (nargs-- > 0)         if (nargs-- > 0)
611           x1=va_arg(ll,object);           x1=va_arg(ll,object);
612         else         else
613           { return((object)(*fn)(x0));}           { return(LCAST(fn)(x0));}
614         if (nargs-- > 0)         if (nargs-- > 0)
615           x2=va_arg(ll,object);           x2=va_arg(ll,object);
616         else         else
617           {return((object)(*fn)(x0,x1));}           {return(LCAST(fn)(x0,x1));}
618         if (nargs-- > 0)  x3=va_arg(ll,object);         if (nargs-- > 0)  x3=va_arg(ll,object);
619         else         else
620           return((object)(*fn)(x0,x1,x2));           return(LCAST(fn)(x0,x1,x2));
621         if (nargs-- > 0)  x4=va_arg(ll,object);         if (nargs-- > 0)  x4=va_arg(ll,object);
622         else         else
623           return((object)(*fn)(x0,x1,x2,x3));           return(LCAST(fn)(x0,x1,x2,x3));
624         if (nargs-- > 0)  x5=va_arg(ll,object);         if (nargs-- > 0)  x5=va_arg(ll,object);
625         else         else
626           return((object)(*fn)(x0,x1,x2,x3,x4));           return(LCAST(fn)(x0,x1,x2,x3,x4));
627         if (nargs-- > 0)  x6=va_arg(ll,object);         if (nargs-- > 0)  x6=va_arg(ll,object);
628         else         else
629           return((object)(*fn)(x0,x1,x2,x3,x4,x5));           return(LCAST(fn)(x0,x1,x2,x3,x4,x5));
630         if (nargs-- > 0)  x7=va_arg(ll,object);         if (nargs-- > 0)  x7=va_arg(ll,object);
631         else         else
632           return((object)(*fn)(x0,x1,x2,x3,x4,x5,x6));           return(LCAST(fn)(x0,x1,x2,x3,x4,x5,x6));
633         if (nargs-- > 0)  x8=va_arg(ll,object);         if (nargs-- > 0)  x8=va_arg(ll,object);
634         else         else
635           return((object)(*fn)(x0,x1,x2,x3,x4,x5,x6,x7));           return(LCAST(fn)(x0,x1,x2,x3,x4,x5,x6,x7));
636         if (nargs-- > 0)  x9=va_arg(ll,object);         if (nargs-- > 0)  x9=va_arg(ll,object);
637         else         else
638           return((object)(*fn)(x0,x1,x2,x3,x4,x5,x6,x7,x8));           return(LCAST(fn)(x0,x1,x2,x3,x4,x5,x6,x7,x8));
639         return((object)(*fn)(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9));         return(LCAST(fn)(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9));
640    
641       }       }
642    else {object *new;    else {object *new;

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

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