Home
last modified time | relevance | path

Searched refs:len_array (Results 1 – 20 of 20) sorted by relevance

/netbsd-src/external/gpl3/gcc.old/dist/libgfortran/generated/
H A Dfindloc0_s4.c33 GFC_LOGICAL_4 back, gfc_charlen_type len_array, gfc_charlen_type len_value);
40 GFC_LOGICAL_4 back, gfc_charlen_type len_array, gfc_charlen_type len_value) in findloc0_s4() argument
92 base = array->base_addr + (sz - 1) * len_array; in findloc0_s4()
98 if (unlikely(compare_string_char4 (len_array, base, len_value, value) == 0)) in findloc0_s4()
105 base -= sstride[0] * len_array; in findloc0_s4()
116 base += sstride[n] * extent[n] * len_array; in findloc0_s4()
123 base -= sstride[n] * len_array; in findloc0_s4()
135 if (unlikely(compare_string_char4 (len_array, base, len_value, value) == 0)) in findloc0_s4()
142 base += sstride[0] * len_array; in findloc0_s4()
153 base -= sstride[n] * extent[n] * len_array; in findloc0_s4()
[all …]
H A Dfindloc0_s1.c33 GFC_LOGICAL_4 back, gfc_charlen_type len_array, gfc_charlen_type len_value);
40 GFC_LOGICAL_4 back, gfc_charlen_type len_array, gfc_charlen_type len_value) in findloc0_s1() argument
92 base = array->base_addr + (sz - 1) * len_array; in findloc0_s1()
98 if (unlikely(compare_string (len_array, (char *) base, len_value, (char *) value) == 0)) in findloc0_s1()
105 base -= sstride[0] * len_array; in findloc0_s1()
116 base += sstride[n] * extent[n] * len_array; in findloc0_s1()
123 base -= sstride[n] * len_array; in findloc0_s1()
135 if (unlikely(compare_string (len_array, (char *) base, len_value, (char *) value) == 0)) in findloc0_s1()
142 base += sstride[0] * len_array; in findloc0_s1()
153 base -= sstride[n] * extent[n] * len_array; in findloc0_s1()
[all …]
H A Dfindloc2_s4.c31 gfc_charlen_type len_array, gfc_charlen_type len_value);
37 gfc_charlen_type len_array, gfc_charlen_type len_value) in findloc2_s4() argument
48 sstride = GFC_DESCRIPTOR_STRIDE(array,0) * len_array; in findloc2_s4()
54 if (compare_string_char4 (len_array, src, len_value, value) == 0) in findloc2_s4()
64 if (compare_string_char4 (len_array, src, len_value, value) == 0) in findloc2_s4()
75 gfc_charlen_type len_array, gfc_charlen_type len_value);
81 GFC_LOGICAL_4 back, gfc_charlen_type len_array, in mfindloc2_s4() argument
108 sstride = GFC_DESCRIPTOR_STRIDE(array,0) * len_array; in mfindloc2_s4()
117 if (*mbase && (compare_string_char4 (len_array, src, len_value, value) == 0)) in mfindloc2_s4()
128 if (*mbase && (compare_string_char4 (len_array, src, len_value, value) == 0)) in mfindloc2_s4()
[all …]
H A Dfindloc2_s1.c31 gfc_charlen_type len_array, gfc_charlen_type len_value);
37 gfc_charlen_type len_array, gfc_charlen_type len_value) in findloc2_s1() argument
48 sstride = GFC_DESCRIPTOR_STRIDE(array,0) * len_array; in findloc2_s1()
54 if (compare_string (len_array, (char *) src, len_value, (char *) value) == 0) in findloc2_s1()
64 if (compare_string (len_array, (char *) src, len_value, (char *) value) == 0) in findloc2_s1()
75 gfc_charlen_type len_array, gfc_charlen_type len_value);
81 GFC_LOGICAL_4 back, gfc_charlen_type len_array, in mfindloc2_s1() argument
108 sstride = GFC_DESCRIPTOR_STRIDE(array,0) * len_array; in mfindloc2_s1()
117 if (*mbase && (compare_string (len_array, (char *) src, len_value, (char *) value) == 0)) in mfindloc2_s1()
128 if (*mbase && (compare_string (len_array, (char *) src, len_value, (char *) value) == 0)) in mfindloc2_s1()
[all …]
H A Dfindloc1_s1.c33 gfc_charlen_type len_array, gfc_charlen_type len_value);
40 gfc_charlen_type len_array, gfc_charlen_type len_value) in findloc1_s1() argument
149 src = base + (len - 1) * delta * len_array; in findloc1_s1()
150 for (n = len; n > 0; n--, src -= delta * len_array) in findloc1_s1()
152 if (compare_string (len_array, (char *) src, len_value, (char *) value) == 0) in findloc1_s1()
162 for (n = 1; n <= len; n++, src += delta * len_array) in findloc1_s1()
164 if (compare_string (len_array, (char *) src, len_value, (char *) value) == 0) in findloc1_s1()
174 base += sstride[0] * len_array; in findloc1_s1()
180 base -= sstride[n] * extent[n] * len_array; in findloc1_s1()
191 base += sstride[n] * len_array; in findloc1_s1()
[all …]
H A Dfindloc1_s4.c33 gfc_charlen_type len_array, gfc_charlen_type len_value);
40 gfc_charlen_type len_array, gfc_charlen_type len_value) in findloc1_s4() argument
149 src = base + (len - 1) * delta * len_array; in findloc1_s4()
150 for (n = len; n > 0; n--, src -= delta * len_array) in findloc1_s4()
152 if (compare_string_char4 (len_array, src, len_value, value) == 0) in findloc1_s4()
162 for (n = 1; n <= len; n++, src += delta * len_array) in findloc1_s4()
164 if (compare_string_char4 (len_array, src, len_value, value) == 0) in findloc1_s4()
174 base += sstride[0] * len_array; in findloc1_s4()
180 base -= sstride[n] * extent[n] * len_array; in findloc1_s4()
191 base += sstride[n] * len_array; in findloc1_s4()
[all …]
/netbsd-src/external/gpl3/gcc/dist/libgfortran/generated/
H A Dfindloc0_s1.c33 GFC_LOGICAL_4 back, gfc_charlen_type len_array, gfc_charlen_type len_value);
40 GFC_LOGICAL_4 back, gfc_charlen_type len_array, gfc_charlen_type len_value) in findloc0_s1() argument
92 base = array->base_addr + (sz - 1) * len_array; in findloc0_s1()
98 if (unlikely(compare_string (len_array, (char *) base, len_value, (char *) value) == 0)) in findloc0_s1()
105 base -= sstride[0] * len_array; in findloc0_s1()
116 base += sstride[n] * extent[n] * len_array; in findloc0_s1()
123 base -= sstride[n] * len_array; in findloc0_s1()
135 if (unlikely(compare_string (len_array, (char *) base, len_value, (char *) value) == 0)) in findloc0_s1()
142 base += sstride[0] * len_array; in findloc0_s1()
153 base -= sstride[n] * extent[n] * len_array; in findloc0_s1()
[all …]
H A Dfindloc0_s4.c33 GFC_LOGICAL_4 back, gfc_charlen_type len_array, gfc_charlen_type len_value);
40 GFC_LOGICAL_4 back, gfc_charlen_type len_array, gfc_charlen_type len_value) in findloc0_s4() argument
92 base = array->base_addr + (sz - 1) * len_array; in findloc0_s4()
98 if (unlikely(compare_string_char4 (len_array, base, len_value, value) == 0)) in findloc0_s4()
105 base -= sstride[0] * len_array; in findloc0_s4()
116 base += sstride[n] * extent[n] * len_array; in findloc0_s4()
123 base -= sstride[n] * len_array; in findloc0_s4()
135 if (unlikely(compare_string_char4 (len_array, base, len_value, value) == 0)) in findloc0_s4()
142 base += sstride[0] * len_array; in findloc0_s4()
153 base -= sstride[n] * extent[n] * len_array; in findloc0_s4()
[all …]
H A Dfindloc2_s1.c31 gfc_charlen_type len_array, gfc_charlen_type len_value);
37 gfc_charlen_type len_array, gfc_charlen_type len_value) in findloc2_s1() argument
48 sstride = GFC_DESCRIPTOR_STRIDE(array,0) * len_array; in findloc2_s1()
54 if (compare_string (len_array, (char *) src, len_value, (char *) value) == 0) in findloc2_s1()
64 if (compare_string (len_array, (char *) src, len_value, (char *) value) == 0) in findloc2_s1()
75 gfc_charlen_type len_array, gfc_charlen_type len_value);
81 GFC_LOGICAL_4 back, gfc_charlen_type len_array, in mfindloc2_s1() argument
108 sstride = GFC_DESCRIPTOR_STRIDE(array,0) * len_array; in mfindloc2_s1()
117 if (*mbase && (compare_string (len_array, (char *) src, len_value, (char *) value) == 0)) in mfindloc2_s1()
128 if (*mbase && (compare_string (len_array, (char *) src, len_value, (char *) value) == 0)) in mfindloc2_s1()
[all …]
H A Dfindloc2_s4.c31 gfc_charlen_type len_array, gfc_charlen_type len_value);
37 gfc_charlen_type len_array, gfc_charlen_type len_value) in findloc2_s4() argument
48 sstride = GFC_DESCRIPTOR_STRIDE(array,0) * len_array; in findloc2_s4()
54 if (compare_string_char4 (len_array, src, len_value, value) == 0) in findloc2_s4()
64 if (compare_string_char4 (len_array, src, len_value, value) == 0) in findloc2_s4()
75 gfc_charlen_type len_array, gfc_charlen_type len_value);
81 GFC_LOGICAL_4 back, gfc_charlen_type len_array, in mfindloc2_s4() argument
108 sstride = GFC_DESCRIPTOR_STRIDE(array,0) * len_array; in mfindloc2_s4()
117 if (*mbase && (compare_string_char4 (len_array, src, len_value, value) == 0)) in mfindloc2_s4()
128 if (*mbase && (compare_string_char4 (len_array, src, len_value, value) == 0)) in mfindloc2_s4()
[all …]
H A Dfindloc1_s4.c33 gfc_charlen_type len_array, gfc_charlen_type len_value);
40 gfc_charlen_type len_array, gfc_charlen_type len_value) in findloc1_s4() argument
149 src = base + (len - 1) * delta * len_array; in findloc1_s4()
150 for (n = len; n > 0; n--, src -= delta * len_array) in findloc1_s4()
152 if (compare_string_char4 (len_array, src, len_value, value) == 0) in findloc1_s4()
162 for (n = 1; n <= len; n++, src += delta * len_array) in findloc1_s4()
164 if (compare_string_char4 (len_array, src, len_value, value) == 0) in findloc1_s4()
174 base += sstride[0] * len_array; in findloc1_s4()
180 base -= sstride[n] * extent[n] * len_array; in findloc1_s4()
191 base += sstride[n] * len_array; in findloc1_s4()
[all …]
H A Dfindloc1_s1.c33 gfc_charlen_type len_array, gfc_charlen_type len_value);
40 gfc_charlen_type len_array, gfc_charlen_type len_value) in findloc1_s1() argument
149 src = base + (len - 1) * delta * len_array; in findloc1_s1()
150 for (n = len; n > 0; n--, src -= delta * len_array) in findloc1_s1()
152 if (compare_string (len_array, (char *) src, len_value, (char *) value) == 0) in findloc1_s1()
162 for (n = 1; n <= len; n++, src += delta * len_array) in findloc1_s1()
164 if (compare_string (len_array, (char *) src, len_value, (char *) value) == 0) in findloc1_s1()
174 base += sstride[0] * len_array; in findloc1_s1()
180 base -= sstride[n] * extent[n] * len_array; in findloc1_s1()
191 base += sstride[n] * len_array; in findloc1_s1()
[all …]
/netbsd-src/external/gpl3/gcc.old/dist/libgfortran/m4/
H A Dfindloc2s.m47 gfc_charlen_type len_array, gfc_charlen_type len_value);
13 gfc_charlen_type len_array, gfc_charlen_type len_value)')dnl
18 gfc_charlen_type len_array, gfc_charlen_type len_value);
24 GFC_LOGICAL_4 back, gfc_charlen_type len_array,
30 gfc_charlen_type len_array, gfc_charlen_type len_value);
36 GFC_LOGICAL_4 back, gfc_charlen_type len_array,
40 `compare_string_char4 (len_array, src, len_value, value) == 0',dnl
41 `compare_string (len_array, (char *) src, len_value, (char *) value) == 0'))dnl
42 define(len_arg,`len_array, len_value')dnl
43 define(base_mult,`len_array')dnl
H A Dfindloc0s.m47 GFC_LOGICAL_4 back, gfc_charlen_type len_array, gfc_charlen_type len_value);
14 GFC_LOGICAL_4 back, gfc_charlen_type len_array, gfc_charlen_type len_value)')dnl
18 gfc_array_l1 *const restrict, GFC_LOGICAL_4 back, gfc_charlen_type len_array,
26 gfc_charlen_type len_array, gfc_charlen_type len_value)')
30 GFC_LOGICAL_4 *, GFC_LOGICAL_4 back, gfc_charlen_type len_array,
37 GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back, gfc_charlen_type len_array,
41 `compare_string_char4 (len_array, base, len_value, value) == 0',dnl
42 `compare_string (len_array, (char *) base, len_value, (char *) value) == 0'))dnl
43 define(len_arg,`, len_array, len_value')dnl
44 define(base_mult,`len_array')dnl
H A Dfindloc1s.m48 gfc_charlen_type len_array, gfc_charlen_type len_value);
15 gfc_charlen_type len_array, gfc_charlen_type len_value)')dnl
20 GFC_LOGICAL_4 back, gfc_charlen_type len_array, gfc_charlen_type len_value);
27 GFC_LOGICAL_4 back, gfc_charlen_type len_array, gfc_charlen_type len_value)')dnl
31 GFC_LOGICAL_4 back, gfc_charlen_type len_array, gfc_charlen_type len_value);
38 GFC_LOGICAL_4 back, gfc_charlen_type len_array, gfc_charlen_type len_value)')dnl
40 `compare_string_char4 (len_array, src, len_value, value) == 0',dnl
41 `compare_string (len_array, (char *) src, len_value, (char *) value) == 0'))dnl
42 define(len_arg,`, len_array, len_value')dnl
43 define(base_mult,`len_array')dnl
H A Difindloc2.m4122 return findloc2_'atype_code` (array, value, back, len_array, len_value);
/netbsd-src/external/gpl3/gcc/dist/libgfortran/m4/
H A Dfindloc0s.m47 GFC_LOGICAL_4 back, gfc_charlen_type len_array, gfc_charlen_type len_value);
14 GFC_LOGICAL_4 back, gfc_charlen_type len_array, gfc_charlen_type len_value)')dnl
18 gfc_array_l1 *const restrict, GFC_LOGICAL_4 back, gfc_charlen_type len_array,
26 gfc_charlen_type len_array, gfc_charlen_type len_value)')
30 GFC_LOGICAL_4 *, GFC_LOGICAL_4 back, gfc_charlen_type len_array,
37 GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back, gfc_charlen_type len_array,
41 `compare_string_char4 (len_array, base, len_value, value) == 0',dnl
42 `compare_string (len_array, (char *) base, len_value, (char *) value) == 0'))dnl
43 define(len_arg,`, len_array, len_value')dnl
44 define(base_mult,`len_array')dnl
H A Dfindloc2s.m47 gfc_charlen_type len_array, gfc_charlen_type len_value);
13 gfc_charlen_type len_array, gfc_charlen_type len_value)')dnl
18 gfc_charlen_type len_array, gfc_charlen_type len_value);
24 GFC_LOGICAL_4 back, gfc_charlen_type len_array,
30 gfc_charlen_type len_array, gfc_charlen_type len_value);
36 GFC_LOGICAL_4 back, gfc_charlen_type len_array,
40 `compare_string_char4 (len_array, src, len_value, value) == 0',dnl
41 `compare_string (len_array, (char *) src, len_value, (char *) value) == 0'))dnl
42 define(len_arg,`len_array, len_value')dnl
43 define(base_mult,`len_array')dnl
H A Dfindloc1s.m48 gfc_charlen_type len_array, gfc_charlen_type len_value);
15 gfc_charlen_type len_array, gfc_charlen_type len_value)')dnl
20 GFC_LOGICAL_4 back, gfc_charlen_type len_array, gfc_charlen_type len_value);
27 GFC_LOGICAL_4 back, gfc_charlen_type len_array, gfc_charlen_type len_value)')dnl
31 GFC_LOGICAL_4 back, gfc_charlen_type len_array, gfc_charlen_type len_value);
38 GFC_LOGICAL_4 back, gfc_charlen_type len_array, gfc_charlen_type len_value)')dnl
40 `compare_string_char4 (len_array, src, len_value, value) == 0',dnl
41 `compare_string (len_array, (char *) src, len_value, (char *) value) == 0'))dnl
42 define(len_arg,`, len_array, len_value')dnl
43 define(base_mult,`len_array')dnl
H A Difindloc2.m4122 return findloc2_'atype_code` (array, value, back, len_array, len_value);