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
/
shape_i4.c
diff --git
a/libgfortran/generated/shape_i4.c
b/libgfortran/generated/shape_i4.c
index
fa2d4eb
..
cd446f5
100644
(file)
--- a/
libgfortran/generated/shape_i4.c
+++ b/
libgfortran/generated/shape_i4.c
@@
-1,8
+1,8
@@
/* Implementation of the SHAPE intrinsic
/* Implementation of the SHAPE intrinsic
- Copyright
2002, 2006, 2007, 2009, 2010
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
@@
-45,11
+45,11
@@
shape_4 (gfc_array_i4 * const restrict ret,
rank = GFC_DESCRIPTOR_RANK (array);
rank = GFC_DESCRIPTOR_RANK (array);
- if (ret->
data
== NULL)
+ if (ret->
base_addr
== NULL)
{
GFC_DIMENSION_SET(ret->dim[0], 0, rank - 1, 1);
ret->offset = 0;
{
GFC_DIMENSION_SET(ret->dim[0], 0, rank - 1, 1);
ret->offset = 0;
- ret->
data = internal_malloc_size
(sizeof (GFC_INTEGER_4) * rank);
+ ret->
base_addr = xmalloc
(sizeof (GFC_INTEGER_4) * rank);
}
stride = GFC_DESCRIPTOR_STRIDE(ret,0);
}
stride = GFC_DESCRIPTOR_STRIDE(ret,0);
@@
-60,7
+60,7
@@
shape_4 (gfc_array_i4 * const restrict ret,
for (n = 0; n < rank; n++)
{
extent = GFC_DESCRIPTOR_EXTENT(array,n);
for (n = 0; n < rank; n++)
{
extent = GFC_DESCRIPTOR_EXTENT(array,n);
- ret->
data
[n * stride] = extent > 0 ? extent : 0 ;
+ ret->
base_addr
[n * stride] = extent > 0 ? extent : 0 ;
}
}
}
}