diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2009-07-07 20:46:06 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@adacore.com> | 2009-07-07 20:46:06 +0000 |
| commit | 0cfc5587a70d4ad7338d3f2856ac58ae082d9f64 (patch) | |
| tree | 62db0a7e19f85d27e3c92815a90884a37aa15f8d /gcc/dbxout.c | |
| parent | d5c8821789cd0633a28a684f086d00d053011cd6 (diff) | |
PR debug/40666
* dbxout.c (dbxout_symbol) <PARM_DECL>: Deal with parameters pointing
to variables for debugging purposes.
git-svn-id: https://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: |