diff options
| author | rth <rth@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-12-13 02:47:58 +0000 |
|---|---|---|
| committer | rth <rth@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-12-13 02:47:58 +0000 |
| commit | 820b4fbda26cd41c4b02256c11da446b6f481e00 (patch) | |
| tree | 5d494dd2281213ae1afacc71aecb1aae933d6f83 /libgfortran/m4/iforeach.m4 | |
| parent | 99f4aa936d031cd7642e433a399a4eca2654d3d5 (diff) | |
| download | gcc-820b4fbda26cd41c4b02256c11da446b6f481e00.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@92075 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/m4/iforeach.m4')
| -rw-r--r-- | libgfortran/m4/iforeach.m4 | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/libgfortran/m4/iforeach.m4 b/libgfortran/m4/iforeach.m4 index b67770b4843..e6c9a09ac3b 100644 --- a/libgfortran/m4/iforeach.m4 +++ b/libgfortran/m4/iforeach.m4 @@ -4,11 +4,11 @@ dnl This file is part of the GNU Fortran 95 Runtime Library (libgfortran) dnl Distributed under the GNU LGPL. See COPYING for details. define(START_FOREACH_FUNCTION, ` -extern void `__'name`'rtype_qual`_'atype_code (rtype * retarray, atype *array); -export_proto_np(`__'name`'rtype_qual`_'atype_code); +extern void name`'rtype_qual`_'atype_code (rtype * retarray, atype *array); +export_proto(name`'rtype_qual`_'atype_code); void -`__'name`'rtype_qual`_'atype_code (rtype * retarray, atype *array) +name`'rtype_qual`_'atype_code (rtype * retarray, atype *array) { index_type count[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS]; @@ -90,11 +90,12 @@ define(FINISH_FOREACH_FUNCTION, }')dnl define(START_MASKED_FOREACH_FUNCTION, ` -extern void `__m'name`'rtype_qual`_'atype_code (rtype *, atype *, gfc_array_l4 *); -export_proto_np(`__m'name`'rtype_qual`_'atype_code); +extern void `m'name`'rtype_qual`_'atype_code (rtype *, atype *, gfc_array_l4 *); +export_proto(`m'name`'rtype_qual`_'atype_code); void -`__m'name`'rtype_qual`_'atype_code (rtype * retarray, atype *array, gfc_array_l4 * mask) +`m'name`'rtype_qual`_'atype_code (rtype * retarray, atype *array, + gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS]; |