58     type_T *ret;  in alloc_type()  local
67     ret = ALLOC_ONE(type_T);  in alloc_type()
68     *ret = *type;  in alloc_type()
70     if (ret->tt_member != NULL)  in alloc_type()
71 	ret->tt_member = alloc_type(ret->tt_member);  in alloc_type()
76 	ret->tt_args = ALLOC_MULT(type_T *, type->tt_argcount);  in alloc_type()
77 	if (ret->tt_args != NULL)  in alloc_type()
79 		ret->tt_args[i] = alloc_type(type->tt_args[i]);  in alloc_type()
82     return ret;  in alloc_type()
538     int ret = OK;  in check_type()  local
564 		ret = check_type(expected->tt_member, actual->tt_member,  in check_type()
573 		ret = check_type(expected->tt_member, actual->tt_member,  in check_type()
575 	    if (ret == OK && expected->tt_argcount != -1  in check_type()
580 		ret = FAIL;  in check_type()
581 	    if (ret == OK && expected->tt_args != NULL  in check_type()
592 			ret = FAIL;  in check_type()
597 	if (ret == FAIL && give_msg)  in check_type()
600     return ret;  in check_type()