if(td->type_name){
for(i=0;i<fac->named_types_number; i++){
if(fac->named_types[i] == NULL) break;
name = fac->named_types[i]->type_name;
if(strcmp(name, td->type_name)==0){
if(td->type_name){
for(i=0;i<fac->named_types_number; i++){
if(fac->named_types[i] == NULL) break;
name = fac->named_types[i]->type_name;
if(strcmp(name, td->type_name)==0){