static char * tyscm_type_name (struct type *type, SCM *excp) { char *name = NULL; TRY { struct cleanup *old_chain; struct ui_file *stb; stb = mem_fileopen (); old_chain = make_cleanup_ui_file_delete (stb); LA_PRINT_TYPE (type, "", stb, -1, 0, &type_print_raw_options); name = ui_file_xstrdup (stb, NULL); do_cleanups (old_chain); } CATCH (except, RETURN_MASK_ALL) { *excp = gdbscm_scm_from_gdb_exception (except); return NULL; }
void type_print(struct type *type, const char *varstring, struct ui_file *stream, int show) { LA_PRINT_TYPE(type, varstring, stream, show, 0); }