expr.c (emit_move_insn): Use SCALAR_FLOAT_MODE_P

	* expr.c (emit_move_insn):  Use SCALAR_FLOAT_MODE_P
	* machmode.h (SCALAR_FLOAT_MODE_P): New macro.

From-SVN: r58712

gcc/ChangeLog

+Fri Nov  1 10:33:15 CET 2002  Jan Hubicka  <jh@suse.cz>
+
+	* expr.c (emit_move_insn):  Use SCALAR_FLOAT_MODE_P
+	* machmode.h (SCALAR_FLOAT_MODE_P): New macro.
+
 2002-10-31  Nathanael Nerode  <neroden@gcc.gnu.org>
 
 	PR optimization/6162

gcc/expr.c

@@ -3092,7 +3092,7 @@ emit_move_insn (x, y)
   else if (CONSTANT_P (y))
     {
       if (optimize
-	  && FLOAT_MODE_P (GET_MODE (x))
+	  && SCALAR_FLOAT_MODE_P (GET_MODE (x))
 	  && (last_insn = compress_float_constant (x, y)))
 	return last_insn;
 

gcc/machmode.h

@@ -80,6 +80,10 @@ extern const enum mode_class mode_class[NUM_MACHINE_MODES];
   (GET_MODE_CLASS (MODE) == MODE_INT		\
    || GET_MODE_CLASS (MODE) == MODE_PARTIAL_INT)
 
+/* Nonzero if MODE is a scalar floating point mode.  */
+#define SCALAR_FLOAT_MODE_P(MODE)		\
+  (GET_MODE_CLASS (MODE) == MODE_FLOAT)
+
 /* Get the size in bytes of an object of mode MODE.  */
 
 extern const unsigned char mode_size[NUM_MACHINE_MODES];