diff options
| author | jb <jb@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-04-12 19:27:49 +0000 |
|---|---|---|
| committer | jb <jb@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-04-12 19:27:49 +0000 |
| commit | c75dca4902ad96d90237f6ab49c368ecb1ff3e52 (patch) | |
| tree | 17933ebe7d8de121ec47c896cf51dd424e7498fd /libgfortran/intrinsics | |
| parent | 2c91fb39d3dca3aa4300047463649d5b108d28fb (diff) | |
| download | ppe42-gcc-c75dca4902ad96d90237f6ab49c368ecb1ff3e52.tar.gz ppe42-gcc-c75dca4902ad96d90237f6ab49c368ecb1ff3e52.zip | |
Cleanup memsize types
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@172340 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/intrinsics')
| -rw-r--r-- | libgfortran/intrinsics/cshift0.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libgfortran/intrinsics/cshift0.c b/libgfortran/intrinsics/cshift0.c index 651cd6e1e7c..00a50d5db7c 100644 --- a/libgfortran/intrinsics/cshift0.c +++ b/libgfortran/intrinsics/cshift0.c @@ -30,7 +30,7 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see static void cshift0 (gfc_array_char * ret, const gfc_array_char * array, - ssize_t shift, int which, index_type size) + ptrdiff_t shift, int which, index_type size) { /* r.* indicates the return array. */ index_type rstride[GFC_MAX_DIMENSIONS]; @@ -328,7 +328,7 @@ cshift0 (gfc_array_char * ret, const gfc_array_char * array, 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; |
