From: Jeff Law <law@redhat.com>
Date: Thu, 5 Jan 1995 08:18:13 +0000 (+0000)
Subject: 	* stabsread.c (define_symbol): Handle `a' symbol type used for
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=117a817d90627add30de376a42c14220dd21e738;p=binutils-gdb.git

	* 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 affa729c20d..8457c699354 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  <shebs@andros.cygnus.com>
 
diff --git a/gdb/stabsread.c b/gdb/stabsread.c
index 6eb57901510..a21e521f51e 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 (&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)