| 6563 | } |
| 6564 | |
| 6565 | BOOLEAN iiCheckTypes(leftv args, const short *type_list, int report) |
| 6566 | { |
| 6567 | int l=0; |
| 6568 | if (args==NULL) |
| 6569 | { |
| 6570 | if (type_list[0]==0) return TRUE; |
| 6571 | } |
| 6572 | else l=args->listLength(); |
| 6573 | if (l!=(int)type_list[0]) |
| 6574 | { |
| 6575 | if (report) iiReportTypes(0,l,type_list); |
| 6576 | return FALSE; |
| 6577 | } |
| 6578 | for(int i=1;i<=l;i++,args=args->next) |
| 6579 | { |
| 6580 | short t=type_list[i]; |
| 6581 | if (t!=ANY_TYPE) |
| 6582 | { |
| 6583 | if (((t==IDHDL)&&(args->rtyp!=IDHDL)) |
| 6584 | || (t!=args->Typ())) |
| 6585 | { |
| 6586 | if (report) iiReportTypes(i,args->Typ(),type_list); |
| 6587 | return FALSE; |
| 6588 | } |
| 6589 | } |
| 6590 | } |
| 6591 | return TRUE; |
| 6592 | } |
| 6593 | |
| 6594 | #if 0 |
| 6595 | void iiReportMethods(int args, int iiOp, char* cmd) |
no test coverage detected