Lines Matching refs:mk_id
651 itemp->ast = mk_id(sptr); in gen_defer_shape()
673 itemp->ast = mk_id(sptr); in gen_defer_shape()
697 itemp->ast = mk_id(sptr); in gen_defer_shape()
719 ast = check_member(astparent, mk_id(sptr)); in gen_defer_shape()
749 itemp->ast = mk_id(sptr); in add_p_dealloc_item()
1660 ast = mk_id(sptr); in init_sptr_w_acl()
1955 id = mk_id(doinfo->index_var); in compute_size_ido()
2026 newid = mk_id(dovar); in compute_size_ido()
2030 sumid = mk_id(sum); in compute_size_ido()
2288 tmpids[sub_i] = mk_id(get_temp(astb.bnd.dtype)); in get_subscripting_tmp()
2400 dest = mk_id(id); in mkexpr_assign_temp()
2611 func_ast = mk_id(intast_sym[I_NULL]); in gen_null_intrin()
2752 aast = mk_id(asptr); in _constructf90()
2757 aast = mk_id(asptr); in _constructf90()
2800 ast = mk_id(mem_sptr); in _constructf90()
2810 ast = mk_id(tmpsptr); in _constructf90()
2827 ast = mk_id(tmpsptr); in _constructf90()
2967 dovar = mk_id(iv); in _constructf90()
3013 ARGT_ARG(argt, 1) = mk_id(get_static_type_descriptor(dest_td_sym)); in _constructf90()
3015 ARGT_ARG(argt, 3) = mk_id(get_static_type_descriptor(src_td_sym)); in _constructf90()
3017 ast = mk_id(sym_mkfunc_nodesc(mkRteRtnNm(RTE_poly_asn), DT_NONE)); in _constructf90()
3049 ast_replace_index(mk_id(odovar), mk_id(dovar)); in _constructf90()
3069 ast_replace(mk_id(odovar), mk_id(dovar)); in _constructf90()
3151 acs.tmpid = mk_id(arr); in constructf90()
4504 ast = mk_id(sptr); in rewrite_acl()
4798 int ast = mk_id(arr); in dinit_constructor()
5955 newast = check_member(ast, mk_id(sdsc)); in chk_struct_constructor()
5983 newast = check_member(ast, mk_id(ptroff)); in chk_struct_constructor()
6011 newast = check_member(ast, mk_id(midnum)); in chk_struct_constructor()
7347 subs[i] = mk_id(get_temp(astb.bnd.dtype)); in dinit_varref()
7482 ast = mk_id(sptr); in allocate_temp()
7489 len = mk_id(cvlen); in allocate_temp()
7712 clen = ast_intr(I_LEN, astb.bnd.dtype, 1, mk_id(sptr)); in get_ch_temp()
11394 int src_ast = mk_id(prototype); in gen_derived_type_alloc_init()
11502 tmp = mk_id(get_temp(DT_INT4)); in gen_alloc_dealloc()
11587 gen_alloc_dealloc(TK_DEALLOCATE, mk_id(sptr), 0); in gen_dealloc_etmps()
11725 arg0 = check_member(memAst, mk_id(desc)); in gen_finalization_for_sym()
11726 std = gen_set_type(arg0, mk_id(st_type), std, FALSE, FALSE); in gen_finalization_for_sym()
11735 ARGT_ARG(argt, 0) = check_member(memAst, mk_id(sptr)); in gen_finalization_for_sym()
11736 ARGT_ARG(argt, 1) = check_member(memAst, mk_id(desc)); in gen_finalization_for_sym()
11738 ast = mk_id(fsptr); in gen_finalization_for_sym()
11752 ast = mk_member(parent, mk_id(mem), dtype); in get_parm_ast()
11758 ast = mk_member(parent, mk_id(mem), /*dtype*/ DTYPEG(mem)); in get_parm_ast()
11794 ast = mk_id(memsym_of_ast(ast)); in remove_parent_from_ast()
12041 add_arg(check_member(memberast, mk_id(sptr))); in size_of_dtype()
12070 sptrsdsc_arg = mk_id(sptrsdsc); in init_sdsc()
12075 sptrsdsc_arg = mk_member(mk_id(parent_sptr), sptrsdsc_arg, dtype); in init_sdsc()
12091 mk_func_node(A_CALL, mk_id(sym_mkfunc(mkRteRtnNm(RTE_template), DT_NONE)), in init_sdsc()
12107 mk_func_node(A_CALL, mk_id(sym_mkfunc(mkRteRtnNm(RTE_instance), DT_NONE)), in init_sdsc()
12148 sptrsdsc_arg = mk_id(sptrsdsc); in init_sdsc_bounds()
12153 sptrsdsc_arg = mk_member(mk_id(parent_sptr), sptrsdsc_arg, dtype); in init_sdsc_bounds()
12177 mk_func_node(A_CALL, mk_id(sym_mkfunc(mkRteRtnNm(RTE_template), DT_NONE)), in init_sdsc_bounds()
12193 mk_func_node(A_CALL, mk_id(sym_mkfunc(mkRteRtnNm(RTE_instance), DT_NONE)), in init_sdsc_bounds()
12204 astsrc = mk_id(src); in genPolyAsn()
12210 dest_sdsc_ast = mk_id(SDSCG(dest)); in genPolyAsn()
12212 astdest = mk_id(dest); in genPolyAsn()
12219 dest_sdsc_ast = check_member(parentMem, mk_id(sdsc_mem)); in genPolyAsn()
12224 dest_sdsc_ast = mk_id(SDSCG(dest)); in genPolyAsn()
12227 astdest = check_member(parentMem, mk_id(dest)); in genPolyAsn()
12230 src_sdsc_ast = mk_id(get_static_type_descriptor(src)); in genPolyAsn()
12249 ast = mk_id(fsptr); in genPolyAsn()
12310 parentMem = (!parentMem) ? mk_member(mk_id(sptr), mk_id(mem), eleDtype) in gen_kind_parm_assignments()
12311 : mk_member(parentMem, mk_id(mem), eleDtype); in gen_kind_parm_assignments()
12327 ast = add_parent_to_bounds(mk_id(sptr), mk_id(mem)); in gen_kind_parm_assignments()
12334 ast = add_parent_to_bounds(mk_id(sptr), mk_id(mem)); in gen_kind_parm_assignments()
12343 ast = add_parent_to_bounds(mk_id(sptr), mk_id(mem)); in gen_kind_parm_assignments()
12371 ast = add_parent_to_bounds(mk_id(sptr), mk_id(mem)); in gen_kind_parm_assignments()
12392 i = mk_id(sptr); in gen_kind_parm_assignments()
12398 j = mk_member(i, mk_id(mem), dtype); in gen_kind_parm_assignments()
12420 sdsc_mem = mk_member(mk_id(sptr), mk_id(sdsc_mem), dtype); in gen_kind_parm_assignments()
12425 src_ast = add_parent_to_bounds(mk_id(sptr), mk_id(mem)); in gen_kind_parm_assignments()
12464 i = mk_id(sptr); in fix_type_param_members()
12468 ast = add_parent_to_bounds(mk_id(sptr), LENG(mem)); in fix_type_param_members()
12525 aast = mk_id(sptrmem); in gen_alloc_mem_initialize_for_sym2()
12526 bast = (ast) ? ast : mk_id(sptr); in gen_alloc_mem_initialize_for_sym2()
12530 aast = mk_id(sptrmem); in gen_alloc_mem_initialize_for_sym2()
12531 bast = (ast) ? ast : mk_id(sptr); in gen_alloc_mem_initialize_for_sym2()
12580 ast = mk_id(tsptr); in __gen_conditional_dealloc()
12625 ast = mk_id(tsptr); in gen_conditional_alloc()
12649 int idast = mk_id(sptr); in gen_conditional_dealloc_for_sym()
12680 idast = mk_id(sptr); in gen_dealloc_for_sym()
12712 check_member(ast, mk_id(sdsc)) : in init_intrin_type_desc()
12713 mk_id(sdsc); in init_intrin_type_desc()
12792 ast = mk_id(tsptr); in gen_automatic_reallocation()
12809 rhs_len = string_expr_length(mk_id(iface)); in gen_automatic_reallocation()
13730 astid = mk_id(scope_sptr); in mp_create_bscope()
13758 astid = mk_id(scope_sptr); in mp_create_bscope()
14028 func = mk_id(sym_mkfunc_nodesc( in mk_set_type_call()
14087 arg0 = mk_member(mk_id(sym_of_ast(A_PARENTG(dest_ast))), mk_id(sdsc), in gen_set_type()
14094 arg0 = mk_id(sdsc); in gen_set_type()
14107 arg1 = mk_member(mk_id(sym_of_ast(A_PARENTG(src_ast))), mk_id(sdsc), in gen_set_type()
14114 arg1 = mk_id(sdsc); in gen_set_type()