libdtrace/common/dt_link.c

63 	dt_write(dtp, fd, (data), elf_file.shdr[(index)].sh_size) != \
100 prepare_elf32(dtrace_hdl_t *dtp, const dof_hdr_t *dof, dof_elf32_t *dep)
142 	if (dtp->dt_lazyload) {
152 		return (dt_set_errno(dtp, EDT_NOMEM));
157 		return (dt_set_errno(dtp, EDT_NOMEM));
163 		return (dt_set_errno(dtp, EDT_NOMEM));
260 	if (dtp->dt_lazyload) {
289 prepare_elf64(dtrace_hdl_t *dtp, const dof_hdr_t *dof, dof_elf64_t *dep)
331 	if (dtp->dt_lazyload) {
341 		return (dt_set_errno(dtp, EDT_NOMEM));
346 		return (dt_set_errno(dtp, EDT_NOMEM));
352 		return (dt_set_errno(dtp, EDT_NOMEM));
443 	if (dtp->dt_lazyload) {
464 dump_elf32(dtrace_hdl_t *dtp, const dof_hdr_t *dof, int fd)
477 	if (prepare_elf32(dtp, dof, &de) != 0)
574 		if (dt_write(dtp, fd, &elf_file,
580 			ret = dt_set_errno(dtp, errno);
594 		if (dt_write(dtp, fd, &elf_file,
601 			ret = dt_set_errno(dtp, errno);
618 dump_elf64(dtrace_hdl_t *dtp, const dof_hdr_t *dof, int fd)
631 	if (prepare_elf64(dtp, dof, &de) != 0)
731 		if (dt_write(dtp, fd, &elf_file,
737 			ret = dt_set_errno(dtp, errno);
751 		if (dt_write(dtp, fd, &elf_file,
758 			ret = dt_set_errno(dtp, errno);
804 dt_modtext(dtrace_hdl_t *dtp, char *p, int isenabled, GElf_Rela *rela,
863 dt_modtext(dtrace_hdl_t *dtp, char *p, int isenabled, GElf_Rela *rela,
884 dt_modtext(dtrace_hdl_t *dtp, char *p, int isenabled, GElf_Rela *rela,
963 dt_modtext(dtrace_hdl_t *dtp, char *p, int isenabled, GElf_Rela *rela,
1037 dt_modtext(dtrace_hdl_t *dtp, char *p, int isenabled, GElf_Rela *rela,
1074 	} else if (dtp->dt_oflags & DTRACE_O_LP64) {
1116 	} else if (dtp->dt_oflags & DTRACE_O_LP64) {
1141 dt_link_error(dtrace_hdl_t *dtp, Elf *elf, int fd, dt_link_pair_t *bufs,
1148 	dt_set_errmsg(dtp, NULL, NULL, NULL, 0, format, ap);
1159 		dt_free(dtp, pair->dlp_str);
1160 		dt_free(dtp, pair->dlp_sym);
1161 		dt_free(dtp, pair);
1164 	return (dt_set_errno(dtp, EDT_COMPILER));
1187 process_obj(dtrace_hdl_t *dtp, const char *obj, int *eprobesp)
1215 		return (dt_link_error(dtp, elf, fd, bufs,
1220 		return (dt_link_error(dtp, elf, fd, bufs,
1228 		return (dt_link_error(dtp, elf, fd, bufs, "archives are not "
1232 		return (dt_link_error(dtp, elf, fd, bufs,
1237 		return (dt_link_error(dtp, elf, fd, bufs, "corrupt file: %s",
1241 	if (dtp->dt_oflags & DTRACE_O_LP64) {
1269 		return (dt_link_error(dtp, elf, fd, bufs,
1274 		return (dt_link_error(dtp, elf, fd, bufs,
1284 		return (dt_link_error(dtp, elf, fd, bufs,
1411 				return (dt_link_error(dtp, elf, fd, bufs,
1425 			if ((p = dt_alloc(dtp, len)) == NULL) {
1447 			dt_free(dtp, p);
1471 			if ((pair = dt_alloc(dtp, sizeof (*pair))) == NULL)
1474 			if ((pair->dlp_str = dt_alloc(dtp, data_str->d_size +
1476 				dt_free(dtp, pair);
1480 			if ((pair->dlp_sym = dt_alloc(dtp, data_sym->d_size +
1482 				dt_free(dtp, pair->dlp_str);
1483 				dt_free(dtp, pair);
1633 			if ((pvp = dt_provider_lookup(dtp, pname)) == NULL) {
1634 				return (dt_link_error(dtp, elf, fd, bufs,
1640 				return (dt_link_error(dtp, elf, fd, bufs,
1644 				return (dt_link_error(dtp, elf, fd, bufs,
1650 			if (dt_modtext(dtp, data_tgt->d_buf, eprobe,
1655 				return (dt_link_error(dtp, elf, fd, bufs,
1701 		dt_free(dtp, pair->dlp_str);
1702 		dt_free(dtp, pair->dlp_sym);
1703 		dt_free(dtp, pair);
1709 	return (dt_link_error(dtp, elf, fd, bufs,
1714 dtrace_program_link(dtrace_hdl_t *dtp, dtrace_prog_t *pgp, uint_t dflags,
1733 		len = snprintf(&tmp, 1, fmt, dtp->dt_ld_path, file) + 1;
1740 		cur = snprintf(cmd, len, fmt, dtp->dt_ld_path, file);
1746 			return (dt_link_error(dtp, NULL, -1, NULL,
1747 			    "failed to run %s: %s", dtp->dt_ld_path,
1752 			return (dt_link_error(dtp, NULL, -1, NULL,
1754 			    file, dtp->dt_ld_path, WTERMSIG(status)));
1758 			return (dt_link_error(dtp, NULL, -1, NULL,
1760 			    file, dtp->dt_ld_path, WEXITSTATUS(status)));
1772 		if (process_obj(dtp, objv[i], &eprobes) != 0)
1783 	if ((dof = dtrace_dof_create(dtp, pgp, dflags)) == NULL)
1788 		return (dt_link_error(dtp, NULL, -1, NULL,
1796 	switch (dtp->dt_linktype) {
1798 		if (dt_write(dtp, fd, dof, dof->dofh_filesz) < dof->dofh_filesz)
1805 			return (dt_link_error(dtp, NULL, -1, NULL,
1815 		return (dt_link_error(dtp, NULL, -1, NULL,
1816 		    "invalid link type %u\n", dtp->dt_linktype));
1820 	if (dtp->dt_oflags & DTRACE_O_LP64)
1821 		status = dump_elf64(dtp, dof, fd);
1823 		status = dump_elf32(dtp, dof, fd);
1826 		return (dt_link_error(dtp, NULL, -1, NULL,
1828 		    strerror(dtrace_errno(dtp))));
1830 	if (!dtp->dt_lazyload) {
1832 		dt_dirpath_t *dp = dt_list_next(&dtp->dt_lib_path);
1836 		len = snprintf(&tmp, 1, fmt, dtp->dt_ld_path, file, tfile,
1841 		(void) snprintf(cmd, len, fmt, dtp->dt_ld_path, file, tfile,
1844 			ret = dt_link_error(dtp, NULL, fd, NULL,
1845 			    "failed to run %s: %s", dtp->dt_ld_path,
1851 			ret = dt_link_error(dtp, NULL, fd, NULL,
1853 			    file, dtp->dt_ld_path, WTERMSIG(status));
1858 			ret = dt_link_error(dtp, NULL, fd, NULL,
1860 			    file, dtp->dt_ld_path, WEXITSTATUS(status));
1873 		asprintf(&cmd, "%s --localize-hidden %s", dtp->dt_objcopy_path,
1876 			ret = dt_link_error(dtp, NULL, -1, NULL,
1877 			    "failed to run %s: %s", dtp->dt_objcopy_path,
1885 			ret = dt_link_error(dtp, NULL, -1, NULL,
1887 			    file, dtp->dt_objcopy_path, WTERMSIG(status));
1892 			ret = dt_link_error(dtp, NULL, -1, NULL,
1894 			    file, dtp->dt_objcopy_path, WEXITSTATUS(status));
1899 			ret = dt_link_error(dtp, NULL, fd, NULL,
1908 	dtrace_dof_destroy(dtp, dof);
1910 	if (!dtp->dt_lazyload)