Fix for abort when PROMOTE_MODES defined but PROMOTE_FUNCTION_{ARG,RETURN} not.

	* expr.c (store_expr): When target is a promoted subreg, return a
	promoted subreg as a result.

From-SVN: r27705

gcc/ChangeLog

+1999-06-22  Jim Wilson  <wilson@cygnus.com>
+
+	* expr.c (store_expr): When target is a promoted subreg, return a
+	promoted subreg as a result.
+
 Tue Jun 22 17:14:58 1999  Michael Meissner  <meissner@cygnus.com>
 
 	* dwarf2out.c (dwarf2out_frame_debug_expr): Reformat to match GNU

gcc/expr.c

@@ -3652,6 +3652,20 @@ store_expr (exp, target, want_value)
 
       convert_move (SUBREG_REG (target), temp,
 		    SUBREG_PROMOTED_UNSIGNED_P (target));
+
+      /* If we promoted a constant, change the mode back down to match
+	 target.  Otherwise, the caller might get confused by a result whose
+	 mode is larger than expected.  */
+
+      if (want_value && GET_MODE (temp) != GET_MODE (target)
+	  && GET_MODE (temp) != VOIDmode)
+	{
+	  temp = gen_rtx_SUBREG (GET_MODE (target), temp, 0);
+	  SUBREG_PROMOTED_VAR_P (temp) = 1;
+	  SUBREG_PROMOTED_UNSIGNED_P (temp)
+	    = SUBREG_PROMOTED_UNSIGNED_P (target);
+	}
+
       return want_value ? temp : NULL_RTX;
     }
   else