diff options
| author | Paul Brook <paul@codesourcery.com> | 2004-05-18 19:03:26 +0000 |
|---|---|---|
| committer | Paul Brook <pbrook@gcc.gnu.org> | 2004-05-18 19:03:26 +0000 |
| commit | c9e66eda1aa76b77d9a56bf0d1b19a1576c37a62 (patch) | |
| tree | 569bf2d4b68fde558de654650a2688d76b403819 /libgfortran/m4/eoshift1.m4 | |
| parent | b79634e3d89667ac3b67531df917974241702862 (diff) | |
| download | gcc-c9e66eda1aa76b77d9a56bf0d1b19a1576c37a62.tar.gz | |
Makefile.am: Remove references to types.m4.
* Makefile.am: Remove references to types.m4.
* m4/iparm.m4: Merge with types.m4.
* m4/types.m4: Remove.
* 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/in_pack.m4, m4/in_unpack.m4, m4/iparm.m4, m4/matmul.m4,
m4/matmull.m4, m4/maxloc0.m4, m4/maxloc1.m4, m4/maxval.m4,
m4/minloc0.m4, m4/minloc1.m4, m4/minval.m4, m4/reshape.m4,
m4/shape.m4, m4/specific.m4, m4/specific2.m4, m4/transpose.m4):
Update to use new iparm.m4.
* generated/*.c: Regenerate.
From-SVN: r82003
Diffstat (limited to 'libgfortran/m4/eoshift1.m4')
| -rw-r--r-- | libgfortran/m4/eoshift1.m4 | 16 |
1 files changed, 6 insertions, 10 deletions
diff --git a/libgfortran/m4/eoshift1.m4 b/libgfortran/m4/eoshift1.m4 index 304d0038578..a7852e0e40a 100644 --- a/libgfortran/m4/eoshift1.m4 +++ b/libgfortran/m4/eoshift1.m4 @@ -24,18 +24,14 @@ Boston, MA 02111-1307, USA. */ #include <assert.h> #include <string.h> #include "libgfortran.h"' -include(types.m4)dnl -define(htype_kind, regexp(file, `_\([0-9]+\)\.', `\1'))dnl -define(htype_code,`i'rtype_name)dnl -define(htype,get_arraytype(i,htype_kind))dnl -define(htype_name, get_typename(i,htype_kind))dnl +include(iparm.m4)dnl static const char zeros[16] = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; void -`__eoshift1_'htype_kind (const gfc_array_char * ret, const gfc_array_char * array, - const htype * h, const char * pbound, const htype_name * pwhich) +`__eoshift1_'atype_kind (const gfc_array_char * ret, const gfc_array_char * array, + const atype * h, const char * pbound, const atype_name * pwhich) { /* r.* indicates the return array. */ index_type rstride[GFC_MAX_DIMENSIONS - 1]; @@ -52,7 +48,7 @@ void ` /* h.* indicates the shift array. */' index_type hstride[GFC_MAX_DIMENSIONS - 1]; index_type hstride0; - const htype_name *hptr; + const atype_name *hptr; index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -61,8 +57,8 @@ void index_type len; index_type n; int which; - htype_name sh; - htype_name delta; + atype_name sh; + atype_name delta; if (pwhich) which = *pwhich - 1; |