if (!strcmp(upp_case, "INT")) upp_case="LONG"; if (!strcmp(upp_case, "U_INT")) upp_case="U_LONG";
if (!strcmp (upp_case, "INT")) { free (upp_case); freed = 1; upp_case = "LONG"; }
emit_single_in_line(declaration *decl, int flag, relation rel){	char *upp_case1;	const char *upp_case;	if (flag == PUT) {	    f_print(fout,"\t\t IXDR_PUT_");	}	else {	    if(rel== REL_ALIAS) {		f_print(fout, "\t\t objp->%s = IXDR_GET_", decl->name);	    }	    else {		f_print(fout,"\t\t *genp++ = IXDR_GET_");	    }	}	upp_case1 = upcase(decl->type);	upp_case = upp_case1;	/* hack  - XX */	if (!strcmp(upp_case, "INT")) upp_case="LONG";	if (!strcmp(upp_case, "U_INT")) upp_case="U_LONG";	if (flag == PUT) {	    if (rel==REL_ALIAS) {		f_print(fout,"%s(buf,objp->%s);\n",upp_case,decl->name);	    }	    else {		f_print(fout,"%s(buf,*genp++);\n",upp_case);	    }	}	else {	    f_print(fout,"%s(buf);\n",upp_case);	}	free(upp_case1);}