* struc-symbol.h: Add new "sy_used" field to the symbol structure.

	* expr.c (operand): Set sy_used for any symbol used as an operand.
	(expr): Likewise for any symbol used in an expression.
	* config/tc-hppa.h (tc_frob_symbol): Define.  Punt imported
	symbols which are never used and absolute symbols which local scope.

diff --git a/gas/ChangeLog b/gas/ChangeLog
index 3670d1bf3273251bf8431a106357c245dbb19dc2..a5c3468bd717a22776600c11a1bce7f3aa7e99a0 100644 (file)
--- a/gas/ChangeLog
+++ b/gas/ChangeLog
@@ -1,5 +1,11 @@
 Mon Nov  1 21:37:04 1993  Jeffrey A. Law  (law@snake.cs.utah.edu)
 
+       * struc-symbol.h: Add new "sy_used" field to the symbol structure.
+       * expr.c (operand): Set sy_used for any symbol used as an operand.
+       (expr): Likewise for any symbol used in an expression.
+       * config/tc-hppa.h (tc_frob_symbol): Define.  Punt imported
+       symbols which are never used and absolute symbols which local scope.
+
        * config/obj-som.h (obj_frob_file): Define.
        * config/obj-som.c (obj_som_init_stab_section): Set alignment
        of stab sections.  Make space for the special stab entry.

diff --git a/gas/expr.c b/gas/expr.c
index 838a847fcb691db7d3292cacb4fa8a38ef21bb1d..84048599c3d63ea6eaec572fd015a4b9bbbc0fc9 100644 (file)
--- a/gas/expr.c
+++ b/gas/expr.c
@@ -671,6 +671,10 @@ operand (expressionP)
   SKIP_WHITESPACE ();          /*->1st char after operand. */
   know (*input_line_pointer != ' ');
 
+  /* The PA port needs this information.  */
+  if (expressionP->X_add_symbol)
+    expressionP->X_add_symbol->sy_used = 1;
+
   switch (expressionP->X_op)
     {
     default:
@@ -980,6 +984,10 @@ expr (rank, resultP)
       op_left = op_right;
     }                          /* While next operator is >= this rank. */
 
+  /* The PA port needs this information.  */
+  if (resultP->X_add_symbol)
+    resultP->X_add_symbol->sy_used = 1;
+
   return resultP->X_op == O_constant ? absolute_section : retval;
 }
 \f