libdtrace/common/dt_open.c

1011 	dt_module_t *dmp;
1335 	if ((dmp = dtp->dt_cdefs = dt_module_create(dtp, "C")) == NULL)
1338 	if ((dmp->dm_ctfp = ctf_create(&dtp->dt_ctferr)) == NULL)
1342 	    dmp->dm_name, (void *)dmp->dm_ctfp);
1344 	(void) ctf_setmodel(dmp->dm_ctfp, dtp->dt_conf.dtc_ctfmodel);
1345 	ctf_setspecific(dmp->dm_ctfp, dmp);
1347 	dmp->dm_flags = DT_DM_LOADED; /* fake up loaded bit */
1348 	dmp->dm_modid = -1; /* no module ID */
1356 			err = ctf_add_integer(dmp->dm_ctfp, CTF_ADD_ROOT,
1359 			err = ctf_add_float(dmp->dm_ctfp, CTF_ADD_ROOT,
1366 			    ctf_errno(dmp->dm_ctfp)));
1371 	if (ctf_update(dmp->dm_ctfp) != 0) {
1373 		    ctf_errmsg(ctf_errno(dmp->dm_ctfp)));
1381 	(void) ctf_add_pointer(dmp->dm_ctfp, CTF_ADD_ROOT,
1382 	    ctf_lookup_by_name(dmp->dm_ctfp, "void"));
1384 	(void) ctf_add_pointer(dmp->dm_ctfp, CTF_ADD_ROOT,
1385 	    ctf_lookup_by_name(dmp->dm_ctfp, "char"));
1387 	(void) ctf_add_pointer(dmp->dm_ctfp, CTF_ADD_ROOT,
1388 	    ctf_lookup_by_name(dmp->dm_ctfp, "int"));
1390 	if (ctf_update(dmp->dm_ctfp) != 0) {
1392 		    ctf_errmsg(ctf_errno(dmp->dm_ctfp)));
1401 	if ((dmp = dtp->dt_ddefs = dt_module_create(dtp, "D")) == NULL)
1404 	if ((dmp->dm_ctfp = ctf_create(&dtp->dt_ctferr)) == NULL)
1408 	    dmp->dm_name, (void *)dmp->dm_ctfp);
1410 	(void) ctf_setmodel(dmp->dm_ctfp, dtp->dt_conf.dtc_ctfmodel);
1411 	ctf_setspecific(dmp->dm_ctfp, dmp);
1413 	dmp->dm_flags = DT_DM_LOADED; /* fake up loaded bit */
1414 	dmp->dm_modid = -1; /* no module ID */
1416 	if (ctf_import(dmp->dm_ctfp, dtp->dt_cdefs->dm_ctfp) == CTF_ERR) {
1418 		    ctf_errmsg(ctf_errno(dmp->dm_ctfp)));
1428 		if (ctf_add_typedef(dmp->dm_ctfp, CTF_ADD_ROOT,
1429 		    dtyp->dty_dst, ctf_lookup_by_name(dmp->dm_ctfp,
1433 			    ctf_errmsg(ctf_errno(dmp->dm_ctfp)));
1443 	ctc.ctc_return = ctf_lookup_by_name(dmp->dm_ctfp, "int");
1447 	dtp->dt_type_func = ctf_add_function(dmp->dm_ctfp,
1450 	dtp->dt_type_fptr = ctf_add_pointer(dmp->dm_ctfp,
1459 	ctr.ctr_contents = ctf_lookup_by_name(dmp->dm_ctfp, "char");
1460 	ctr.ctr_index = ctf_lookup_by_name(dmp->dm_ctfp, "long");
1463 	dtp->dt_type_str = ctf_add_typedef(dmp->dm_ctfp, CTF_ADD_ROOT,
1464 	    "string", ctf_add_array(dmp->dm_ctfp, CTF_ADD_ROOT, &ctr));
1466 	dtp->dt_type_dyn = ctf_add_typedef(dmp->dm_ctfp, CTF_ADD_ROOT,
1467 	    "<DYN>", ctf_lookup_by_name(dmp->dm_ctfp, "void"));
1469 	dtp->dt_type_stack = ctf_add_typedef(dmp->dm_ctfp, CTF_ADD_ROOT,
1470 	    "stack", ctf_lookup_by_name(dmp->dm_ctfp, "void"));
1472 	dtp->dt_type_symaddr = ctf_add_typedef(dmp->dm_ctfp, CTF_ADD_ROOT,
1473 	    "_symaddr", ctf_lookup_by_name(dmp->dm_ctfp, "void"));
1475 	dtp->dt_type_usymaddr = ctf_add_typedef(dmp->dm_ctfp, CTF_ADD_ROOT,
1476 	    "_usymaddr", ctf_lookup_by_name(dmp->dm_ctfp, "void"));
1483 		    ctf_errmsg(ctf_errno(dmp->dm_ctfp)));
1487 	if (ctf_update(dmp->dm_ctfp) != 0) {
1489 		    ctf_errmsg(ctf_errno(dmp->dm_ctfp)));
1575 	dt_module_t *dmp;
1607 	while ((dmp = dt_list_next(&dtp->dt_modlist)) != NULL)
1608 		dt_module_destroy(dtp, dmp);