diff options
| author | Thomas Koenig <Thomas.Koenig@online.de> | 2007-03-14 19:26:38 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2007-03-14 19:26:38 +0000 |
| commit | adea5e16e4e86438f97cfdd3fabb5654c45f9d61 (patch) | |
| tree | 30e3cd3e0ab7d3d112d7ba8f0a2d73539d5d59fd /libgfortran/m4/in_pack.m4 | |
| parent | 286d12f95e207376800e2f6fa79d4adc866408e8 (diff) | |
| download | gcc-adea5e16e4e86438f97cfdd3fabb5654c45f9d61.tar.gz | |
re PR libfortran/30690 ([4.2, 4.1 only] Clean up m4 files)
2007-03-14 Thomas Koenig <Thomas.Koenig@online.de>
PR libfortran/30690
* all.m4: Quote everything, except for m4 macros.
* any.m4: Likewise.
* count.m4: Likewise.
* cshift1.m4: Likewise.
* eoshift1.m4: Likewise.
* eoshift3.m4: Likewise.
* exponent.m4: Likewise.
* fraction.m4: Likewise.
* in_pack.m4: Likewise.
* in_unpack.m4: Likewise.
* matmul.m4: Likewise.
* matmull.m4: Likewise.
* nearest.m4: Likewise.
* pow.m4: Likewise.
* product.m4: Likewise.
* reshape.m4: Likewise.
* rrspacing.m4: Likewise.
* set_exponent.m4: Likewise.
* shape.m4: Likewise.
* spacing.m4: Likewise.
* transpose.m4: Likewise.
From-SVN: r122927
Diffstat (limited to 'libgfortran/m4/in_pack.m4')
| -rw-r--r-- | libgfortran/m4/in_pack.m4 | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/libgfortran/m4/in_pack.m4 b/libgfortran/m4/in_pack.m4 index 81205075198..ca243641329 100644 --- a/libgfortran/m4/in_pack.m4 +++ b/libgfortran/m4/in_pack.m4 @@ -34,15 +34,15 @@ Boston, MA 02110-1301, USA. */ #include "libgfortran.h"' include(iparm.m4)dnl -`#if defined (HAVE_'rtype_name`)' +`#if defined (HAVE_'rtype_name`) /* Allocates a block of memory with internal_malloc if the array needs repacking. */ - +' dnl The kind (ie size) is used to name the function for logicals, integers dnl and reals. For complex, it's c4 or c8. -rtype_name * -`internal_pack_'rtype_ccode (rtype * source) +rtype_name` * +internal_pack_'rtype_ccode` ('rtype` * source) { index_type count[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS]; @@ -50,9 +50,9 @@ rtype_name * index_type stride0; index_type dim; index_type ssize; - const rtype_name *src; - rtype_name *dest; - rtype_name *destptr; + const 'rtype_name` *src; + 'rtype_name` *dest; + 'rtype_name` *destptr; int n; int packed; @@ -84,7 +84,7 @@ rtype_name * return source->data; /* Allocate storage for the destination. */ - destptr = (rtype_name *)internal_malloc_size (ssize * sizeof (rtype_name)); + destptr = ('rtype_name` *)internal_malloc_size (ssize * sizeof ('rtype_name`)); dest = destptr; src = source->data; stride0 = stride[0]; @@ -124,3 +124,4 @@ rtype_name * } #endif +'
\ No newline at end of file |