mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-05 23:31:21 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/24790 (arguments are displayed as reference or pointer to normal type in GDB)

Browse Source 
PR fortran/24790
	* trans-decl.c (create_function_arglist): Set DECL_BY_REFERENCE on
	PARM_DECLs with pointer or reference type.

From-SVN: r139777
This commit is contained in:
Jakub Jelinek 2008-08-29 20:47:19 +02:00 committed by Jakub Jelinek
parent 2599ed926b
commit 714495cdcf
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/fortran/ChangeLog
View File

@ -1,5 +1,9 @@
2008-08-29 Jakub Jelinek <jakub@redhat.com>
PR fortran/24790
* trans-decl.c (create_function_arglist): Set DECL_BY_REFERENCE on
PARM_DECLs with pointer or reference type.
* trans-decl.c (gfc_build_qualified_array): Build non-flat
array type for debug info purposes.

4
gcc/fortran/trans-decl.c
View File

@ -1644,6 +1644,10 @@ create_function_arglist (gfc_symbol * sym)
DECL_ARG_TYPE (parm) = TREE_VALUE (typelist);
/* All implementation args are read-only. */
TREE_READONLY (parm) = 1;
if (POINTER_TYPE_P (type)
&& (!f->sym->attr.proc_pointer
&& f->sym->attr.flavor != FL_PROCEDURE))
DECL_BY_REFERENCE (parm) = 1;
gfc_finish_decl (parm);