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

Diff of /gcl/o/eval.c

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

revision 1.1.1.1 by wfs, Mon Dec 6 22:44:10 1999 UTC revision 1.2 by camm, Sun Feb 3 18:44:08 2002 UTC
# Line 54  object sSAbreak_stepA; Line 54  object sSAbreak_stepA;
54    
55  #define SET_TO_APPLY(res,f,n,x) \  #define SET_TO_APPLY(res,f,n,x) \
56   switch(n) {\   switch(n) {\
57   case 0:   res=((f))(); break;\   case 0:   res=(object)((int (*)())(f))(); break;\
58    case 1:  res=((f))(x[0]); break; \    case 1:  res=(object)((int (*)())(f))(x[0]); break; \
59    case 2:  res=((f))(x[0],x[1]);break; \    case 2:  res=(object)((int (*)())(f))(x[0],x[1]);break; \
60    case 3:  res=((f))(x[0],x[1],x[2]);break; \    case 3:  res=(object)((int (*)())(f))(x[0],x[1],x[2]);break; \
61    case 4:  res=((f))(x[0],x[1],x[2],x[3]);break; \    case 4:  res=(object)((int (*)())(f))(x[0],x[1],x[2],x[3]);break; \
62    case 5:  res=((f))(x[0],x[1],x[2],x[3],x[4]);break; \    case 5:  res=(object)((int (*)())(f))(x[0],x[1],x[2],x[3],x[4]);break; \
63    case 6:  res=((f))(x[0],x[1],x[2],x[3],x[4],x[5]);  break;\    case 6:  res=(object)((int (*)())(f))(x[0],x[1],x[2],x[3],x[4],x[5]);  break;\
64    case 7:  res=((f))(x[0],x[1],x[2],x[3],x[4],x[5], x[6]); break;\    case 7:  res=(object)((int (*)())(f))(x[0],x[1],x[2],x[3],x[4],x[5], x[6]); break;\
65    case 8:  res=((f))(x[0],x[1],x[2],x[3],x[4],x[5], x[6],x[7]); break;\    case 8:  res=(object)((int (*)())(f))(x[0],x[1],x[2],x[3],x[4],x[5], x[6],x[7]); break;\
66    case 9:  res=((f))(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],x[8]);break;\    case 9:  res=(object)((int (*)())(f))(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],x[8]);break;\
67    case 10: res=((f))(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],x[8],x[9]);break;\    case 10: res=(object)((int (*)())(f))(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],x[8],x[9]);break;\
68     default: res=c_apply_n(f,n,x); break;}     default: res=c_apply_n(f,n,x); break;}
69    
70  /*  /*

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