diff options
author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-08-28 20:46:43 +0000 |
---|---|---|
committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-08-28 20:46:43 +0000 |
commit | c338399c0820665052d361763493891d2c44d625 (patch) | |
tree | 0cc3b76b4a34aabc245c4c35deaea7eeae0bd64b /libgfortran | |
parent | 4f99cfba18a31f706d10db5b7f8b8e661dd33bd3 (diff) | |
download | gcc-c338399c0820665052d361763493891d2c44d625.tar.gz |
PR fortran/53668
* intrinsic.c (add_functions, add_subroutines): Remove resolution
functions for FREE and MALLOC.
* intrinsic.h (gfc_resolve_malloc, gfc_resolve_free): Remove.
* iresolve.c (gfc_resolve_malloc, gfc_resolve_free): Remove.
* trans-intrinsic.c (conv_intrinsic_free,
gfc_conv_intrinsic_malloc): New functions.
* intrinsics/malloc.c: Adapt comments.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@227311 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
-rw-r--r-- | libgfortran/ChangeLog | 5 | ||||
-rw-r--r-- | libgfortran/intrinsics/malloc.c | 4 |
2 files changed, 9 insertions, 0 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 75be9ad3be2..a0b70ed4c35 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2015-08-28 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> + + PR fortran/53668 + * intrinsics/malloc.c: Adapt comments. + 2015-08-28 James Greenhalgh <james.greenhalgh@arm.com> * configure.ac: Auto-detect newlib function support unless we diff --git a/libgfortran/intrinsics/malloc.c b/libgfortran/intrinsics/malloc.c index b3fdad74946..9ffd18fd9f0 100644 --- a/libgfortran/intrinsics/malloc.c +++ b/libgfortran/intrinsics/malloc.c @@ -27,6 +27,10 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #include <stdlib.h> +/* The runtime MALLOC and FREE are kept here until the libgfortran ABI + is broken. The front-end now emits direct calls to the GCC's malloc() + and free() built-ins. */ + extern void PREFIX(free) (void **); export_proto_np(PREFIX(free)); |