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
/
spread_r4.c
diff --git
a/libgfortran/generated/spread_r4.c
b/libgfortran/generated/spread_r4.c
index
fac0900
..
56fc4cc
100644
(file)
--- a/
libgfortran/generated/spread_r4.c
+++ b/
libgfortran/generated/spread_r4.c
@@
-1,9
+1,9
@@
/* Special implementation of the SPREAD intrinsic
/* Special implementation of the SPREAD intrinsic
- Copyright
2008, 2009
Free Software Foundation, Inc.
+ Copyright
(C) 2008-2013
Free Software Foundation, Inc.
Contributed by Thomas Koenig <tkoenig@gcc.gnu.org>, based on
spread_generic.c written by Paul Brook <paul@nowt.org>
Contributed by Thomas Koenig <tkoenig@gcc.gnu.org>, based on
spread_generic.c written by Paul Brook <paul@nowt.org>
-This file is part of the GNU Fortran
95
runtime library (libgfortran).
+This file is part of the GNU Fortran runtime library (libgfortran).
Libgfortran is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public
Libgfortran is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public
@@
-67,7
+67,7
@@
spread_r4 (gfc_array_r4 *ret, const gfc_array_r4 *source,
ncopies = pncopies;
ncopies = pncopies;
- if (ret->
data
== NULL)
+ if (ret->
base_addr
== NULL)
{
size_t ub, stride;
{
size_t ub, stride;
@@
-101,8
+101,8
@@
spread_r4 (gfc_array_r4 *ret, const gfc_array_r4 *source,
}
ret->offset = 0;
}
ret->offset = 0;
- /*
internal_malloc_size
allocates a single byte for zero size. */
- ret->
data = internal_malloc_size
(rs * sizeof(GFC_REAL_4));
+ /*
xmalloc
allocates a single byte for zero size. */
+ ret->
base_addr = xmalloc
(rs * sizeof(GFC_REAL_4));
if (rs <= 0)
return;
}
if (rs <= 0)
return;
}
@@
-181,8
+181,8
@@
spread_r4 (gfc_array_r4 *ret, const gfc_array_r4 *source,
}
sstride0 = sstride[0];
rstride0 = rstride[0];
}
sstride0 = sstride[0];
rstride0 = rstride[0];
- rptr = ret->
data
;
- sptr = source->
data
;
+ rptr = ret->
base_addr
;
+ sptr = source->
base_addr
;
while (sptr)
{
while (sptr)
{
@@
-242,9
+242,9
@@
spread_scalar_r4 (gfc_array_r4 *ret, const GFC_REAL_4 *source,
if (along > 1)
runtime_error ("dim outside of rank in spread()");
if (along > 1)
runtime_error ("dim outside of rank in spread()");
- if (ret->
data
== NULL)
+ if (ret->
base_addr
== NULL)
{
{
- ret->
data = internal_malloc_size
(ncopies * sizeof (GFC_REAL_4));
+ ret->
base_addr = xmalloc
(ncopies * sizeof (GFC_REAL_4));
ret->offset = 0;
GFC_DIMENSION_SET(ret->dim[0], 0, ncopies - 1, 1);
}
ret->offset = 0;
GFC_DIMENSION_SET(ret->dim[0], 0, ncopies - 1, 1);
}
@@
-255,7
+255,7
@@
spread_scalar_r4 (gfc_array_r4 *ret, const GFC_REAL_4 *source,
runtime_error ("dim too large in spread()");
}
runtime_error ("dim too large in spread()");
}
- dest = ret->
data
;
+ dest = ret->
base_addr
;
stride = GFC_DESCRIPTOR_STRIDE(ret,0);
for (n = 0; n < ncopies; n++)
stride = GFC_DESCRIPTOR_STRIDE(ret,0);
for (n = 0; n < ncopies; n++)