lto-streamer-out.c (pack_ts_decl_common_value_fields): Do not pretend we have value exprs.

2009-12-02  Richard Guenther  <rguenther@suse.de>

	* lto-streamer-out.c (pack_ts_decl_common_value_fields):
	Do not pretend we have value exprs.

From-SVN: r154921

gcc/ChangeLog

 2009-12-02  Richard Guenther  <rguenther@suse.de>
 
+	* lto-streamer-out.c (pack_ts_decl_common_value_fields):
+	Do not pretend we have value exprs.
+
+2009-12-02  Richard Guenther  <rguenther@suse.de>
+
 	PR middle-end/41491
 	* fold-const.c (try_move_mult_to_index): Do not leak
 	domain types into the IL.

gcc/lto-streamer-out.c

@@ -430,9 +430,11 @@ pack_ts_decl_common_value_fields (struct bitpack_d *bp, tree expr)
       || TREE_CODE (expr) == VAR_DECL)
     {
       bp_pack_value (bp, DECL_BY_REFERENCE (expr), 1);
+      /* DECL_HAS_VALUE_EXPR_P: Do not falsely pretend we have value
+         expressions, we do not stream those at the moment.  */
       if (TREE_CODE (expr) == VAR_DECL
 	  || TREE_CODE (expr) == PARM_DECL)
-	bp_pack_value (bp, DECL_HAS_VALUE_EXPR_P (expr), 1);
+	bp_pack_value (bp, false, 1);
       bp_pack_value (bp, DECL_RESTRICTED_P (expr), 1);
     }
 }