diff options
author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-25 17:52:03 +0000 |
---|---|---|
committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-25 17:52:03 +0000 |
commit | 2cbaf336689c6ce446b680d823324be3bf631c1c (patch) | |
tree | ca93358d5c827cf4f4f0ac92f9cfd0055fc12c0e /libgfortran | |
parent | 131d9d704f582016f0ff6b8d34bc58d7253e5d6f (diff) | |
download | gcc-2cbaf336689c6ce446b680d823324be3bf631c1c.tar.gz |
2008-05-25 Tobias Burnus <burnus@net-b.de>
PR fortran/32600
* trans-expr.c (gfc_conv_function_call): Remove library
call for c_f_pointer with scalar Fortran pointers and for
c_f_procpointer.
2008-05-25 Tobias Burnus <burnus@net-b.de>
PR fortran/32600
* intrinsics/iso_c_binding.c (c_f_procpointer): Remove.
* intrinsics/iso_c_binding.h (c_f_procpointer): Remove.
* gfortran.map (c_f_procpointer): Remove.
2008-05-25 Tobias Burnus <burnus@net-b.de>
PR fortran/32600
* gfortran.dg/c_f_pointer_tests_3.f90: New.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@135877 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
-rw-r--r-- | libgfortran/ChangeLog | 7 | ||||
-rw-r--r-- | libgfortran/gfortran.map | 1 | ||||
-rw-r--r-- | libgfortran/intrinsics/iso_c_binding.c | 13 | ||||
-rw-r--r-- | libgfortran/intrinsics/iso_c_binding.h | 4 |
4 files changed, 7 insertions, 18 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 81820965ca6..877ab624351 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,10 @@ +2008-05-25 Tobias Burnus <burnus@net-b.de> + + PR fortran/32600 + * intrinsics/iso_c_binding.c (c_f_procpointer): Remove. + * intrinsics/iso_c_binding.h (c_f_procpointer): Remove. + * gfortran.map (c_f_procpointer): Remove. + 2008-05-22 Thomas Koenig <tkoenig@gcc.gnu.org> PR libgfortran/36302 diff --git a/libgfortran/gfortran.map b/libgfortran/gfortran.map index b61ce87990e..4244acab5f8 100644 --- a/libgfortran/gfortran.map +++ b/libgfortran/gfortran.map @@ -1026,7 +1026,6 @@ GFORTRAN_1.0 { __iso_c_binding_c_f_pointer_l4; __iso_c_binding_c_f_pointer_l8; __iso_c_binding_c_f_pointer_u0; - __iso_c_binding_c_f_procpointer; local: *; }; diff --git a/libgfortran/intrinsics/iso_c_binding.c b/libgfortran/intrinsics/iso_c_binding.c index 2a1e994d4d9..171b1524751 100644 --- a/libgfortran/intrinsics/iso_c_binding.c +++ b/libgfortran/intrinsics/iso_c_binding.c @@ -180,16 +180,3 @@ ISO_C_BINDING_PREFIX (c_f_pointer_d0) (void *c_ptr_in, | (GFC_DTYPE_DERIVED << GFC_DTYPE_TYPE_SHIFT); } } - - -/* This function will change, once there is an actual f90 type for the - procedure pointer. */ - -void -ISO_C_BINDING_PREFIX (c_f_procpointer) (void *c_ptr_in, - gfc_array_void *f_ptr_out) -{ - GFC_DESCRIPTOR_DATA(f_ptr_out) = c_ptr_in; -} - - diff --git a/libgfortran/intrinsics/iso_c_binding.h b/libgfortran/intrinsics/iso_c_binding.h index 4679c2aba02..cb1a7a066b7 100644 --- a/libgfortran/intrinsics/iso_c_binding.h +++ b/libgfortran/intrinsics/iso_c_binding.h @@ -52,10 +52,6 @@ c_funptr_t; void ISO_C_BINDING_PREFIX(c_f_pointer)(void *, gfc_array_void *, const array_t *, int, int); -/* The second param here may change, once procedure pointers are - implemented. */ -void ISO_C_BINDING_PREFIX(c_f_procpointer) (void *, gfc_array_void *); - void ISO_C_BINDING_PREFIX(c_f_pointer_u0) (void *, gfc_array_void *, const array_t *); void ISO_C_BINDING_PREFIX(c_f_pointer_d0) (void *, gfc_array_void *, |