From: Andrew Haley <aph@redhat.com>
Date: Mon, 16 Aug 2004 13:03:51 +0000 (+0000)
Subject: jcf-write.c (find_constant_index): Canonicalize NaNs when generating bytecode.
X-Git-Tag: releases/gcc-4.0.0~5861
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=a20f4d83c8ec7fb99c8532a84db5204fe00cf71d;p=thirdparty%2Fgcc.git

jcf-write.c (find_constant_index): Canonicalize NaNs when generating bytecode.

2004-08-16  Andrew Haley  <aph@redhat.com>

        * jcf-write.c (find_constant_index): Canonicalize NaNs when
        generating bytecode.

From-SVN: r86053
---

diff --git a/gcc/java/ChangeLog b/gcc/java/ChangeLog
index 4e0dc7e3de38..761c886f728a 100644
--- a/gcc/java/ChangeLog
+++ b/gcc/java/ChangeLog
@@ -1,3 +1,8 @@
+2004-08-16  Andrew Haley  <aph@redhat.com>
+
+	* jcf-write.c (find_constant_index): Canonicalize NaNs when
+	generating bytecode.
+
 2004-08-16  Elliot Lee <sopwith@redhat.com>
 
 	PR java/9677
diff --git a/gcc/java/jcf-write.c b/gcc/java/jcf-write.c
index d775a816ff28..7b5bdcce7f16 100644
--- a/gcc/java/jcf-write.c
+++ b/gcc/java/jcf-write.c
@@ -798,6 +798,19 @@ find_constant_index (tree value, struct jcf_partial *state)
     {
       long words[2];
 
+      /* IEEE NaN can have many values, but the Java VM spec defines a
+	 canonical NaN.  */      
+      if (flag_emit_class_files
+	  && REAL_VALUE_ISNAN (TREE_REAL_CST (value)))
+	{
+	  if (TYPE_PRECISION (TREE_TYPE (value)) == 32)
+ 	    return find_constant1 (&state->cpool, CONSTANT_Float,
+ 				   0x7fc00000);
+	  else
+ 	    return find_constant2 (&state->cpool, CONSTANT_Double,
+ 				   0x7ff80000, 0x00000000);
+	}	    
+      
       real_to_target (words, &TREE_REAL_CST (value),
 		      TYPE_MODE (TREE_TYPE (value)));
       words[0] &= 0xffffffff;