projects
/
platform
/
upstream
/
gcc48.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Imported Upstream version 4.8.1
[platform/upstream/gcc48.git]
/
libgfortran
/
generated
/
product_r4.c
diff --git
a/libgfortran/generated/product_r4.c
b/libgfortran/generated/product_r4.c
index
492980e
..
ff68e42
100644
(file)
--- a/
libgfortran/generated/product_r4.c
+++ b/
libgfortran/generated/product_r4.c
@@
-1,5
+1,5
@@
/* Implementation of the PRODUCT intrinsic
/* Implementation of the PRODUCT intrinsic
- Copyright
2002, 2007, 2009, 2010
Free Software Foundation, Inc.
+ Copyright
(C) 2002-2013
Free Software Foundation, Inc.
Contributed by Paul Brook <paul@nowt.org>
This file is part of the GNU Fortran runtime library (libgfortran).
Contributed by Paul Brook <paul@nowt.org>
This file is part of the GNU Fortran runtime library (libgfortran).
@@
-79,7
+79,7
@@
product_r4 (gfc_array_r4 * const restrict retarray,
extent[n] = 0;
}
extent[n] = 0;
}
- if (retarray->
data
== NULL)
+ if (retarray->
base_addr
== NULL)
{
size_t alloc_size, str;
{
size_t alloc_size, str;
@@
-100,7
+100,7
@@
product_r4 (gfc_array_r4 * const restrict retarray,
alloc_size = sizeof (GFC_REAL_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
* extent[rank-1];
alloc_size = sizeof (GFC_REAL_4) * GFC_DESCRIPTOR_STRIDE(retarray,rank-1)
* extent[rank-1];
- retarray->
data = internal_malloc_size
(alloc_size);
+ retarray->
base_addr = xmalloc
(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. */
@@
-130,8
+130,8
@@
product_r4 (gfc_array_r4 * const restrict retarray,
return;
}
return;
}
- base = array->
data
;
- dest = retarray->
data
;
+ base = array->
base_addr
;
+ dest = retarray->
base_addr
;
continue_loop = 1;
while (continue_loop)
continue_loop = 1;
while (continue_loop)
@@
-221,7
+221,7
@@
mproduct_r4 (gfc_array_r4 * const restrict retarray,
if (len <= 0)
return;
if (len <= 0)
return;
- mbase = mask->
data
;
+ mbase = mask->
base_addr
;
mask_kind = GFC_DESCRIPTOR_SIZE (mask);
mask_kind = GFC_DESCRIPTOR_SIZE (mask);
@@
-257,7
+257,7
@@
mproduct_r4 (gfc_array_r4 * const restrict retarray,
extent[n] = 0;
}
extent[n] = 0;
}
- if (retarray->
data
== NULL)
+ if (retarray->
base_addr
== NULL)
{
size_t alloc_size, str;
{
size_t alloc_size, str;
@@
-285,7
+285,7
@@
mproduct_r4 (gfc_array_r4 * const restrict retarray,
return;
}
else
return;
}
else
- retarray->
data = internal_malloc_size
(alloc_size);
+ retarray->
base_addr = xmalloc
(alloc_size);
}
else
}
else
@@
-310,8
+310,8
@@
mproduct_r4 (gfc_array_r4 * const restrict retarray,
return;
}
return;
}
- dest = retarray->
data
;
- base = array->
data
;
+ dest = retarray->
base_addr
;
+ base = array->
base_addr
;
while (base)
{
while (base)
{
@@
-323,18
+323,13
@@
mproduct_r4 (gfc_array_r4 * const restrict retarray,
{
result = 1;
{
result = 1;
- if (len <= 0)
- *dest = 1;
- else
+ for (n = 0; n < len; n++, src += delta, msrc += mdelta)
{
{
- for (n = 0; n < len; n++, src += delta, msrc += mdelta)
- {
if (*msrc)
result *= *src;
if (*msrc)
result *= *src;
- }
- *dest = result;
}
}
+ *dest = result;
}
/* Advance to the next element. */
count[0]++;
}
/* Advance to the next element. */
count[0]++;
@@
-417,7
+412,7
@@
sproduct_r4 (gfc_array_r4 * const restrict retarray,
extent[n] = 0;
}
extent[n] = 0;
}
- if (retarray->
data
== NULL)
+ if (retarray->
base_addr
== NULL)
{
size_t alloc_size, str;
{
size_t alloc_size, str;
@@
-445,7
+440,7
@@
sproduct_r4 (gfc_array_r4 * const restrict retarray,
return;
}
else
return;
}
else
- retarray->
data = internal_malloc_size
(alloc_size);
+ retarray->
base_addr = xmalloc
(alloc_size);
}
else
{
}
else
{
@@
-477,7
+472,7
@@
sproduct_r4 (gfc_array_r4 * const restrict retarray,
dstride[n] = GFC_DESCRIPTOR_STRIDE(retarray,n);
}
dstride[n] = GFC_DESCRIPTOR_STRIDE(retarray,n);
}
- dest = retarray->
data
;
+ dest = retarray->
base_addr
;
while(1)
{
while(1)
{