diff --git a/gas/ChangeLog b/gas/ChangeLog
index aa7b69f60d4..ce1545107f4 100644
--- a/gas/ChangeLog
+++ b/gas/ChangeLog
@@ -1,3 +1,8 @@
+Tue Aug 16 01:48:20 1994  Jeff Law  (law@snake.cs.utah.edu)
+
+	* config/tc-hppa.c (pa_comm): Set sy_resolved for the common
+	symbol.
+
 Fri Aug 12 17:51:48 1994  Ian Lance Taylor  (ian@sanguine.cygnus.com)
 
 	* config/tc-mips.c (md_begin): Drop "el" from the end of
diff --git a/gas/config/tc-hppa.c b/gas/config/tc-hppa.c
index 397ae6c92ce..988edd951fc 100644
--- a/gas/config/tc-hppa.c
+++ b/gas/config/tc-hppa.c
@@ -587,95 +587,50 @@ const pseudo_typeS md_pseudo_table[] =
   /* align pseudo-ops on the PA specify the actual alignment requested,
      not the log2 of the requested alignment.  */
   {"align", s_align_bytes, 8},
-  {"ALIGN", s_align_bytes, 8},
   {"block", pa_block, 1},
-  {"BLOCK", pa_block, 1},
   {"blockz", pa_block, 0},
-  {"BLOCKZ", pa_block, 0},
   {"byte", pa_cons, 1},
-  {"BYTE", pa_cons, 1},
   {"call", pa_call, 0},
-  {"CALL", pa_call, 0},
   {"callinfo", pa_callinfo, 0},
-  {"CALLINFO", pa_callinfo, 0},
   {"code", pa_code, 0},
-  {"CODE", pa_code, 0},
   {"comm", pa_comm, 0},
-  {"COMM", pa_comm, 0},
   {"copyright", pa_copyright, 0},
-  {"COPYRIGHT", pa_copyright, 0},
   {"data", pa_data, 0},
-  {"DATA", pa_data, 0},
   {"double", pa_float_cons, 'd'},
-  {"DOUBLE", pa_float_cons, 'd'},
   {"end", pa_end, 0},
-  {"END", pa_end, 0},
   {"enter", pa_enter, 0},
-  {"ENTER", pa_enter, 0},
   {"entry", pa_entry, 0},
-  {"ENTRY", pa_entry, 0},
   {"equ", pa_equ, 0},
-  {"EQU", pa_equ, 0},
   {"exit", pa_exit, 0},
-  {"EXIT", pa_exit, 0},
   {"export", pa_export, 0},
-  {"EXPORT", pa_export, 0},
   {"fill", pa_fill, 0},
-  {"FILL", pa_fill, 0},
   {"float", pa_float_cons, 'f'},
-  {"FLOAT", pa_float_cons, 'f'},
   {"half", pa_cons, 2},
-  {"HALF", pa_cons, 2},
   {"import", pa_import, 0},
-  {"IMPORT", pa_import, 0},
   {"int", pa_cons, 4},
-  {"INT", pa_cons, 4},
   {"label", pa_label, 0},
-  {"LABEL", pa_label, 0},
   {"lcomm", pa_lcomm, 0},
-  {"LCOMM", pa_lcomm, 0},
   {"leave", pa_leave, 0},
-  {"LEAVE", pa_leave, 0},
   {"long", pa_cons, 4},
-  {"LONG", pa_cons, 4},
   {"lsym", pa_lsym, 0},
-  {"LSYM", pa_lsym, 0},
   {"octa", pa_cons, 16},
-  {"OCTA", pa_cons, 16},
   {"org", pa_origin, 0},
-  {"ORG", pa_origin, 0},
   {"origin", pa_origin, 0},
-  {"ORIGIN", pa_origin, 0},
   {"param", pa_param, 0},
-  {"PARAM", pa_param, 0},
   {"proc", pa_proc, 0},
-  {"PROC", pa_proc, 0},
   {"procend", pa_procend, 0},
-  {"PROCEND", pa_procend, 0},
   {"quad", pa_cons, 8},
-  {"QUAD", pa_cons, 8},
   {"reg", pa_equ, 1},
-  {"REG", pa_equ, 1},
   {"short", pa_cons, 2},
-  {"SHORT", pa_cons, 2},
   {"single", pa_float_cons, 'f'},
-  {"SINGLE", pa_float_cons, 'f'},
   {"space", pa_space, 0},
-  {"SPACE", pa_space, 0},
   {"spnum", pa_spnum, 0},
-  {"SPNUM", pa_spnum, 0},
   {"string", pa_stringer, 0},
-  {"STRING", pa_stringer, 0},
   {"stringz", pa_stringer, 1},
-  {"STRINGZ", pa_stringer, 1},
   {"subspa", pa_subspace, 0},
-  {"SUBSPA", pa_subspace, 0},
   {"text", pa_text, 0},
-  {"TEXT", pa_text, 0},
   {"version", pa_version, 0},
-  {"VERSION", pa_version, 0},
   {"word", pa_cons, 4},
-  {"WORD", pa_cons, 4},
   {NULL, 0, 0}
 };
 
@@ -4327,6 +4282,11 @@ pa_comm (unused)
 	  S_SET_VALUE (symbol, size);
 	  S_SET_SEGMENT (symbol, &bfd_und_section);
 	  S_SET_EXTERNAL (symbol);
+
+	  /* Keep this until we verify that the generic resolving
+	     code in write.c is fixed.  */
+	  symbol->sy_resolved = 1;
+	  
 	}
     }
   demand_empty_rest_of_line ();