* stabsread.c (define_symbol): Handle `a' symbol type used for

	reference parameter passed in a register.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index affa729c20dccb7c4d9ffed3d35121655bf28b35..8457c6993540e9c376eb2b0f563a363482c0e279 100644 (file)
--- 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  <shebs@andros.cygnus.com>
 

diff --git a/gdb/stabsread.c b/gdb/stabsread.c
index 6eb579015109f90c02d56622c7e8a6c559fef414..a21e521f51e9258bfd83b6ea61e0eb56b9f96905 100644 (file)
--- 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 (&reg_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)