* real.c (real_sqrt): Use get_canonical_qnan directly.

From-SVN: r71919

gcc/ChangeLog

 2003-09-29  Zack Weinberg  <zack@codesourcery.com>
 
+	* real.c (real_sqrt): Use get_canonical_qnan directly.
+
 	* dwarf2out.c (add_const_value_attribute): Use real_to_target.
 
 	* varasm.c (assemble_real): Use real_to_target directly,

gcc/real.c

@@ -4459,8 +4459,7 @@ real_sqrt (REAL_VALUE_TYPE *r, enum machine_mode mode,
   /* Negative arguments return NaN.  */
   if (real_isneg (x))
     {
-      /* Mode is ignored for canonical NaN.  */
-      real_nan (r, "", 1, SFmode);
+      get_canonical_qnan (r, 0);
       return false;
     }