| 6323 | } |
| 6324 | |
| 6325 | void paPrint(const char *n,package p) |
| 6326 | { |
| 6327 | Print(" %s (",n); |
| 6328 | switch (p->language) |
| 6329 | { |
| 6330 | case LANG_SINGULAR: PrintS("S"); break; |
| 6331 | case LANG_C: PrintS("C"); break; |
| 6332 | case LANG_TOP: PrintS("T"); break; |
| 6333 | case LANG_MAX: PrintS("M"); break; |
| 6334 | case LANG_NONE: PrintS("N"); break; |
| 6335 | default: PrintS("U"); |
| 6336 | } |
| 6337 | if(p->libname!=NULL) |
| 6338 | Print(",%s", p->libname); |
| 6339 | PrintS(")"); |
| 6340 | } |
| 6341 | |
| 6342 | BOOLEAN iiApplyINTVEC(leftv res, leftv a, int op, leftv proc) |
| 6343 | { |