$NetBSD: patch-bk,v 1.2 2006/06/29 10:58:26 rillig Exp $

SunPro cannot handle direct initialization of structures.

--- src/rinf_analyze.c.orig	2003-09-06 02:50:16.000000000 +0200
+++ src/rinf_analyze.c	2006-07-01 10:49:07.000000000 +0200
@@ -29,7 +29,7 @@ Boston, MA 02111-1307, USA. */
 static effecttype global_effect = NULL;
 static effecttype global_env = NULL;
 static hash_table globals = NULL;
-static function_decl current_function_decl = NULL;
+/*global*/ function_decl current_function_decl = NULL;
 static aloctype current_function_ret = NULL;
 
 typedef struct einfo {
@@ -107,19 +107,27 @@ static bool is_memcpy_fun(const char *na
 
 static inline einfo mkeinfo(alocreftype tau, effecttype eff)
 {
-  struct einfo result = {tau: tau, eff: eff};
+  struct einfo result;
+
+  result.tau = tau;
+  result.eff = eff;
   return result;
 }
 
 static inline sinfo mksinfo(effecttype eff)
 {
-  struct sinfo result = {eff: eff};
+  struct sinfo result;
+
+  result.eff = eff;
   return result;
 }
 
 static inline dinfo mkdinfo(effecttype eff, effecttype alocs)
 {
-  struct dinfo result = {eff: eff, alocs: alocs};
+  struct dinfo result;
+
+  result.eff = eff;
+  result.alocs = alocs;
   return result;
 }
 
@@ -865,6 +873,9 @@ static einfo analyze_expression(expressi
       expression e2;
       effecttype eff;
 
+      /* shut up gcc4 warning about use of uninitialized value */
+      result.tau = NULL;
+
       eff = effecttype_empty;
       scan_expression (e2, c->arg1)
 	{
