diff options
| author | Richard Henderson <rth@redhat.com> | 2004-12-12 18:47:58 -0800 |
|---|---|---|
| committer | Richard Henderson <rth@gcc.gnu.org> | 2004-12-12 18:47:58 -0800 |
| commit | 7f68c75fb313ac9e2bb59dc960071ac429486529 (patch) | |
| tree | 5d494dd2281213ae1afacc71aecb1aae933d6f83 /libgfortran/intrinsics/cshift0.c | |
| parent | 5ad85f7dc81455d7a6551bdb9a3519fa697d15d7 (diff) | |
| download | gcc-7f68c75fb313ac9e2bb59dc960071ac429486529.zip gcc-7f68c75fb313ac9e2bb59dc960071ac429486529.tar.gz gcc-7f68c75fb313ac9e2bb59dc960071ac429486529.tar.bz2 | |
iresolve.c (gfc_resolve_all, [...]): Use PREFIX.
gcc/fortran/
* iresolve.c (gfc_resolve_all, gfc_resolve_any, gfc_resolve_count,
gfc_resolve_cshift, gfc_resolve_dot_product, gfc_resolve_eoshift,
gfc_resolve_matmul, gfc_resolve_maxloc, gfc_resolve_maxval,
gfc_resolve_minloc, gfc_resolve_minval, gfc_resolve_pack,
gfc_resolve_product, gfc_resolve_reshape, gfc_resolve_shape,
gfc_resolve_spread, gfc_resolve_sum, gfc_resolve_transpose,
gfc_resolve_unpack: Use PREFIX.
libgfortran/
* intrinsics/cshift0.c, intrinsics/eoshift0.c, intrinsics/eoshift2.c,
intrinsics/pack_generic.c, intrinsics/reshape_generic.c,
intrinsics/spread_generic.c, intrinsics/transpose_generic.c,
intrinsics/unpack_generic.c, m4/cshift1.m4, m4/dotprod.m4,
m4/dotprodc.m4, m4/dotprodl.m4, m4/eoshift1.m4, m4/eoshift3.m4,
m4/iforeach.m4, m4/ifunction.m4, m4/matmul.m4, m4/matmull.m4,
m4/reshape.m4, m4/shape.m4, m4/transpose.m4: Use standard prefix
instead of "__".
* generated/*: Rebuild.
From-SVN: r92075
Diffstat (limited to 'libgfortran/intrinsics/cshift0.c')
| -rw-r--r-- | libgfortran/intrinsics/cshift0.c | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/libgfortran/intrinsics/cshift0.c b/libgfortran/intrinsics/cshift0.c index 9fd8785..4783eda 100644 --- a/libgfortran/intrinsics/cshift0.c +++ b/libgfortran/intrinsics/cshift0.c @@ -66,8 +66,8 @@ DEF_COPY_LOOP(ldouble, long double) static void -__cshift0 (gfc_array_char * ret, const gfc_array_char * array, - ssize_t shift, int which) +cshift0 (gfc_array_char * ret, const gfc_array_char * array, + ssize_t shift, int which) { /* r.* indicates the return array. */ index_type rstride[GFC_MAX_DIMENSIONS - 1]; @@ -238,24 +238,24 @@ __cshift0 (gfc_array_char * ret, const gfc_array_char * array, } -extern void __cshift0_4 (gfc_array_char *, const gfc_array_char *, - const GFC_INTEGER_4 *, const GFC_INTEGER_4 *); -export_proto_np(__cshift0_4); +extern void cshift0_4 (gfc_array_char *, const gfc_array_char *, + const GFC_INTEGER_4 *, const GFC_INTEGER_4 *); +export_proto(cshift0_4); void -__cshift0_4 (gfc_array_char * ret, const gfc_array_char * array, - const GFC_INTEGER_4 * pshift, const GFC_INTEGER_4 * pdim) +cshift0_4 (gfc_array_char *ret, const gfc_array_char *array, + const GFC_INTEGER_4 *pshift, const GFC_INTEGER_4 *pdim) { - __cshift0 (ret, array, *pshift, pdim ? *pdim : 1); + cshift0 (ret, array, *pshift, pdim ? *pdim : 1); } -extern void __cshift0_8 (gfc_array_char *, const gfc_array_char *, - const GFC_INTEGER_8 *, const GFC_INTEGER_8 *); -export_proto_np(__cshift0_8); +extern void cshift0_8 (gfc_array_char *, const gfc_array_char *, + const GFC_INTEGER_8 *, const GFC_INTEGER_8 *); +export_proto(cshift0_8); void -__cshift0_8 (gfc_array_char * ret, const gfc_array_char * array, - const GFC_INTEGER_8 * pshift, const GFC_INTEGER_8 * pdim) +cshift0_8 (gfc_array_char *ret, const gfc_array_char *array, + const GFC_INTEGER_8 *pshift, const GFC_INTEGER_8 *pdim) { - __cshift0 (ret, array, *pshift, pdim ? *pdim : 1); + cshift0 (ret, array, *pshift, pdim ? *pdim : 1); } |