OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
2011-09-10 Thomas Koenig <tkoenig@gcc.gnu.org>
[pf3gnuchains/gcc-fork.git]
/
libgfortran
/
generated
/
minloc1_4_i4.c
diff --git
a/libgfortran/generated/minloc1_4_i4.c
b/libgfortran/generated/minloc1_4_i4.c
index
513b0cf
..
94d45c9
100644
(file)
--- a/
libgfortran/generated/minloc1_4_i4.c
+++ b/
libgfortran/generated/minloc1_4_i4.c
@@
-101,6
+101,7
@@
minloc1_4_i4 (gfc_array_i4 * const restrict retarray,
alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
* extent[rank-1];
alloc_size = sizeof (GFC_INTEGER_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
* extent[rank-1];
+ retarray->data = internal_malloc_size (alloc_size);
if (alloc_size == 0)
{
/* Make sure we have a zero-sized array. */
if (alloc_size == 0)
{
/* Make sure we have a zero-sized array. */
@@
-108,8
+109,6
@@
minloc1_4_i4 (gfc_array_i4 * const restrict retarray,
return;
}
return;
}
- else
- retarray->data = internal_malloc_size (alloc_size);
}
else
{
}
else
{
@@
-129,7
+128,7
@@
minloc1_4_i4 (gfc_array_i4 * const restrict retarray,
count[n] = 0;
dstride[n] = GFC_DESCRIPTOR_STRIDE(retarray,n);
if (extent[n] <= 0)
count[n] = 0;
dstride[n] = GFC_DESCRIPTOR_STRIDE(retarray,n);
if (extent[n] <= 0)
-
len = 0
;
+
return
;
}
base = array->data;
}
base = array->data;