libdtrace/common/dt_parser.c

754 	dt_ident_t *idp;
763 		idp = dt_ident_resolve(dnp->dn_ident);
764 		return (idp->di_kind == idkind ? idp : NULL);
768 		idp = dt_ident_resolve(dnp->dn_ident);
769 		return (idp->di_kind == idkind ? idp : NULL);
1272 	dt_ident_t *idp;
1284 	if ((idp = dt_idstack_lookup(&yypcb->pcb_globals, name)) != NULL &&
1285 	    (idp->di_flags & DT_IDFLG_INLINE)) {
1286 		dt_idnode_t *inp = idp->di_iarg;
1517 		dt_ident_t *idp;
1527 			idp = dt_idhash_lookup(dhp, dsp->ds_ident);
1532 			idp = dt_idhash_lookup(dhp, dsp->ds_ident);
1537 			idp = dt_idstack_lookup(
1548 		if (idp != NULL && idp->di_gen == 0) {
1550 			    "redeclared: %s\n", idp->di_name);
1583 		if (idp != NULL && idp->di_type != CTF_ERR)
1584 			dt_node_type_assign(&idn, idp->di_ctfp, idp->di_type);
1585 		else if (idp != NULL)
1586 			(void) dt_ident_cook(&idn, idp, NULL);
1599 		if (idp != NULL && (idp->di_kind != idkind ||
1607 			    dt_idkind_name(idp->di_kind),
1610 		} else if (idp != NULL && assc) {
1611 			const dt_idsig_t *isp = idp->di_data;
1632 				    dt_idkind_name(idp->di_kind), argc + 1,
1644 				    dt_idkind_name(idp->di_kind),
1649 		} else if (idp == NULL) {
1684 			idp = dt_idhash_insert(dhp, dsp->ds_ident, idkind,
1689 			if (idp == NULL)
1692 			dt_ident_type_assign(idp, dtt.dtt_ctfp, dtt.dtt_type);
1703 				idp->di_attr =
1704 				    dt_ident_cook(&idn, idp, &ddp->dd_node);
1720 	dt_ident_t *idp;
1727 	idp = dt_idstack_lookup(&yypcb->pcb_globals, dnp->dn_string);
1729 	if (idp == NULL) {
1734 	if (idp->di_kind != DT_IDENT_FUNC &&
1735 	    idp->di_kind != DT_IDENT_AGGFUNC &&
1736 	    idp->di_kind != DT_IDENT_ACTFUNC) {
1738 		    "function\n", dt_idkind_name(idp->di_kind), idp->di_name);
1746 	dnp->dn_ident = idp;
2189 	dt_ident_t *idp, *rdp;
2204 	if ((idp = dt_idstack_lookup(
2208 		    idp->di_name, dt_idkind_name(idp->di_kind),
2209 		    (idp->di_flags & DT_IDFLG_INLINE) ? "inline" : "");
2257 	idp = dnp->dn_ident = dt_ident_create(dsp->ds_ident,
2262 	if (idp == NULL) {
2345 		idp->di_flags |= (rdp->di_flags &
2349 	idp->di_attr = dt_attr_min(_dtrace_defattr, expr->dn_attr);
2350 	dt_ident_type_assign(idp, dtt.dtt_ctfp, dtt.dtt_type);
2351 	(void) dt_ident_cook(dnp, idp, &ddp->dd_node);
2354 	 * Store the parse tree nodes for 'expr' inside of idp->di_data ('inp')
2368 	dt_idhash_xinsert(dtp->dt_globals, idp);
2596 	dt_ident_t *idp;
2647 	    (idp = dt_idhash_lookup(dhp, name)) != NULL) ||
2649 	    (idp = dt_idstack_lookup(&yypcb->pcb_globals, name)) != NULL))) {
2656 		if (idp->di_kind != idkind && dhp == dtp->dt_globals) {
2658 			    "as %s\n", dt_idkind_name(idp->di_kind),
2659 			    idp->di_name, dt_idkind_name(idkind));
2667 		if (idp->di_kind != DT_IDENT_ARRAY &&
2668 		    idp->di_kind != DT_IDENT_AGG)
2669 			attr = dt_ident_cook(dnp, idp, NULL);
2673 			attr = idp->di_attr;
2679 		dnp->dn_ident = idp;
2682 		if (idp->di_flags & DT_IDFLG_WRITE)
2722 		idp = dt_ident_create(name, DT_IDENT_SYMBOL, 0, 0,
2725 		if (idp == NULL)
2729 			idp->di_flags |= DT_IDFLG_PRIM;
2731 		idp->di_next = dtp->dt_externs;
2732 		dtp->dt_externs = idp;
2738 		idp->di_data = sip;
2739 		idp->di_ctfp = dtt.dtt_ctfp;
2740 		idp->di_type = dtt.dtt_type;
2745 		dnp->dn_ident = idp;
2752 			idp->di_flags |= DT_IDFLG_USER;
2774 			idp = dt_idhash_insert(dhp, name,
2778 			idp = dt_idhash_insert(dhp, name,
2783 		if (idp == NULL)
2791 		if (idp->di_kind != DT_IDENT_ARRAY &&
2792 		    idp->di_kind != DT_IDENT_AGG)
2793 			attr = dt_ident_cook(dnp, idp, NULL);
2797 			attr = idp->di_attr;
2803 		dnp->dn_ident = idp;
2840 	dt_ident_t *idp = dnp->dn_ident;
2842 	if ((idflags & DT_IDFLG_REF) && dt_ident_unref(idp)) {
2845 		    (idp->di_flags & DT_IDFLG_LOCAL) ? "this->" :
2846 		    (idp->di_flags & DT_IDFLG_TLS) ? "self->" : "",
2847 		    idp->di_name);
2850 	dt_node_attr_assign(dnp, dt_ident_cook(dnp, idp, &dnp->dn_args));
2872 	dt_ident_t *idp;
2911 		if ((idp = dt_node_resolve(cp, DT_IDENT_XLPTR)) != NULL) {
2912 			dt_xlator_t *dxp = idp->di_data;
3129 	dt_ident_t *idp;
3148 				idp = dt_idhash_lookup(dhp, lp->dn_string + 1);
3152 				idp = dt_idstack_lookup(
3157 			if (idp == NULL || dt_ident_unref(idp))
3160 				dt_xcook_ident(lp, dhp, idp->di_kind, B_FALSE);
3274 			if ((idp = dt_idstack_lookup(&yypcb->pcb_globals,
3281 				    dt_idkind_name(idp->di_kind));
3495 		if ((idp = dt_node_resolve(rp, DT_IDENT_XLSOU)) != NULL) {
3496 			ctfp = idp->di_ctfp;
3497 			type = idp->di_type;
3498 			uref = idp->di_flags & DT_IDFLG_USER;
3541 		if (idp != NULL && idp->di_kind == DT_IDENT_XLSOU &&
3647 		if ((idp = dt_node_resolve(lp, DT_IDENT_XLSOU)) != NULL ||
3648 		    (idp = dt_node_resolve(lp, DT_IDENT_XLPTR)) != NULL) {
3653 			dt_xlator_t *dxp = idp->di_data;
3661 			ctfp = idp->di_ctfp;
3662 			type = ctf_type_resolve(ctfp, idp->di_type);
3663 			uref = idp->di_flags & DT_IDFLG_USER;
3776 		idp = lp->dn_ident;
3783 		if (idp->di_kind == DT_IDENT_SCALAR && dt_ident_unref(idp) &&
3784 		    (idp->di_flags & (DT_IDFLG_LOCAL | DT_IDFLG_TLS)) != 0) {
3786 			if (idp->di_flags & DT_IDFLG_LOCAL) {
3789 				    "associative arrays: %s\n", idp->di_name);
3793 			    "array\n", idp->di_name, idp->di_id);
3795 			dt_ident_morph(idp, DT_IDENT_ARRAY,
3799 		if (idp->di_kind != DT_IDENT_ARRAY) {
3801 			    "as %s\n", dt_idkind_name(idp->di_kind),
3802 			    idp->di_name, dt_idkind_name(DT_IDENT_ARRAY));