/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/ |
H A D | trans-decl.cc | 3527 void_type_node, 3, pchar_type_node, gfc_charlen_type_node, in gfc_build_intrinsic_function_decls() 3532 void_type_node, 2, pchar_type_node, gfc_charlen_type_node); in gfc_build_intrinsic_function_decls() 3536 void_type_node, 3, pchar_type_node, gfc_charlen_type_node, in gfc_build_intrinsic_function_decls() 3548 gfc_int4_type_node, 2, gfc_charlen_type_node, pchar_type_node); in gfc_build_intrinsic_function_decls() 3673 void_type_node, 15, pchar_type_node, in gfc_build_intrinsic_function_decls() 3674 pchar_type_node, pint, pint, pint, ps, ps, pint, in gfc_build_intrinsic_function_decls() 3680 void_type_node, 15, pchar_type_node, in gfc_build_intrinsic_function_decls() 3681 pchar_type_node, pint, pint, pint, pd, pd, pint, in gfc_build_intrinsic_function_decls() 3687 void_type_node, 15, pchar_type_node, in gfc_build_intrinsic_function_decls() 3688 pchar_type_node, pint, pint, pint, pc, pc, pint, in gfc_build_intrinsic_function_decls() [all …]
|
H A D | trans-types.h | 33 extern GTY(()) tree pchar_type_node;
|
H A D | trans-io.cc | 198 pchar_type_node, &chain); in gfc_build_st_parameter() 210 pchar_type_node, &chain); in gfc_build_st_parameter() 269 arg3 = gfc_build_addr_expr (pchar_type_node, in gfc_trans_io_runtime_check() 309 types[IOPARM_type_parray] = pchar_type_node; in gfc_build_io_library_fndecls() 310 types[IOPARM_type_pchar] = pchar_type_node; in gfc_build_io_library_fndecls() 311 pad_size = 16 * TREE_INT_CST_LOW (TYPE_SIZE_UNIT (pchar_type_node)); in gfc_build_io_library_fndecls() 320 SET_TYPE_ALIGN (types[IOPARM_type_pad], MAX (TYPE_ALIGN (pchar_type_node), in gfc_build_io_library_fndecls() 925 se.expr = build_int_cst (pchar_type_node, 0); in set_internal_unit() 939 se.expr = gfc_build_addr_expr (pchar_type_node, tmp); in set_internal_unit() 947 se.expr = gfc_build_addr_expr (pchar_type_node, se.expr); in set_internal_unit() [all …]
|
H A D | trans.cc | 578 arg = gfc_build_addr_expr (pchar_type_node, in trans_runtime_error_vararg() 583 arg2 = gfc_build_addr_expr (pchar_type_node, in trans_runtime_error_vararg() 1023 varname = gfc_build_addr_expr (pchar_type_node, varname); in gfc_allocate_allocatable() 1479 varname = gfc_build_addr_expr (pchar_type_node, varname); in gfc_deallocate_with_status() 1638 varname = gfc_build_addr_expr (pchar_type_node, varname); in gfc_deallocate_scalar_with_status()
|
H A D | trans-stmt.cc | 621 build_int_cst (pchar_type_node, 0), tmp); in gfc_trans_pause() 680 3, build_int_cst (pchar_type_node, 0), tmp, in gfc_trans_stop() 817 build_int_cst (pchar_type_node, 0)); in gfc_trans_end_team() 7138 errmsg_str = gfc_create_var (pchar_type_node, "ERRMSG"); in gfc_trans_allocate() 7140 gfc_build_addr_expr (pchar_type_node, in gfc_trans_allocate() 7439 errmsg_str = gfc_create_var (pchar_type_node, "ERRMSG"); in gfc_trans_deallocate() 7441 gfc_build_addr_expr (pchar_type_node, in gfc_trans_deallocate()
|
H A D | trans-types.cc | 63 tree pchar_type_node; variable 1023 pchar_type_node = build_pointer_type (gfc_character1_type_node); in gfc_init_types()
|
H A D | trans-intrinsic.cc | 974 name = gfc_build_addr_expr (pchar_type_node, name); in gfc_trans_same_strlen_check() 3725 var = gfc_create_var (pchar_type_node, "pstr"); in gfc_conv_intrinsic_ctime() 3764 var = gfc_create_var (pchar_type_node, "pstr"); in gfc_conv_intrinsic_fdate() 4025 var = gfc_create_var (pchar_type_node, "pstr"); in gfc_conv_intrinsic_ttynam() 6605 tree iname = gfc_build_addr_expr (pchar_type_node, in gfc_conv_intrinsic_singlebitop() 6752 tree iname = gfc_build_addr_expr (pchar_type_node, in gfc_conv_intrinsic_shift()
|
H A D | trans-array.cc | 6185 msg = gfc_build_addr_expr (pchar_type_node, in gfc_array_allocate() 10118 cname = gfc_build_addr_expr (pchar_type_node, cname); in structure_alloc_comps()
|
/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/ |
H A D | trans-decl.c | 3482 void_type_node, 3, pchar_type_node, gfc_charlen_type_node, in gfc_build_intrinsic_function_decls() 3487 void_type_node, 2, pchar_type_node, gfc_charlen_type_node); in gfc_build_intrinsic_function_decls() 3491 void_type_node, 3, pchar_type_node, gfc_charlen_type_node, in gfc_build_intrinsic_function_decls() 3501 gfc_int4_type_node, 2, gfc_charlen_type_node, pchar_type_node); in gfc_build_intrinsic_function_decls() 3624 void_type_node, 15, pchar_type_node, in gfc_build_intrinsic_function_decls() 3625 pchar_type_node, pint, pint, pint, ps, ps, pint, in gfc_build_intrinsic_function_decls() 3631 void_type_node, 15, pchar_type_node, in gfc_build_intrinsic_function_decls() 3632 pchar_type_node, pint, pint, pint, pd, pd, pint, in gfc_build_intrinsic_function_decls() 3638 void_type_node, 15, pchar_type_node, in gfc_build_intrinsic_function_decls() 3639 pchar_type_node, pint, pint, pint, pc, pc, pint, in gfc_build_intrinsic_function_decls() [all …]
|
H A D | trans-io.c | 198 pchar_type_node, &chain); in gfc_build_st_parameter() 210 pchar_type_node, &chain); in gfc_build_st_parameter() 269 arg3 = gfc_build_addr_expr (pchar_type_node, in gfc_trans_io_runtime_check() 309 types[IOPARM_type_parray] = pchar_type_node; in gfc_build_io_library_fndecls() 310 types[IOPARM_type_pchar] = pchar_type_node; in gfc_build_io_library_fndecls() 311 pad_size = 16 * TREE_INT_CST_LOW (TYPE_SIZE_UNIT (pchar_type_node)); in gfc_build_io_library_fndecls() 320 SET_TYPE_ALIGN (types[IOPARM_type_pad], MAX (TYPE_ALIGN (pchar_type_node), in gfc_build_io_library_fndecls() 410 void_type_node, 2, dt_parm_type, pvoid_type_node, pchar_type_node); in gfc_build_io_library_fndecls() 899 se.expr = build_int_cst (pchar_type_node, 0); in set_internal_unit() 913 se.expr = gfc_build_addr_expr (pchar_type_node, tmp); in set_internal_unit() [all …]
|
H A D | trans-types.h | 33 extern GTY(()) tree pchar_type_node;
|
H A D | trans.c | 504 arg = gfc_build_addr_expr (pchar_type_node, in trans_runtime_error_vararg() 509 arg2 = gfc_build_addr_expr (pchar_type_node, in trans_runtime_error_vararg() 950 varname = gfc_build_addr_expr (pchar_type_node, varname); in gfc_allocate_allocatable() 1406 varname = gfc_build_addr_expr (pchar_type_node, varname); in gfc_deallocate_with_status() 1565 varname = gfc_build_addr_expr (pchar_type_node, varname); in gfc_deallocate_scalar_with_status()
|
H A D | trans-stmt.c | 595 build_int_cst (pchar_type_node, 0), tmp); in gfc_trans_pause() 645 3, build_int_cst (pchar_type_node, 0), tmp, in gfc_trans_stop() 693 build_int_cst (pchar_type_node, 0)); in gfc_trans_fail_image() 783 build_int_cst (pchar_type_node, 0)); in gfc_trans_end_team() 7105 errmsg_str = gfc_create_var (pchar_type_node, "ERRMSG"); in gfc_trans_allocate() 7107 gfc_build_addr_expr (pchar_type_node, in gfc_trans_allocate() 7406 errmsg_str = gfc_create_var (pchar_type_node, "ERRMSG"); in gfc_trans_deallocate() 7408 gfc_build_addr_expr (pchar_type_node, in gfc_trans_deallocate()
|
H A D | trans-types.c | 62 tree pchar_type_node; variable 994 pchar_type_node = build_pointer_type (gfc_character1_type_node); in gfc_init_types()
|
H A D | trans-intrinsic.c | 966 name = gfc_build_addr_expr (pchar_type_node, name); in gfc_trans_same_strlen_check() 3732 var = gfc_create_var (pchar_type_node, "pstr"); in gfc_conv_intrinsic_ctime() 3771 var = gfc_create_var (pchar_type_node, "pstr"); in gfc_conv_intrinsic_fdate() 4027 var = gfc_create_var (pchar_type_node, "pstr"); in gfc_conv_intrinsic_ttynam() 6474 tree iname = gfc_build_addr_expr (pchar_type_node, in gfc_conv_intrinsic_singlebitop() 6692 tree iname = gfc_build_addr_expr (pchar_type_node, in gfc_conv_intrinsic_shift()
|
H A D | trans-array.c | 6075 msg = gfc_build_addr_expr (pchar_type_node, in gfc_array_allocate() 9917 cname = gfc_build_addr_expr (pchar_type_node, cname); in structure_alloc_comps()
|