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

Diff of /gcl/o/array.c

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

revision 1.17 by camm, Mon Feb 17 16:50:21 2003 UTC revision 1.18 by camm, Wed Feb 26 22:21:37 2003 UTC
# Line 160  DEFUN_NEW("ROW-MAJOR-AREF", object, fLro Line 160  DEFUN_NEW("ROW-MAJOR-AREF", object, fLro
160      case aet_lf:      case aet_lf:
161        return make_longfloat(x->lfa.lfa_self[i]);        return make_longfloat(x->lfa.lfa_self[i]);
162      case aet_char:      case aet_char:
163        return make_fixnum(x->st.st_self[i]);        return small_fixnum(x->st.st_self[i]);
164      case aet_uchar:      case aet_uchar:
165        return make_fixnum(x->ust.ust_self[i]);        return small_fixnum(x->ust.ust_self[i]);
166      case aet_short:      case aet_short:
167        return make_fixnum(SHORT(x, i));        return make_fixnum(SHORT(x, i));
168      case aet_ushort:      case aet_ushort:
169        return make_fixnum(USHORT(x, i));        return small_fixnum(USHORT(x, i));
170    
171      default:      default:
172        FEerror("unknown array type",0);        FEerror("unknown array type",0);
# Line 183  DEFUN_NEW("ROW-MAJOR-AREF", object, fLro Line 183  DEFUN_NEW("ROW-MAJOR-AREF", object, fLro
183    
184  object  object
185  aset1(object x,int i,object val) {  aset1(object x,int i,object val) {
186    return fSaset1(x,make_fixnum(i),val);    return fSaset1(x,i,val);
187  }  }
188    
189  DEFUN_NEW("ASET1", object, fSaset1, SI, 3, 3, NONE, OO, OO, OO,OO,(object x, object ii,object val),"")  DEFUN_NEW("ASET1", object, fSaset1, SI, 3, 3, NONE, OO, IO, OO,OO,(object x, int i,object val),"")
190  {  {
   int i;  
   i=fix(ii);  
191    switch (type_of(x)) {    switch (type_of(x)) {
192    case t_array:    case t_array:
193    case t_vector:    case t_vector:
# Line 259  DEFUN_NEW("ASET1", object, fSaset1, SI, Line 257  DEFUN_NEW("ASET1", object, fSaset1, SI,
257  }  }
258    
259  DEFUNO_NEW("ASET", object, fSaset, SI, 1, ARG_LIMIT, NONE, OO,  DEFUNO_NEW("ASET", object, fSaset, SI, 1, ARG_LIMIT, NONE, OO,
260         OO, OO, OO,void,siLaset,(object x,object ii,object y, ...),"")         IO, OO, OO,void,siLaset,(object x,int i,object y, ...),"")
261  { int i1;  { int i1;
262    int n = VFUN_NARGS;    int n = VFUN_NARGS;
   int i;  
263    va_list ap;    va_list ap;
264    if (type_of(x) == t_array)    if (type_of(x) == t_array)
265      {int m ;      {int m ;
# Line 270  DEFUNO_NEW("ASET", object, fSaset, SI, 1 Line 267  DEFUNO_NEW("ASET", object, fSaset, SI, 1
267       int rank = n - 2;       int rank = n - 2;
268       if (x->a.a_rank != rank)       if (x->a.a_rank != rank)
269         FEerror(" ~a has wrong rank",1,x);         FEerror(" ~a has wrong rank",1,x);
270       if (rank == 0) return fSaset1(x,make_fixnum(0),ii);       if (rank == 0) return fSaset1(x,0,make_fixnum(i));
271       ASSURE_TYPE(ii,t_fixnum);  /*      ASSURE_TYPE(ii,t_fixnum); */
272       i = fix(ii);  /*      i = fix(ii); */
273       if (rank == 1)       if (rank == 1)
274         return fSaset1(x,ii,y);         return fSaset1(x,i,y);
275       va_start(ap,y);       va_start(ap,y);
276       m = 0;       m = 0;
277       k = i;       k = i;
# Line 304  DEFUNO_NEW("ASET", object, fSaset, SI, 1 Line 301  DEFUNO_NEW("ASET", object, fSaset, SI, 1
301               break ;}               break ;}
302         }         }
303       va_end(ap);       va_end(ap);
304       return fSaset1(x,make_fixnum(i1),y);       return fSaset1(x,i1,y);
305     }     }
306    else    else
307      {      {
308        ASSURE_TYPE(ii,t_fixnum);  /*       ASSURE_TYPE(ii,t_fixnum); */
309        return fSaset1(x,ii,y);        return fSaset1(x,i,y);
310      }      }
311        
312  }  }
# Line 820  implementation dependent results.") Line 817  implementation dependent results.")
817           {if (typ2!=aet_bit)           {if (typ2!=aet_bit)
818              goto badcopy;              goto badcopy;
819              {while(rest> 0)              {while(rest> 0)
820                 { fSaset1(y,make_fixnum(i2+n1-rest),(fLrow_major_aref(x,i1+n1-rest)));                 { fSaset1(y,i2+n1-rest,(fLrow_major_aref(x,i1+n1-rest)));
821                   rest--;}                   rest--;}
822               }}               }}
823         i1=i1/CHAR_SIZE ;         i1=i1/CHAR_SIZE ;
# Line 1091  DEFUN_NEW("ARRAY-TOTAL-SIZE",object,fLar Line 1088  DEFUN_NEW("ARRAY-TOTAL-SIZE",object,fLar
1088  }  }
1089    
1090    
1091    
1092    
1093  DEFUN_NEW("ASET-BY-CURSOR",object,fSaset_by_cursor,SI,3,3,  DEFUN_NEW("ASET-BY-CURSOR",object,fSaset_by_cursor,SI,3,3,
1094         NONE,OO,OO,OO,OO,(object array,object val,object cursor),"")         NONE,OO,OO,OO,OO,(object array,object val,object cursor),"")
1095  {  {
# Line 1099  DEFUN_NEW("ASET-BY-CURSOR",object,fSaset Line 1098  DEFUN_NEW("ASET-BY-CURSOR",object,fSaset
1098          object ind[ARRAY_RANK_LIMIT];          object ind[ARRAY_RANK_LIMIT];
1099          /* 3 args */          /* 3 args */
1100          ind[0]=array;          ind[0]=array;
1101          if (cursor==sLnil) {fSaset1(array,make_fixnum(0),val); RETURN1(array);}          if (cursor==sLnil) {fSaset1(array,0,val); RETURN1(array);}
1102          ind[1]=MMcar(cursor);          ind[1]=MMcar(cursor);
1103            ASSURE_TYPE(ind[1],t_fixnum);
1104          i = 2;          i = 2;
1105          for (x = MMcdr(cursor);  !endp(x);  x = MMcdr(x))          for (x = MMcdr(cursor);  !endp(x);  x = MMcdr(x))
1106            { ind[i++] = MMcar(x);}            { ind[i++] = MMcar(x);}
1107          ind[i]=val;          ind[i]=val;
1108          VFUN_NARGS=i+1;          VFUN_NARGS=i+1;
1109          c_apply_n((object (*)())fSaset,i+1,ind);  
1110            /* FIXME do this with C macros */
1111            switch(i+1){
1112            case 3:  (*fSaset)(ind[0],fix(ind[1]),ind[2]);break;
1113            case 4:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3]);break;
1114            case 5:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4]);break;
1115            case 6:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5]);break;
1116            case 7:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6]);break;
1117            case 8:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7]);break;
1118            case 9:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1119                                   ind[8]);break;
1120            case 10:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1121                                    ind[8],ind[9]);break;
1122            case 11:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1123                                    ind[8],ind[9],ind[10]);break;
1124            case 12:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1125                                    ind[8],ind[9],ind[10],ind[11]);break;
1126            case 13:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1127                                    ind[8],ind[9],ind[10],ind[11],ind[12]);break;
1128            case 14:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1129                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13]);break;
1130            case 15:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1131                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14]);break;
1132            case 16:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1133                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1134                                    ind[15]);break;
1135            case 17:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1136                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1137                                    ind[15],ind[16]);break;
1138            case 18:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1139                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1140                                    ind[15],ind[16],ind[17]);break;
1141            case 19:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1142                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1143                                    ind[15],ind[16],ind[17],ind[18]);break;
1144            case 20:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1145                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1146                                    ind[15],ind[16],ind[17],ind[18],ind[19]);break;
1147            case 21:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1148                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1149                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20]);break;
1150            case 22:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1151                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1152                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21]);break;
1153            case 23:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1154                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1155                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1156                                    ind[22]);break;
1157            case 24:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1158                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1159                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1160                                    ind[22],ind[23]);break;
1161            case 25:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1162                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1163                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1164                                    ind[22],ind[23],ind[24]);break;
1165            case 26:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1166                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1167                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1168                                    ind[22],ind[23],ind[24],ind[25]);break;
1169            case 27:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1170                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1171                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1172                                    ind[22],ind[23],ind[24],ind[25],ind[26]);break;
1173            case 28:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1174                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1175                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1176                                    ind[22],ind[23],ind[24],ind[25],ind[26],ind[27]);break;
1177            case 29:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1178                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1179                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1180                                    ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28]);break;
1181            case 30:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1182                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1183                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1184                                    ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1185                                    ind[29]);break;
1186            case 31:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1187                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1188                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1189                                    ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1190                                    ind[29],ind[30]);break;
1191            case 32:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1192                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1193                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1194                                    ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1195                                    ind[29],ind[30],ind[31]);break;
1196            case 33:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1197                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1198                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1199                                    ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1200                                    ind[29],ind[30],ind[31],ind[32]);break;
1201            case 34:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1202                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1203                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1204                                    ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1205                                    ind[29],ind[30],ind[31],ind[32],ind[33]);break;
1206            case 35:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1207                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1208                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1209                                    ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1210                                    ind[29],ind[30],ind[31],ind[32],ind[33],ind[34]);break;
1211            case 36:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1212                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1213                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1214                                    ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1215                                    ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35]);break;
1216            case 37:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1217                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1218                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1219                                    ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1220                                    ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],
1221                                    ind[36]);break;
1222            case 38:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1223                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1224                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1225                                    ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1226                                    ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],
1227                                    ind[36],ind[37]);break;
1228            case 39:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1229                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1230                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1231                                    ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1232                                    ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],
1233                                    ind[36],ind[37],ind[38]);break;
1234            case 40:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1235                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1236                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1237                                    ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1238                                    ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],
1239                                    ind[36],ind[37],ind[38],ind[39]);break;
1240            case 41:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1241                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1242                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1243                                    ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1244                                    ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],
1245                                    ind[36],ind[37],ind[38],ind[39],ind[40]);break;
1246            case 42:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1247                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1248                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1249                                    ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1250                                    ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],
1251                                    ind[36],ind[37],ind[38],ind[39],ind[40],ind[41]);break;
1252            case 43:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1253                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1254                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1255                                    ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1256                                    ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],
1257                                    ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42]);break;
1258            case 44:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1259                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1260                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1261                                    ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1262                                    ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],
1263                                    ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],
1264                                    ind[43]);break;
1265            case 45:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1266                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1267                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1268                                    ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1269                                    ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],
1270                                    ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],
1271                                    ind[43],ind[44]);break;
1272            case 46:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1273                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1274                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1275                                    ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1276                                    ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],
1277                                    ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],
1278                                    ind[43],ind[44],ind[45]);break;
1279            case 47:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1280                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1281                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1282                                    ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1283                                    ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],
1284                                    ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],
1285                                    ind[43],ind[44],ind[45],ind[46]);break;
1286            case 48:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1287                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1288                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1289                                    ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1290                                    ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],
1291                                    ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],
1292                                    ind[43],ind[44],ind[45],ind[46],ind[47]);break;
1293            case 49:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1294                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1295                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1296                                    ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1297                                    ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],
1298                                    ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],
1299                                    ind[43],ind[44],ind[45],ind[46],ind[47],ind[48]);break;
1300            case 50:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1301                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1302                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1303                                    ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1304                                    ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],
1305                                    ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],
1306                                    ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49]);break;
1307            case 51:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1308                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1309                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1310                                    ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1311                                    ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],
1312                                    ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],
1313                                    ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49],
1314                                    ind[50]);break;
1315            case 52:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1316                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1317                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1318                                    ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1319                                    ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],
1320                                    ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],
1321                                    ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49],
1322                                    ind[50],ind[51]);break;
1323            case 53:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1324                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1325                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1326                                    ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1327                                    ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],
1328                                    ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],
1329                                    ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49],
1330                                    ind[50],ind[51],ind[52]);break;
1331            case 54:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1332                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1333                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1334                                    ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1335                                    ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],
1336                                    ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],
1337                                    ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49],
1338                                    ind[50],ind[51],ind[52],ind[53]);break;
1339            case 55:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1340                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1341                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1342                                    ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1343                                    ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],
1344                                    ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],
1345                                    ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49],
1346                                    ind[50],ind[51],ind[52],ind[53],ind[54]);break;
1347            case 56:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1348                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1349                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1350                                    ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1351                                    ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],
1352                                    ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],
1353                                    ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49],
1354                                    ind[50],ind[51],ind[52],ind[53],ind[54],ind[55]);break;
1355            case 57:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1356                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1357                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1358                                    ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1359                                    ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],
1360                                    ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],
1361                                    ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49],
1362                                    ind[50],ind[51],ind[52],ind[53],ind[54],ind[55],ind[56]);break;
1363            case 58:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1364                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1365                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1366                                    ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1367                                    ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],
1368                                    ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],
1369                                    ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49],
1370                                    ind[50],ind[51],ind[52],ind[53],ind[54],ind[55],ind[56],
1371                                    ind[57]);break;
1372            case 59:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1373                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1374                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1375                                    ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1376                                    ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],
1377                                    ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],
1378                                    ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49],
1379                                    ind[50],ind[51],ind[52],ind[53],ind[54],ind[55],ind[56],
1380                                    ind[57],ind[58]);break;
1381            case 60:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1382                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1383                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1384                                    ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1385                                    ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],
1386                                    ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],
1387                                    ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49],
1388                                    ind[50],ind[51],ind[52],ind[53],ind[54],ind[55],ind[56],
1389                                    ind[57],ind[58],ind[59]);break;
1390            case 61:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1391                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1392                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1393                                    ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1394                                    ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],
1395                                    ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],
1396                                    ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49],
1397                                    ind[50],ind[51],ind[52],ind[53],ind[54],ind[55],ind[56],
1398                                    ind[57],ind[58],ind[59],ind[60]);break;
1399            case 62:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1400                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1401                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1402                                    ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1403                                    ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],
1404                                    ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],
1405                                    ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49],
1406                                    ind[50],ind[51],ind[52],ind[53],ind[54],ind[55],ind[56],
1407                                    ind[57],ind[58],ind[59],ind[60],ind[61]);break;
1408            case 63:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1409                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1410                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1411                                    ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1412                                    ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],
1413                                    ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],
1414                                    ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49],
1415                                    ind[50],ind[51],ind[52],ind[53],ind[54],ind[55],ind[56],
1416                                    ind[57],ind[58],ind[59],ind[60],ind[61],ind[62]);break;
1417            case 64:  (*fSaset)(ind[0],fix(ind[1]),ind[2],ind[3],ind[4],ind[5],ind[6],ind[7],
1418                                    ind[8],ind[9],ind[10],ind[11],ind[12],ind[13],ind[14],
1419                                    ind[15],ind[16],ind[17],ind[18],ind[19],ind[20],ind[21],
1420                                    ind[22],ind[23],ind[24],ind[25],ind[26],ind[27],ind[28],
1421                                    ind[29],ind[30],ind[31],ind[32],ind[33],ind[34],ind[35],
1422                                    ind[36],ind[37],ind[38],ind[39],ind[40],ind[41],ind[42],
1423                                    ind[43],ind[44],ind[45],ind[46],ind[47],ind[48],ind[49],
1424                                    ind[50],ind[51],ind[52],ind[53],ind[54],ind[55],ind[56],
1425                                    ind[57],ind[58],ind[59],ind[60],ind[61],ind[62],ind[63]);break;
1426            default: FEerror("Exceeded call-arguments-limit ",0);
1427            }
1428            
1429          RETURN1(array);          RETURN1(array);
1430  }  }
1431    

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

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