diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 0c2c5e964ad..6361a8696c9 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2002-05-02 Herman A.J. ten Brugge <Haj.Ten.Brugge@net.HCC.nl>
+
+	* predict.c: (propagate_freq, estimate_bb_frequencies): Use
+	TYPE_MODE (double_type_node) instead of DFmode.
+
 Thu May  2 19:50:04 CEST 2002  Jan Hubicka  <jh@suse.cz>
 
 	* cfgrtl.c (try_redirect_by_replacing_jump): Do not kill computed
diff --git a/gcc/predict.c b/gcc/predict.c
index 3eece3503b4..77f1a99d100 100644
--- a/gcc/predict.c
+++ b/gcc/predict.c
@@ -721,7 +721,8 @@ propagate_freq (head)
 				  * BLOCK_INFO (e->src)->frequency /
 				  REG_BR_PROB_BASE);  */
 
-		REAL_VALUE_FROM_INT (tmp, e->probability, 0, DFmode);
+		REAL_VALUE_FROM_INT (tmp, e->probability, 0,
+				     TYPE_MODE (double_type_node));
 		REAL_ARITHMETIC (tmp, MULT_EXPR, tmp,
 				 BLOCK_INFO (e->src)->frequency);
 		REAL_ARITHMETIC (tmp, RDIV_EXPR, tmp, real_br_prob_base);
@@ -751,7 +752,8 @@ propagate_freq (head)
 	    /* EDGE_INFO (e)->back_edge_prob
 		  = ((e->probability * BLOCK_INFO (bb)->frequency)
 		     / REG_BR_PROB_BASE); */
-	    REAL_VALUE_FROM_INT (tmp, e->probability, 0, DFmode);
+	    REAL_VALUE_FROM_INT (tmp, e->probability, 0,
+				 TYPE_MODE (double_type_node));
 	    REAL_ARITHMETIC (tmp, MULT_EXPR, tmp,
 			     BLOCK_INFO (bb)->frequency);
 	    REAL_ARITHMETIC (EDGE_INFO (e)->back_edge_prob,
@@ -900,12 +902,13 @@ estimate_bb_frequencies (loops)
 {
   int i;
   REAL_VALUE_TYPE freq_max;
+  enum machine_mode double_mode = TYPE_MODE (double_type_node);
 
-  REAL_VALUE_FROM_INT (real_zero, 0, 0, DFmode);
-  REAL_VALUE_FROM_INT (real_one, 1, 0, DFmode);
-  REAL_VALUE_FROM_INT (real_br_prob_base, REG_BR_PROB_BASE, 0, DFmode);
-  REAL_VALUE_FROM_INT (real_bb_freq_max, BB_FREQ_MAX, 0, DFmode);
-  REAL_VALUE_FROM_INT (real_one_half, 2, 0, DFmode);
+  REAL_VALUE_FROM_INT (real_zero, 0, 0, double_mode);
+  REAL_VALUE_FROM_INT (real_one, 1, 0, double_mode);
+  REAL_VALUE_FROM_INT (real_br_prob_base, REG_BR_PROB_BASE, 0, double_mode);
+  REAL_VALUE_FROM_INT (real_bb_freq_max, BB_FREQ_MAX, 0, double_mode);
+  REAL_VALUE_FROM_INT (real_one_half, 2, 0, double_mode);
 
   REAL_ARITHMETIC (real_one_half, RDIV_EXPR, real_one, real_one_half);
 
@@ -969,7 +972,7 @@ estimate_bb_frequencies (loops)
 	{
 	
 	  REAL_VALUE_FROM_INT (EDGE_INFO (e)->back_edge_prob,
-			       e->probability, 0, DFmode);
+			       e->probability, 0, double_mode);
 	  REAL_ARITHMETIC (EDGE_INFO (e)->back_edge_prob,
 			   RDIV_EXPR, EDGE_INFO (e)->back_edge_prob,
 			   real_br_prob_base);