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
/
reshape_c10.c
diff --git
a/libgfortran/generated/reshape_c10.c
b/libgfortran/generated/reshape_c10.c
index
44446eb
..
195c068
100644
(file)
--- a/
libgfortran/generated/reshape_c10.c
+++ b/
libgfortran/generated/reshape_c10.c
@@
-1,8
+1,8
@@
/* Implementation of the RESHAPE intrinsic
/* Implementation of the RESHAPE intrinsic
- Copyright
2002, 2006, 2007, 2009
Free Software Foundation, Inc.
+ Copyright
(C) 2002-2013
Free Software Foundation, Inc.
Contributed by Paul Brook <paul@nowt.org>
Contributed 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
@@
-87,7
+87,7
@@
reshape_c10 (gfc_array_c10 * const restrict ret,
for (n = 0; n < rdim; n++)
{
for (n = 0; n < rdim; n++)
{
- shape_data[n] = shape->
data
[n * GFC_DESCRIPTOR_STRIDE(shape,0)];
+ shape_data[n] = shape->
base_addr
[n * GFC_DESCRIPTOR_STRIDE(shape,0)];
if (shape_data[n] <= 0)
{
shape_data[n] = 0;
if (shape_data[n] <= 0)
{
shape_data[n] = 0;
@@
-95,7
+95,7
@@
reshape_c10 (gfc_array_c10 * const restrict ret,
}
}
}
}
- if (ret->
data
== NULL)
+ if (ret->
base_addr
== NULL)
{
index_type alloc_size;
{
index_type alloc_size;
@@
-115,7
+115,7
@@
reshape_c10 (gfc_array_c10 * const restrict ret,
else
alloc_size = rs * sizeof (GFC_COMPLEX_10);
else
alloc_size = rs * sizeof (GFC_COMPLEX_10);
- ret->
data = internal_malloc_size
(alloc_size);
+ ret->
base_addr = xmalloc
(alloc_size);
ret->dtype = (source->dtype & ~GFC_DTYPE_RANK_MASK) | rdim;
}
ret->dtype = (source->dtype & ~GFC_DTYPE_RANK_MASK) | rdim;
}
@@
-143,7
+143,7
@@
reshape_c10 (gfc_array_c10 * const restrict ret,
else
psize = 0;
}
else
psize = 0;
}
- pptr = pad->
data
;
+ pptr = pad->
base_addr
;
}
else
{
}
else
{
@@
-193,7
+193,7
@@
reshape_c10 (gfc_array_c10 * const restrict ret,
for (n = 0; n < rdim; n++)
{
for (n = 0; n < rdim; n++)
{
- v = order->
data
[n * GFC_DESCRIPTOR_STRIDE(order,0)] - 1;
+ v = order->
base_addr
[n * GFC_DESCRIPTOR_STRIDE(order,0)] - 1;
if (v < 0 || v >= rdim)
runtime_error("Value %ld out of range in ORDER argument"
if (v < 0 || v >= rdim)
runtime_error("Value %ld out of range in ORDER argument"
@@
-212,7
+212,7
@@
reshape_c10 (gfc_array_c10 * const restrict ret,
for (n = 0; n < rdim; n++)
{
if (order)
for (n = 0; n < rdim; n++)
{
if (order)
- dim = order->
data
[n * GFC_DESCRIPTOR_STRIDE(order,0)] - 1;
+ dim = order->
base_addr
[n * GFC_DESCRIPTOR_STRIDE(order,0)] - 1;
else
dim = n;
else
dim = n;
@@
-258,12
+258,12
@@
reshape_c10 (gfc_array_c10 * const restrict ret,
rsize *= sizeof (GFC_COMPLEX_10);
ssize *= sizeof (GFC_COMPLEX_10);
psize *= sizeof (GFC_COMPLEX_10);
rsize *= sizeof (GFC_COMPLEX_10);
ssize *= sizeof (GFC_COMPLEX_10);
psize *= sizeof (GFC_COMPLEX_10);
- reshape_packed ((char *)ret->
data, rsize, (char *)source->data
,
- ssize, pad ? (char *)pad->
data
: NULL, psize);
+ reshape_packed ((char *)ret->
base_addr, rsize, (char *)source->base_addr
,
+ ssize, pad ? (char *)pad->
base_addr
: NULL, psize);
return;
}
return;
}
- rptr = ret->
data
;
- src = sptr = source->
data
;
+ rptr = ret->
base_addr
;
+ src = sptr = source->
base_addr
;
rstride0 = rstride[0];
sstride0 = sstride[0];
rstride0 = rstride[0];
sstride0 = sstride[0];