Home
last modified time | relevance | path

Searched refs:base_addr (Results 1 – 25 of 1103) sorted by relevance

12345678910>>...45

/netbsd-src/external/gpl3/gcc/dist/libgfortran/intrinsics/
H A Dstat.c86 sarray->base_addr[0 * stride] = sb.st_dev; in stat_i4_sub_0()
89 sarray->base_addr[1 * stride] = sb.st_ino; in stat_i4_sub_0()
92 sarray->base_addr[2 * stride] = sb.st_mode; in stat_i4_sub_0()
95 sarray->base_addr[3 * stride] = sb.st_nlink; in stat_i4_sub_0()
98 sarray->base_addr[4 * stride] = sb.st_uid; in stat_i4_sub_0()
101 sarray->base_addr[5 * stride] = sb.st_gid; in stat_i4_sub_0()
105 sarray->base_addr[6 * stride] = sb.st_rdev; in stat_i4_sub_0()
107 sarray->base_addr[6 * stride] = 0; in stat_i4_sub_0()
111 sarray->base_addr[7 * stride] = sb.st_size; in stat_i4_sub_0()
114 sarray->base_addr[8 * stride] = sb.st_atime; in stat_i4_sub_0()
[all …]
H A Dpack_generic.c97 sptr = array->base_addr; in pack_internal()
98 mptr = mask->base_addr; in pack_internal()
136 sptr = array->base_addr; in pack_internal()
138 if (ret->base_addr == NULL || unlikely (compile_options.bounds_check)) in pack_internal()
156 if (ret->base_addr == NULL) in pack_internal()
163 ret->base_addr = xmallocarray (total, size); in pack_internal()
186 rptr = ret->base_addr; in pack_internal()
231 nelem = ((rptr - ret->base_addr) / rstride0); in pack_internal()
238 sptr = vector->base_addr + sstride0 * nelem; in pack_internal()
373 if (GFC_UNALIGNED_2(ret->base_addr) || GFC_UNALIGNED_2(array->base_addr) in pack()
[all …]
H A Dunpack_generic.c50 if (ret->base_addr != NULL) in unpack_bounds()
88 mptr = mask->base_addr; in unpack_internal()
108 if (ret->base_addr == NULL) in unpack_internal()
127 ret->base_addr = xmallocarray (rs, size); in unpack_internal()
153 rptr = ret->base_addr; in unpack_internal()
154 fptr = field->base_addr; in unpack_internal()
155 vptr = vector->base_addr; in unpack_internal()
329 if (GFC_UNALIGNED_2(ret->base_addr) || GFC_UNALIGNED_2(vector->base_addr) in unpack1()
330 || GFC_UNALIGNED_2(field->base_addr)) in unpack1()
340 if (GFC_UNALIGNED_4(ret->base_addr) || GFC_UNALIGNED_4(vector->base_addr) in unpack1()
[all …]
H A Dcshift0.c59 if (ret->base_addr == NULL) in cshift0()
81 ret->base_addr = xmallocarray (arraysize, size); in cshift0()
199 if (GFC_UNALIGNED_2(ret->base_addr) || GFC_UNALIGNED_2(array->base_addr)) in cshift0()
209 if (GFC_UNALIGNED_4(ret->base_addr) || GFC_UNALIGNED_4(array->base_addr)) in cshift0()
219 if (GFC_UNALIGNED_8(ret->base_addr) || GFC_UNALIGNED_8(array->base_addr)) in cshift0()
227 if (GFC_UNALIGNED_C4(ret->base_addr) in cshift0()
228 || GFC_UNALIGNED_C4(array->base_addr)) in cshift0()
244 if (GFC_UNALIGNED_16(ret->base_addr) in cshift0()
245 || GFC_UNALIGNED_16(array->base_addr)) in cshift0()
253 if (GFC_UNALIGNED_C8(ret->base_addr) in cshift0()
[all …]
/netbsd-src/external/gpl3/gcc.old/dist/libgfortran/intrinsics/
H A Dstat.c86 sarray->base_addr[0 * stride] = sb.st_dev; in stat_i4_sub_0()
89 sarray->base_addr[1 * stride] = sb.st_ino; in stat_i4_sub_0()
92 sarray->base_addr[2 * stride] = sb.st_mode; in stat_i4_sub_0()
95 sarray->base_addr[3 * stride] = sb.st_nlink; in stat_i4_sub_0()
98 sarray->base_addr[4 * stride] = sb.st_uid; in stat_i4_sub_0()
101 sarray->base_addr[5 * stride] = sb.st_gid; in stat_i4_sub_0()
105 sarray->base_addr[6 * stride] = sb.st_rdev; in stat_i4_sub_0()
107 sarray->base_addr[6 * stride] = 0; in stat_i4_sub_0()
111 sarray->base_addr[7 * stride] = sb.st_size; in stat_i4_sub_0()
114 sarray->base_addr[8 * stride] = sb.st_atime; in stat_i4_sub_0()
[all …]
H A Dpack_generic.c97 sptr = array->base_addr; in pack_internal()
98 mptr = mask->base_addr; in pack_internal()
136 sptr = array->base_addr; in pack_internal()
138 if (ret->base_addr == NULL || unlikely (compile_options.bounds_check)) in pack_internal()
156 if (ret->base_addr == NULL) in pack_internal()
163 ret->base_addr = xmallocarray (total, size); in pack_internal()
186 rptr = ret->base_addr; in pack_internal()
231 nelem = ((rptr - ret->base_addr) / rstride0); in pack_internal()
238 sptr = vector->base_addr + sstride0 * nelem; in pack_internal()
373 if (GFC_UNALIGNED_2(ret->base_addr) || GFC_UNALIGNED_2(array->base_addr) in pack()
[all …]
H A Dunpack_generic.c50 if (ret->base_addr != NULL) in unpack_bounds()
88 mptr = mask->base_addr; in unpack_internal()
108 if (ret->base_addr == NULL) in unpack_internal()
127 ret->base_addr = xmallocarray (rs, size); in unpack_internal()
153 rptr = ret->base_addr; in unpack_internal()
154 fptr = field->base_addr; in unpack_internal()
155 vptr = vector->base_addr; in unpack_internal()
329 if (GFC_UNALIGNED_2(ret->base_addr) || GFC_UNALIGNED_2(vector->base_addr) in unpack1()
330 || GFC_UNALIGNED_2(field->base_addr)) in unpack1()
340 if (GFC_UNALIGNED_4(ret->base_addr) || GFC_UNALIGNED_4(vector->base_addr) in unpack1()
[all …]
H A Dcshift0.c59 if (ret->base_addr == NULL) in cshift0()
81 ret->base_addr = xmallocarray (arraysize, size); in cshift0()
199 if (GFC_UNALIGNED_2(ret->base_addr) || GFC_UNALIGNED_2(array->base_addr)) in cshift0()
209 if (GFC_UNALIGNED_4(ret->base_addr) || GFC_UNALIGNED_4(array->base_addr)) in cshift0()
219 if (GFC_UNALIGNED_8(ret->base_addr) || GFC_UNALIGNED_8(array->base_addr)) in cshift0()
227 if (GFC_UNALIGNED_C4(ret->base_addr) in cshift0()
228 || GFC_UNALIGNED_C4(array->base_addr)) in cshift0()
244 if (GFC_UNALIGNED_16(ret->base_addr) in cshift0()
245 || GFC_UNALIGNED_16(array->base_addr)) in cshift0()
253 if (GFC_UNALIGNED_C8(ret->base_addr) in cshift0()
[all …]
/netbsd-src/external/gpl3/gcc/dist/libgfortran/generated/
H A Dbessel_r4.c52 if (ret->base_addr == NULL) in bessel_jn_r4()
56 ret->base_addr = xmallocarray (size, sizeof (GFC_REAL_4)); in bessel_jn_r4()
73 ret->base_addr[0] = 1; in bessel_jn_r4()
75 ret->base_addr[i*stride] = 0; in bessel_jn_r4()
80 ret->base_addr[(n2-n1)*stride] = last1; in bessel_jn_r4()
86 ret->base_addr[(n2-n1-1)*stride] = last2; in bessel_jn_r4()
95 ret->base_addr[i*stride] = x2rev * (i+1+n1) * last2 - last1; in bessel_jn_r4()
97 last2 = ret->base_addr[i*stride]; in bessel_jn_r4()
119 if (ret->base_addr == NULL) in bessel_yn_r4()
123 ret->base_addr = xmallocarray (size, sizeof (GFC_REAL_4)); in bessel_yn_r4()
[all …]
H A Dbessel_r16.c56 if (ret->base_addr == NULL) in bessel_jn_r16()
60 ret->base_addr = xmallocarray (size, sizeof (GFC_REAL_16)); in bessel_jn_r16()
77 ret->base_addr[0] = 1; in bessel_jn_r16()
79 ret->base_addr[i*stride] = 0; in bessel_jn_r16()
84 ret->base_addr[(n2-n1)*stride] = last1; in bessel_jn_r16()
90 ret->base_addr[(n2-n1-1)*stride] = last2; in bessel_jn_r16()
99 ret->base_addr[i*stride] = x2rev * (i+1+n1) * last2 - last1; in bessel_jn_r16()
101 last2 = ret->base_addr[i*stride]; in bessel_jn_r16()
123 if (ret->base_addr == NULL) in bessel_yn_r16()
127 ret->base_addr = xmallocarray (size, sizeof (GFC_REAL_16)); in bessel_yn_r16()
[all …]
H A Dbessel_r10.c52 if (ret->base_addr == NULL) in bessel_jn_r10()
56 ret->base_addr = xmallocarray (size, sizeof (GFC_REAL_10)); in bessel_jn_r10()
73 ret->base_addr[0] = 1; in bessel_jn_r10()
75 ret->base_addr[i*stride] = 0; in bessel_jn_r10()
80 ret->base_addr[(n2-n1)*stride] = last1; in bessel_jn_r10()
86 ret->base_addr[(n2-n1-1)*stride] = last2; in bessel_jn_r10()
95 ret->base_addr[i*stride] = x2rev * (i+1+n1) * last2 - last1; in bessel_jn_r10()
97 last2 = ret->base_addr[i*stride]; in bessel_jn_r10()
119 if (ret->base_addr == NULL) in bessel_yn_r10()
123 ret->base_addr = xmallocarray (size, sizeof (GFC_REAL_10)); in bessel_yn_r10()
[all …]
H A Dbessel_r17.c56 if (ret->base_addr == NULL) in bessel_jn_r17()
60 ret->base_addr = xmallocarray (size, sizeof (GFC_REAL_17)); in bessel_jn_r17()
77 ret->base_addr[0] = 1; in bessel_jn_r17()
79 ret->base_addr[i*stride] = 0; in bessel_jn_r17()
84 ret->base_addr[(n2-n1)*stride] = last1; in bessel_jn_r17()
90 ret->base_addr[(n2-n1-1)*stride] = last2; in bessel_jn_r17()
99 ret->base_addr[i*stride] = x2rev * (i+1+n1) * last2 - last1; in bessel_jn_r17()
101 last2 = ret->base_addr[i*stride]; in bessel_jn_r17()
123 if (ret->base_addr == NULL) in bessel_yn_r17()
127 ret->base_addr = xmallocarray (size, sizeof (GFC_REAL_17)); in bessel_yn_r17()
[all …]
H A Dbessel_r8.c52 if (ret->base_addr == NULL) in bessel_jn_r8()
56 ret->base_addr = xmallocarray (size, sizeof (GFC_REAL_8)); in bessel_jn_r8()
73 ret->base_addr[0] = 1; in bessel_jn_r8()
75 ret->base_addr[i*stride] = 0; in bessel_jn_r8()
80 ret->base_addr[(n2-n1)*stride] = last1; in bessel_jn_r8()
86 ret->base_addr[(n2-n1-1)*stride] = last2; in bessel_jn_r8()
95 ret->base_addr[i*stride] = x2rev * (i+1+n1) * last2 - last1; in bessel_jn_r8()
97 last2 = ret->base_addr[i*stride]; in bessel_jn_r8()
119 if (ret->base_addr == NULL) in bessel_yn_r8()
123 ret->base_addr = xmallocarray (size, sizeof (GFC_REAL_8)); in bessel_yn_r8()
[all …]
H A Dfindloc0_r16.c55 if (retarray->base_addr == NULL) in findloc0_r16()
60 retarray->base_addr = xmallocarray (rank, sizeof (index_type)); in findloc0_r16()
70 dest = retarray->base_addr; in findloc0_r16()
91 base = array->base_addr + (sz - 1) * 1; in findloc0_r16()
129 base = array->base_addr; in findloc0_r16()
194 if (retarray->base_addr == NULL) in mfindloc0_r16()
199 retarray->base_addr = xmallocarray (rank, sizeof (index_type)); in mfindloc0_r16()
214 mbase = mask->base_addr; in mfindloc0_r16()
226 dest = retarray->base_addr; in mfindloc0_r16()
248 base = array->base_addr + (sz - 1) * 1; in mfindloc0_r16()
[all …]
H A Dfindloc0_c16.c55 if (retarray->base_addr == NULL) in findloc0_c16()
60 retarray->base_addr = xmallocarray (rank, sizeof (index_type)); in findloc0_c16()
70 dest = retarray->base_addr; in findloc0_c16()
91 base = array->base_addr + (sz - 1) * 1; in findloc0_c16()
129 base = array->base_addr; in findloc0_c16()
194 if (retarray->base_addr == NULL) in mfindloc0_c16()
199 retarray->base_addr = xmallocarray (rank, sizeof (index_type)); in mfindloc0_c16()
214 mbase = mask->base_addr; in mfindloc0_c16()
226 dest = retarray->base_addr; in mfindloc0_c16()
248 base = array->base_addr + (sz - 1) * 1; in mfindloc0_c16()
[all …]
/netbsd-src/external/gpl3/gcc.old/dist/libgfortran/generated/
H A Dbessel_r4.c52 if (ret->base_addr == NULL) in bessel_jn_r4()
56 ret->base_addr = xmallocarray (size, sizeof (GFC_REAL_4)); in bessel_jn_r4()
73 ret->base_addr[0] = 1; in bessel_jn_r4()
75 ret->base_addr[i*stride] = 0; in bessel_jn_r4()
80 ret->base_addr[(n2-n1)*stride] = last1; in bessel_jn_r4()
86 ret->base_addr[(n2-n1-1)*stride] = last2; in bessel_jn_r4()
95 ret->base_addr[i*stride] = x2rev * (i+1+n1) * last2 - last1; in bessel_jn_r4()
97 last2 = ret->base_addr[i*stride]; in bessel_jn_r4()
119 if (ret->base_addr == NULL) in bessel_yn_r4()
123 ret->base_addr = xmallocarray (size, sizeof (GFC_REAL_4)); in bessel_yn_r4()
[all …]
H A Dbessel_r16.c56 if (ret->base_addr == NULL) in bessel_jn_r16()
60 ret->base_addr = xmallocarray (size, sizeof (GFC_REAL_16)); in bessel_jn_r16()
77 ret->base_addr[0] = 1; in bessel_jn_r16()
79 ret->base_addr[i*stride] = 0; in bessel_jn_r16()
84 ret->base_addr[(n2-n1)*stride] = last1; in bessel_jn_r16()
90 ret->base_addr[(n2-n1-1)*stride] = last2; in bessel_jn_r16()
99 ret->base_addr[i*stride] = x2rev * (i+1+n1) * last2 - last1; in bessel_jn_r16()
101 last2 = ret->base_addr[i*stride]; in bessel_jn_r16()
123 if (ret->base_addr == NULL) in bessel_yn_r16()
127 ret->base_addr = xmallocarray (size, sizeof (GFC_REAL_16)); in bessel_yn_r16()
[all …]
H A Dbessel_r10.c52 if (ret->base_addr == NULL) in bessel_jn_r10()
56 ret->base_addr = xmallocarray (size, sizeof (GFC_REAL_10)); in bessel_jn_r10()
73 ret->base_addr[0] = 1; in bessel_jn_r10()
75 ret->base_addr[i*stride] = 0; in bessel_jn_r10()
80 ret->base_addr[(n2-n1)*stride] = last1; in bessel_jn_r10()
86 ret->base_addr[(n2-n1-1)*stride] = last2; in bessel_jn_r10()
95 ret->base_addr[i*stride] = x2rev * (i+1+n1) * last2 - last1; in bessel_jn_r10()
97 last2 = ret->base_addr[i*stride]; in bessel_jn_r10()
119 if (ret->base_addr == NULL) in bessel_yn_r10()
123 ret->base_addr = xmallocarray (size, sizeof (GFC_REAL_10)); in bessel_yn_r10()
[all …]
H A Dbessel_r8.c52 if (ret->base_addr == NULL) in bessel_jn_r8()
56 ret->base_addr = xmallocarray (size, sizeof (GFC_REAL_8)); in bessel_jn_r8()
73 ret->base_addr[0] = 1; in bessel_jn_r8()
75 ret->base_addr[i*stride] = 0; in bessel_jn_r8()
80 ret->base_addr[(n2-n1)*stride] = last1; in bessel_jn_r8()
86 ret->base_addr[(n2-n1-1)*stride] = last2; in bessel_jn_r8()
95 ret->base_addr[i*stride] = x2rev * (i+1+n1) * last2 - last1; in bessel_jn_r8()
97 last2 = ret->base_addr[i*stride]; in bessel_jn_r8()
119 if (ret->base_addr == NULL) in bessel_yn_r8()
123 ret->base_addr = xmallocarray (size, sizeof (GFC_REAL_8)); in bessel_yn_r8()
[all …]
H A Dfindloc0_c8.c55 if (retarray->base_addr == NULL) in findloc0_c8()
60 retarray->base_addr = xmallocarray (rank, sizeof (index_type)); in findloc0_c8()
70 dest = retarray->base_addr; in findloc0_c8()
91 base = array->base_addr + (sz - 1) * 1; in findloc0_c8()
129 base = array->base_addr; in findloc0_c8()
194 if (retarray->base_addr == NULL) in mfindloc0_c8()
199 retarray->base_addr = xmallocarray (rank, sizeof (index_type)); in mfindloc0_c8()
214 mbase = mask->base_addr; in mfindloc0_c8()
226 dest = retarray->base_addr; in mfindloc0_c8()
248 base = array->base_addr + (sz - 1) * 1; in mfindloc0_c8()
[all …]
H A Dfindloc0_i8.c55 if (retarray->base_addr == NULL) in findloc0_i8()
60 retarray->base_addr = xmallocarray (rank, sizeof (index_type)); in findloc0_i8()
70 dest = retarray->base_addr; in findloc0_i8()
91 base = array->base_addr + (sz - 1) * 1; in findloc0_i8()
129 base = array->base_addr; in findloc0_i8()
194 if (retarray->base_addr == NULL) in mfindloc0_i8()
199 retarray->base_addr = xmallocarray (rank, sizeof (index_type)); in mfindloc0_i8()
214 mbase = mask->base_addr; in mfindloc0_i8()
226 dest = retarray->base_addr; in mfindloc0_i8()
248 base = array->base_addr + (sz - 1) * 1; in mfindloc0_i8()
[all …]
/netbsd-src/external/gpl3/gcc/dist/libgfortran/runtime/
H A DISO_Fortran_binding.c49 GFC_DESCRIPTOR_DATA (d) = s->base_addr; in cfi_desc_to_gfc_desc()
115 d->base_addr = GFC_DESCRIPTOR_DATA (s); in gfc_desc_to_cfi_desc()
132 if (d->base_addr) in gfc_desc_to_cfi_desc()
159 char *base_addr = (char *)dv->base_addr; in CFI_address() local
171 if (dv->base_addr == NULL) in CFI_address()
181 return dv->base_addr; in CFI_address()
206 base_addr = base_addr + (CFI_index_t)(idx * dv->dim[i].sm); in CFI_address()
210 return (void *)base_addr; in CFI_address()
236 if (dv->base_addr != NULL) in CFI_allocate()
274 dv->base_addr = calloc (arr_len, dv->elem_len); in CFI_allocate()
[all …]
/netbsd-src/external/gpl3/gcc/dist/libgfortran/m4/
H A Dbessel.m453 if (ret->base_addr == NULL)
57 ret->base_addr = xmallocarray (size, sizeof ('rtype_name`));
74 ret->base_addr[0] = 1;
76 ret->base_addr[i*stride] = 0;
81 ret->base_addr[(n2-n1)*stride] = last1;
87 ret->base_addr[(n2-n1-1)*stride] = last2;
96 ret->base_addr[i*stride] = x2rev * (i+1+n1) * last2 - last1;
98 last2 = ret->base_addr[i*stride];
120 if (ret->base_addr == NULL)
124 ret->base_addr = xmallocarray (size, sizeof ('rtype_name`));
[all …]
/netbsd-src/external/gpl3/gcc.old/dist/libgfortran/m4/
H A Dbessel.m453 if (ret->base_addr == NULL)
57 ret->base_addr = xmallocarray (size, sizeof ('rtype_name`));
74 ret->base_addr[0] = 1;
76 ret->base_addr[i*stride] = 0;
81 ret->base_addr[(n2-n1)*stride] = last1;
87 ret->base_addr[(n2-n1-1)*stride] = last2;
96 ret->base_addr[i*stride] = x2rev * (i+1+n1) * last2 - last1;
98 last2 = ret->base_addr[i*stride];
120 if (ret->base_addr == NULL)
124 ret->base_addr = xmallocarray (size, sizeof ('rtype_name`));
[all …]
/netbsd-src/external/gpl3/gcc.old/dist/libgfortran/runtime/
H A DISO_Fortran_binding.c46 GFC_DESCRIPTOR_DATA (d) = s->base_addr; in cfi_desc_to_gfc_desc()
105 d->base_addr = GFC_DESCRIPTOR_DATA (s); in gfc_desc_to_cfi_desc()
122 if (d->base_addr) in gfc_desc_to_cfi_desc()
149 char *base_addr = (char *)dv->base_addr; in CFI_address() local
161 if (dv->base_addr == NULL) in CFI_address()
171 return dv->base_addr; in CFI_address()
194 base_addr = base_addr + (CFI_index_t)(idx * dv->dim[i].sm); in CFI_address()
198 return (void *)base_addr; in CFI_address()
224 if (dv->base_addr != NULL) in CFI_allocate()
265 dv->base_addr = calloc (arr_len, dv->elem_len); in CFI_allocate()
[all …]

12345678910>>...45