libdtrace/common/dt_open.c

1027 	dt_module_t *dmp;
1372 	if ((dmp = dtp->dt_cdefs = dt_module_create(dtp, "C")) == NULL)
1375 	if ((dmp->dm_ctfp = ctf_create(&dtp->dt_ctferr)) == NULL)
1379 	    dmp->dm_name, (void *)dmp->dm_ctfp);
1381 	(void) ctf_setmodel(dmp->dm_ctfp, dtp->dt_conf.dtc_ctfmodel);
1382 	ctf_setspecific(dmp->dm_ctfp, dmp);
1384 	dmp->dm_flags = DT_DM_LOADED; /* fake up loaded bit */
1385 	dmp->dm_modid = -1; /* no module ID */
1393 			err = ctf_add_integer(dmp->dm_ctfp, CTF_ADD_ROOT,
1396 			err = ctf_add_float(dmp->dm_ctfp, CTF_ADD_ROOT,
1403 			    ctf_errno(dmp->dm_ctfp)));
1408 	if (ctf_update(dmp->dm_ctfp) != 0) {
1410 		    ctf_errmsg(ctf_errno(dmp->dm_ctfp)));
1418 	(void) ctf_add_pointer(dmp->dm_ctfp, CTF_ADD_ROOT,
1419 	    ctf_lookup_by_name(dmp->dm_ctfp, "void"));
1421 	(void) ctf_add_pointer(dmp->dm_ctfp, CTF_ADD_ROOT,
1422 	    ctf_lookup_by_name(dmp->dm_ctfp, "char"));
1424 	(void) ctf_add_pointer(dmp->dm_ctfp, CTF_ADD_ROOT,
1425 	    ctf_lookup_by_name(dmp->dm_ctfp, "int"));
1427 	if (ctf_update(dmp->dm_ctfp) != 0) {
1429 		    ctf_errmsg(ctf_errno(dmp->dm_ctfp)));
1438 	if ((dmp = dtp->dt_ddefs = dt_module_create(dtp, "D")) == NULL)
1441 	if ((dmp->dm_ctfp = ctf_create(&dtp->dt_ctferr)) == NULL)
1445 	    dmp->dm_name, (void *)dmp->dm_ctfp);
1447 	(void) ctf_setmodel(dmp->dm_ctfp, dtp->dt_conf.dtc_ctfmodel);
1448 	ctf_setspecific(dmp->dm_ctfp, dmp);
1450 	dmp->dm_flags = DT_DM_LOADED; /* fake up loaded bit */
1451 	dmp->dm_modid = -1; /* no module ID */
1453 	if (ctf_import(dmp->dm_ctfp, dtp->dt_cdefs->dm_ctfp) == CTF_ERR) {
1455 		    ctf_errmsg(ctf_errno(dmp->dm_ctfp)));
1465 		if (ctf_add_typedef(dmp->dm_ctfp, CTF_ADD_ROOT,
1466 		    dtyp->dty_dst, ctf_lookup_by_name(dmp->dm_ctfp,
1470 			    ctf_errmsg(ctf_errno(dmp->dm_ctfp)));
1480 	ctc.ctc_return = ctf_lookup_by_name(dmp->dm_ctfp, "int");
1484 	dtp->dt_type_func = ctf_add_function(dmp->dm_ctfp,
1487 	dtp->dt_type_fptr = ctf_add_pointer(dmp->dm_ctfp,
1496 	ctr.ctr_contents = ctf_lookup_by_name(dmp->dm_ctfp, "char");
1497 	ctr.ctr_index = ctf_lookup_by_name(dmp->dm_ctfp, "long");
1500 	dtp->dt_type_str = ctf_add_typedef(dmp->dm_ctfp, CTF_ADD_ROOT,
1501 	    "string", ctf_add_array(dmp->dm_ctfp, CTF_ADD_ROOT, &ctr));
1503 	dtp->dt_type_dyn = ctf_add_typedef(dmp->dm_ctfp, CTF_ADD_ROOT,
1504 	    "<DYN>", ctf_lookup_by_name(dmp->dm_ctfp, "void"));
1506 	dtp->dt_type_stack = ctf_add_typedef(dmp->dm_ctfp, CTF_ADD_ROOT,
1507 	    "stack", ctf_lookup_by_name(dmp->dm_ctfp, "void"));
1509 	dtp->dt_type_symaddr = ctf_add_typedef(dmp->dm_ctfp, CTF_ADD_ROOT,
1510 	    "_symaddr", ctf_lookup_by_name(dmp->dm_ctfp, "void"));
1512 	dtp->dt_type_usymaddr = ctf_add_typedef(dmp->dm_ctfp, CTF_ADD_ROOT,
1513 	    "_usymaddr", ctf_lookup_by_name(dmp->dm_ctfp, "void"));
1520 		    ctf_errmsg(ctf_errno(dmp->dm_ctfp)));
1524 	if (ctf_update(dmp->dm_ctfp) != 0) {
1526 		    ctf_errmsg(ctf_errno(dmp->dm_ctfp)));
1623 	dt_module_t *dmp;
1668 	while ((dmp = dt_list_next(&dtp->dt_modlist)) != NULL)
1669 		dt_module_destroy(dtp, dmp);