diff options
| author | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-07-07 20:46:06 +0000 |
|---|---|---|
| committer | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-07-07 20:46:06 +0000 |
| commit | 75f6aa1535910908e6f82b01541fdf204a3bcc76 (patch) | |
| tree | 62db0a7e19f85d27e3c92815a90884a37aa15f8d /gcc/dbxout.c | |
| parent | b475d0846fed03c1ad069a2923fc218a9cc20693 (diff) | |
| download | gcc-75f6aa1535910908e6f82b01541fdf204a3bcc76.tar.gz | |
PR debug/40666
* dbxout.c (dbxout_symbol) <PARM_DECL>: Deal with parameters pointing
to variables for debugging purposes.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@149346 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/dbxout.c')
| -rw-r--r-- | gcc/dbxout.c | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/gcc/dbxout.c b/gcc/dbxout.c index df11628329b..bc7965e25b8 100644 --- a/gcc/dbxout.c +++ b/gcc/dbxout.c @@ -2778,9 +2778,15 @@ dbxout_symbol (tree decl, int local ATTRIBUTE_UNUSED) } case PARM_DECL: - /* Parm decls go in their own separate chains - and are output by dbxout_reg_parms and dbxout_parms. */ - gcc_unreachable (); + if (DECL_HAS_VALUE_EXPR_P (decl)) + decl = DECL_VALUE_EXPR (decl); + + /* PARM_DECLs go in their own separate chain and are output by + dbxout_reg_parms and dbxout_parms, except for those that are + disguised VAR_DECLs like Out parameters in Ada. */ + gcc_assert (TREE_CODE (decl) == VAR_DECL); + + /* ... fall through ... */ case RESULT_DECL: case VAR_DECL: |