4099   char **types;             /* A hash table of datatypes */  in print_stack_union()  local
4109   types = (char**)calloc( arraysize, sizeof(char*) );  in print_stack_union()
4110   if( types==0 ){  in print_stack_union()
4114   for(i=0; i<arraysize; i++) types[i] = 0;  in print_stack_union()
4165     while( types[hash] ){  in print_stack_union()
4166       if( strcmp(types[hash],stddt)==0 ){  in print_stack_union()
4173     if( types[hash]==0 ){  in print_stack_union()
4175       types[hash] = (char*)malloc( lemonStrlen(stddt)+1 );  in print_stack_union()
4176       if( types[hash]==0 ){  in print_stack_union()
4180       lemon_strcpy(types[hash],stddt);  in print_stack_union()
4195     if( types[i]==0 ) continue;  in print_stack_union()
4196     fprintf(out,"  %s yy%d;\n",types[i],i+1); lineno++;  in print_stack_union()
4197     free(types[i]);  in print_stack_union()
4203   free(types);  in print_stack_union()