libdtrace/common/dt_program.c

43 dt_program_create(dtrace_hdl_t *dtp)
45 	dtrace_prog_t *pgp = dt_zalloc(dtp, sizeof (dtrace_prog_t));
48 		dt_list_append(&dtp->dt_programs, pgp);
50 		(void) dt_set_errno(dtp, EDT_NOMEM);
65 dt_program_destroy(dtrace_hdl_t *dtp, dtrace_prog_t *pgp)
72 		dtrace_stmt_destroy(dtp, stp->ds_desc);
73 		dt_free(dtp, stp);
77 		dt_free(dtp, pgp->dp_xrefs[i]);
79 	dt_free(dtp, pgp->dp_xrefs);
80 	dt_list_delete(&dtp->dt_programs, pgp);
81 	dt_free(dtp, pgp);
86 dtrace_program_info(dtrace_hdl_t *dtp, dtrace_prog_t *pgp,
153 dtrace_program_exec(dtrace_hdl_t *dtp, dtrace_prog_t *pgp,
160 	dtrace_program_info(dtp, pgp, pip);
162 	if ((dof = dtrace_dof_create(dtp, pgp, DTRACE_D_STRIP)) == NULL)
167 	n = dt_ioctl(dtp, DTRACEIOC_ENABLE, &args);
168 	dtrace_dof_destroy(dtp, dof);
188 		return (dt_set_errno(dtp, err));
204 dt_ecbdesc_release(dtrace_hdl_t *dtp, dtrace_ecbdesc_t *edp)
209 	dt_difo_free(dtp, edp->dted_pred.dtpdd_difo);
211 	dt_free(dtp, edp);
215 dt_ecbdesc_create(dtrace_hdl_t *dtp, const dtrace_probedesc_t *pdp)
219 	if ((edp = dt_zalloc(dtp, sizeof (dtrace_ecbdesc_t))) == NULL) {
220 		(void) dt_set_errno(dtp, EDT_NOMEM);
230 dtrace_stmt_create(dtrace_hdl_t *dtp, dtrace_ecbdesc_t *edp)
234 	if ((sdp = dt_zalloc(dtp, sizeof (dtrace_stmtdesc_t))) == NULL)
246 dtrace_stmt_action(dtrace_hdl_t *dtp, dtrace_stmtdesc_t *sdp)
251 	if ((new = dt_alloc(dtp, sizeof (dtrace_actdesc_t))) == NULL)
281 dtrace_stmt_add(dtrace_hdl_t *dtp, dtrace_prog_t *pgp, dtrace_stmtdesc_t *sdp)
283 	dt_stmt_t *stp = dt_alloc(dtp, sizeof (dt_stmt_t));
295 dtrace_stmt_iter(dtrace_hdl_t *dtp, dtrace_prog_t *pgp,
303 		if ((status = func(dtp, pgp, stp->ds_desc, data)) != 0)
311 dtrace_stmt_destroy(dtrace_hdl_t *dtp, dtrace_stmtdesc_t *sdp)
348 			dt_difo_free(dtp, ap->dtad_difo);
350 			dt_free(dtp, ap);
356 	dt_free(dtp, sdp->dtsd_strdata);
358 	dt_ecbdesc_release(dtp, sdp->dtsd_ecbdesc);
359 	dt_free(dtp, sdp);
407 	dtrace_hdl_t *dtp = infop->dthi_dtp;
424 		return (dt_set_errno(dtp, errno));
430 			return (dt_set_errno(dtp, errno));
434 			return (dt_set_errno(dtp, errno));
438 		return (dt_set_errno(dtp, errno));
441 		return (dt_set_errno(dtp, errno));
450 		return (dt_set_errno(dtp, errno));
460 	dtrace_hdl_t *dtp = infop->dthi_dtp;
478 		return (dt_set_errno(dtp, errno));
482 			return (dt_set_errno(dtp, errno));
486 			return (dt_set_errno(dtp, errno));
491 			return (dt_set_errno(dtp, errno));
495 			return (dt_set_errno(dtp, errno));
499 				return (dt_set_errno(dtp, errno));
503 				return (dt_set_errno(dtp, errno));
508 		return (dt_set_errno(dtp, errno));
523 			return (dt_set_errno(dtp, errno));
528 			return (dt_set_errno(dtp, errno));
535 dt_header_provider(dtrace_hdl_t *dtp, dt_provider_t *pvp, FILE *out)
552 	info.dthi_dtp = dtp;
564 		return (dt_set_errno(dtp, errno));
567 		return (dt_set_errno(dtp, errno));
572 		return (dt_set_errno(dtp, errno));
577 		return (dt_set_errno(dtp, errno));
585 		return (dt_set_errno(dtp, errno));
591 dtrace_program_header(dtrace_hdl_t *dtp, FILE *out, const char *fname)
604 			return (dt_set_errno(dtp, errno));
613 	for (pvp = dt_list_next(&dtp->dt_provlist);
615 		if (dt_header_provider(dtp, pvp, out) != 0)
620 		return (dt_set_errno(dtp, errno));
623 		return (dt_set_errno(dtp, errno));