From 44720bef9d5a11cf39c1eabbeb2c0739d0504ef8 Mon Sep 17 00:00:00 2001 From: Janne Blomqvist Date: Tue, 12 Apr 2011 22:27:49 +0300 Subject: Cleanup memsize types From-SVN: r172340 --- libgfortran/generated/cshift0_r4.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'libgfortran/generated/cshift0_r4.c') diff --git a/libgfortran/generated/cshift0_r4.c b/libgfortran/generated/cshift0_r4.c index 515c36b..9bd0214 100644 --- a/libgfortran/generated/cshift0_r4.c +++ b/libgfortran/generated/cshift0_r4.c @@ -32,7 +32,7 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_REAL_4) void -cshift0_r4 (gfc_array_r4 *ret, const gfc_array_r4 *array, ssize_t shift, +cshift0_r4 (gfc_array_r4 *ret, const gfc_array_r4 *array, ptrdiff_t shift, int which) { /* r.* indicates the return array. */ @@ -97,7 +97,7 @@ cshift0_r4 (gfc_array_r4 *ret, const gfc_array_r4 *array, ssize_t shift, rptr = ret->data; sptr = array->data; - shift = len == 0 ? 0 : shift % (ssize_t)len; + shift = len == 0 ? 0 : shift % (ptrdiff_t)len; if (shift < 0) shift += len; -- cgit v1.1