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
/
all_l8.c
diff --git
a/libgfortran/generated/all_l8.c
b/libgfortran/generated/all_l8.c
index
8846d34
..
86ecbd4
100644
(file)
--- a/
libgfortran/generated/all_l8.c
+++ b/
libgfortran/generated/all_l8.c
@@
-1,5
+1,5
@@
/* Implementation of the ALL intrinsic
/* Implementation of the ALL 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).
@@
-83,7
+83,7
@@
all_l8 (gfc_array_l8 * 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;
@@
-111,7
+111,7
@@
all_l8 (gfc_array_l8 * const restrict retarray,
return;
}
else
return;
}
else
- retarray->
data = internal_malloc_size
(alloc_size);
+ retarray->
base_addr = xmalloc
(alloc_size);
}
else
{
}
else
{
@@
-145,7
+145,7
@@
all_l8 (gfc_array_l8 * const restrict retarray,
return;
}
return;
}
- base = array->
data
;
+ base = array->
base_addr
;
if (src_kind == 1 || src_kind == 2 || src_kind == 4 || src_kind == 8
#ifdef HAVE_GFC_LOGICAL_16
if (src_kind == 1 || src_kind == 2 || src_kind == 4 || src_kind == 8
#ifdef HAVE_GFC_LOGICAL_16
@@
-159,7
+159,7
@@
all_l8 (gfc_array_l8 * const restrict retarray,
else
internal_error (NULL, "Funny sized logical array in ALL intrinsic");
else
internal_error (NULL, "Funny sized logical array in ALL intrinsic");
- dest = retarray->
data
;
+ dest = retarray->
base_addr
;
continue_loop = 1;
while (continue_loop)
continue_loop = 1;
while (continue_loop)