From 117a817d90627add30de376a42c14220dd21e738 Mon Sep 17 00:00:00 2001 From: Jeff Law Date: Thu, 5 Jan 1995 08:18:13 +0000 Subject: [PATCH] * stabsread.c (define_symbol): Handle `a' symbol type used for reference parameter passed in a register. --- gdb/ChangeLog | 5 +++++ gdb/stabsread.c | 14 ++++++++++++++ 2 files changed, 19 insertions(+) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index affa729c20..8457c69935 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,8 @@ +Thu Jan 5 01:16:40 1995 Jeff Law (law@snake.cs.utah.edu) + + * stabsread.c (define_symbol): Handle `a' symbol type used for + reference parameter passed in a register. + start-sanitize-gdbtk Wed Jan 4 19:49:10 1995 Stan Shebs diff --git a/gdb/stabsread.c b/gdb/stabsread.c index 6eb5790151..a21e521f51 100644 --- a/gdb/stabsread.c +++ b/gdb/stabsread.c @@ -1186,6 +1186,20 @@ define_symbol (valu, string, desc, type, objfile) add_symbol_to_list (sym, &local_symbols); break; + case 'a': + /* Reference parameter which is in a register. */ + SYMBOL_TYPE (sym) = read_type (&p, objfile); + SYMBOL_CLASS (sym) = LOC_REGPARM_ADDR; + SYMBOL_VALUE (sym) = STAB_REG_TO_REGNUM (valu); + if (SYMBOL_VALUE (sym) >= NUM_REGS) + { + complain (®_value_complaint, SYMBOL_SOURCE_NAME (sym)); + SYMBOL_VALUE (sym) = SP_REGNUM; /* Known safe, though useless */ + } + SYMBOL_NAMESPACE (sym) = VAR_NAMESPACE; + add_symbol_to_list (sym, &local_symbols); + break; + case 'X': /* This is used by Sun FORTRAN for "function result value". Sun claims ("dbx and dbxtool interfaces", 2nd ed) -- 2.34.1