-
- void* vv = stgConInfo(con);
- if (!(nItblNames < (M_ITBLNAMES-2)))
- internal("alloc -- M_ITBLNAMES too small");
- if (isName(con)) {
- itblNames[nItblNames++] = vv;
- itblNames[nItblNames++] = textToStr(name(con).text);
- } else
- if (isTuple(con)) {
- char* cc = malloc(10);
- assert(cc);
- sprintf(cc, "Tuple%d", tupleOf(con) );
- itblNames[nItblNames++] = vv;
- itblNames[nItblNames++] = cc;
- } else
- assert ( /* cant identify constructor name */ 0 );
-
- setPos(v,asmAllocCONSTR(bco, vv));