Home
last modified time | relevance | path

Searched refs:tsource (Results 1 – 10 of 10) sorted by relevance

/netbsd-src/external/mit/xorg/bin/xmh/
H A DMakefile8 tocfuncs.c tocutil.c tsource.c util.c viewfuncs.c \
/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Diresolve.cc1950 gfc_resolve_merge (gfc_expr *f, gfc_expr *tsource, in gfc_resolve_merge() argument
1954 if (tsource->ts.type == BT_CHARACTER && tsource->ref) in gfc_resolve_merge()
1955 gfc_resolve_substring_charlen (tsource); in gfc_resolve_merge()
1960 if (tsource->ts.type == BT_CHARACTER) in gfc_resolve_merge()
1961 check_charlen_present (tsource); in gfc_resolve_merge()
1963 f->ts = tsource->ts; in gfc_resolve_merge()
1965 = gfc_get_string ("__merge_%c%d", gfc_type_letter (tsource->ts.type), in gfc_resolve_merge()
1966 gfc_type_abi_kind (&tsource->ts)); in gfc_resolve_merge()
H A Dsimplify.cc4903 gfc_simplify_merge (gfc_expr *tsource, gfc_expr *fsource, gfc_expr *mask) in gfc_simplify_merge() argument
4910 result = gfc_copy_expr (mask->value.logical ? tsource : fsource); in gfc_simplify_merge()
4918 || !is_constant_array_expr (tsource) || !is_constant_array_expr (fsource)) in gfc_simplify_merge()
4921 result = gfc_get_array_expr (tsource->ts.type, tsource->ts.kind, in gfc_simplify_merge()
4922 &tsource->where); in gfc_simplify_merge()
4923 if (tsource->ts.type == BT_DERIVED) in gfc_simplify_merge()
4924 result->ts.u.derived = tsource->ts.u.derived; in gfc_simplify_merge()
4925 else if (tsource->ts.type == BT_CHARACTER) in gfc_simplify_merge()
4926 result->ts.u.cl = tsource->ts.u.cl; in gfc_simplify_merge()
4928 tsource_ctor = gfc_constructor_first (tsource->value.constructor); in gfc_simplify_merge()
H A Dcheck.cc4140 gfc_check_merge (gfc_expr *tsource, gfc_expr *fsource, gfc_expr *mask) in gfc_check_merge() argument
4142 if (gfc_invalid_null_arg (tsource)) in gfc_check_merge()
4148 if (!same_type_check (tsource, 0, fsource, 1)) in gfc_check_merge()
4154 if (tsource->ts.type == BT_CHARACTER) in gfc_check_merge()
4155 return gfc_check_same_strlen (tsource, fsource, "MERGE intrinsic"); in gfc_check_merge()
H A Dtrans-intrinsic.cc7532 tree tsource; in gfc_conv_intrinsic_merge() local
7546 tsource = args[0]; in gfc_conv_intrinsic_merge()
7556 tsource = args[1]; in gfc_conv_intrinsic_merge()
7565 type = TREE_TYPE (tsource); in gfc_conv_intrinsic_merge()
7566 se->expr = fold_build3_loc (input_location, COND_EXPR, type, mask, tsource, in gfc_conv_intrinsic_merge()
H A DChangeLog-20064114 (gfc_check_merge): Check conformance between tsource and fsource
4115 and between tsource and mask.
/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Diresolve.c1929 gfc_resolve_merge (gfc_expr *f, gfc_expr *tsource, in gfc_resolve_merge() argument
1933 if (tsource->ts.type == BT_CHARACTER && tsource->ref) in gfc_resolve_merge()
1934 gfc_resolve_substring_charlen (tsource); in gfc_resolve_merge()
1939 if (tsource->ts.type == BT_CHARACTER) in gfc_resolve_merge()
1940 check_charlen_present (tsource); in gfc_resolve_merge()
1942 f->ts = tsource->ts; in gfc_resolve_merge()
1944 = gfc_get_string ("__merge_%c%d", gfc_type_letter (tsource->ts.type), in gfc_resolve_merge()
1945 tsource->ts.kind); in gfc_resolve_merge()
H A Dsimplify.c4789 gfc_simplify_merge (gfc_expr *tsource, gfc_expr *fsource, gfc_expr *mask) in gfc_simplify_merge() argument
4796 result = gfc_copy_expr (mask->value.logical ? tsource : fsource); in gfc_simplify_merge()
4804 || !is_constant_array_expr (tsource) || !is_constant_array_expr (fsource)) in gfc_simplify_merge()
4807 result = gfc_get_array_expr (tsource->ts.type, tsource->ts.kind, in gfc_simplify_merge()
4808 &tsource->where); in gfc_simplify_merge()
4809 if (tsource->ts.type == BT_DERIVED) in gfc_simplify_merge()
4810 result->ts.u.derived = tsource->ts.u.derived; in gfc_simplify_merge()
4811 else if (tsource->ts.type == BT_CHARACTER) in gfc_simplify_merge()
4812 result->ts.u.cl = tsource->ts.u.cl; in gfc_simplify_merge()
4814 tsource_ctor = gfc_constructor_first (tsource->value.constructor); in gfc_simplify_merge()
H A Dcheck.c4129 gfc_check_merge (gfc_expr *tsource, gfc_expr *fsource, gfc_expr *mask) in gfc_check_merge() argument
4131 if (gfc_invalid_null_arg (tsource)) in gfc_check_merge()
4137 if (!same_type_check (tsource, 0, fsource, 1)) in gfc_check_merge()
4143 if (tsource->ts.type == BT_CHARACTER) in gfc_check_merge()
4144 return gfc_check_same_strlen (tsource, fsource, "MERGE intrinsic"); in gfc_check_merge()
H A Dtrans-intrinsic.c7471 tree tsource; in gfc_conv_intrinsic_merge() local
7485 tsource = args[0]; in gfc_conv_intrinsic_merge()
7495 tsource = args[1]; in gfc_conv_intrinsic_merge()
7504 type = TREE_TYPE (tsource); in gfc_conv_intrinsic_merge()
7505 se->expr = fold_build3_loc (input_location, COND_EXPR, type, mask, tsource, in gfc_conv_intrinsic_merge()