Home
last modified time | relevance | path

Searched refs:arr_ast (Results 1 – 7 of 7) sorted by relevance

/dports/math/libpgmath/flang-d07daf3/tools/flang1/flang1exe/
H A Drest.c3167 *retval = A_LOPG(arr_ast); in copy_arg_to_seq_tmp()
3242 shape = A_SHAPEG(arr_ast); in copy_arg_to_seq_tmp()
3306 shape = A_SHAPEG(arr_ast); in copy_arg_to_seq_tmp()
3745 if (!A_SHAPEG(arr_ast)) in continuous_section()
3747 asd = A_ASDG(arr_ast); in continuous_section()
3757 sptr = sym_of_ast(arr_ast); in continuous_section()
3767 if (!is_whole_dim(arr_ast, dim)) in continuous_section()
3783 if (!A_SHAPEG(arr_ast)) in stride_1_section()
3785 if (A_TYPEG(arr_ast) == A_SUBSCR) { in stride_1_section()
3786 asd = A_ASDG(arr_ast); in stride_1_section()
[all …]
H A Dsymutl.c1201 sptr = mk_shape_sptr(A_SHAPEG(arr_ast), subscr, dty); in get_temp_remapping()
1489 arr_sptr = find_array(arr_ast, &ssast); in chk_assign_sptr()
1764 arr_sptr = find_array(arr_ast, &ssast); in handle_non_cnst_dim()
1817 arr_sptr = find_array(arr_ast, &ssast); in chk_reduc_sptr()
1951 if (A_TYPEG(arr_ast) != A_SUBSCR && A_SHAPEG(arr_ast) == 0) { /*scalar */ in mk_spread_sptr()
1977 switch (A_TYPEG(arr_ast)) { in mk_spread_sptr()
1979 asd = A_ASDG(arr_ast); in mk_spread_sptr()
1992 arr_sptr = find_array(arr_ast, &ssast); in mk_spread_sptr()
2009 dtype = A_DTYPEG(arr_ast); in mk_spread_sptr()
2012 shape = A_SHAPEG(arr_ast); in mk_spread_sptr()
[all …]
H A Dsymutl.h78 LOGICAL contiguous_section(int arr_ast); /* func.c */
H A Dtransfrm.c1535 shape = A_SHAPEG(arr_ast); in normalize_forall_array()
1537 if (A_TYPEG(arr_ast) == A_ID || A_TYPEG(arr_ast) == A_MEM) { in normalize_forall_array()
1540 } else if (A_TYPEG(arr_ast) == A_SUBSCR) { in normalize_forall_array()
1541 asd = A_ASDG(arr_ast); in normalize_forall_array()
1545 interr("normalize_forall_array:bad ast type", arr_ast, 3); in normalize_forall_array()
1555 vectmem = vector_member(arr_ast); in normalize_forall_array()
1584 lwb = check_member(arr_ast, SHD_LWB(shape, i)); in normalize_forall_array()
1585 stride = check_member(arr_ast, SHD_STRIDE(shape, i)); in normalize_forall_array()
1605 ast = search_arr(arr_ast); in normalize_forall_array()
1621 if (A_TYPEG(arr_ast) == A_SUBSCR) { in normalize_forall_array()
[all …]
H A Dast.c3271 arr_ast); in is_whole_dim()
3272 asd = A_ASDG(arr_ast); in is_whole_dim()
3321 is_whole_array(int arr_ast) in is_whole_array() argument
3326 arr_ast, 2); in is_whole_array()
3328 lop = A_LOPG(arr_ast); in is_whole_array()
3330 lop = arr_ast; in is_whole_array()
3345 shape = A_SHAPEG(arr_ast); in is_whole_array()
3406 simply_contiguous(int arr_ast) in simply_contiguous() argument
3410 switch (A_TYPEG(arr_ast)) { in simply_contiguous()
3412 sptr = sym_of_ast(arr_ast); in simply_contiguous()
[all …]
H A Dfunc.c1164 contiguous_section(int arr_ast) in contiguous_section() argument
1174 if (A_TYPEG(arr_ast) != A_ID && A_TYPEG(arr_ast) != A_SUBSCR && in contiguous_section()
1175 A_TYPEG(arr_ast) != A_MEM) in contiguous_section()
1226 contiguous_section_array(int arr_ast) in contiguous_section_array() argument
1232 int ast1 = A_TYPEG(arr_ast) == A_MEM ? A_MEMG(arr_ast) : arr_ast; in contiguous_section_array()
1247 if (!is_whole_dim(arr_ast, dim)) in contiguous_section_array()
1251 if (!is_whole_dim(arr_ast, dim)) in contiguous_section_array()
4230 add_arg(check_member(arr_ast, mk_id(DESCRG(arr_sptr)))); in add_reduce_descriptor()
4256 add_arg(check_member(arr_ast, mk_id(DESCRG(arr_sptr)))); in add_spread_descriptor()
7138 mmul_array(int arr_ast) in mmul_array() argument
[all …]
/dports/math/libpgmath/flang-d07daf3/tools/flang1/utils/ast/
H A Dast.in.h402 LOGICAL is_whole_dim(int arr_ast, int i);
403 LOGICAL is_whole_array(int arr_ast);
404 LOGICAL simply_contiguous(int arr_ast);