Warning fixes from Greg Harvey:

* unif.c (scm_array_set_x): initializer for pos
* throw.c (scm_ithrow): added initializer for jmpbuf (SCM_UNDEFINED)
* struct.c (scm_struct_ref, scm_struct_set_x): Added
initializers for field_type, since EGCS so desparately wants to
play dumb
* debug.h (scm_make_gloc, scm_gloc_p, scm_make_iloc, scm_memcons,
scm_mem_to_proc, scm_proc_to_mem, scm_debug_hang): Added prototypes
when GUILE_DEBUG is defined.
* dynwind.h (scm_wind_chain): Same.
* ports.h (scm_pt_size, scm_pt_member): Same.
* print.h (scm_current_pstate): Same.
* procs.h (scm_make_cclo): Same.

libguile/debug.h

@@ -195,4 +195,15 @@ extern SCM scm_unmemoize SCM_P ((SCM memoized));
 extern SCM scm_make_debugobj SCM_P ((scm_debug_frame* debug));
 extern void scm_init_debug SCM_P ((void));
 
+#ifdef GUILE_DEBUG
+extern SCM scm_make_gloc SCM_P ((SCM var, SCM env));
+extern SCM scm_gloc_p SCM_P ((SCM obj));
+extern SCM scm_make_iloc SCM_P ((SCM frame, SCM binding, SCM cdrp));
+extern SCM scm_iloc_p SCM_P ((SCM obj));
+extern SCM scm_memcons SCM_P ((SCM car, SCM cdr, SCM env));
+extern SCM scm_mem_to_proc SCM_P ((SCM obj));
+extern SCM scm_proc_to_mem SCM_P ((SCM obj));
+extern SCM scm_debug_hang SCM_P ((SCM obj));
+#endif /*GUILE_DEBUG*/
+
 #endif /* DEBUGH */

libguile/dynwind.h

@@ -59,4 +59,8 @@ extern SCM scm_internal_dynamic_wind SCM_P ((scm_guard_t before,
 extern void scm_dowinds SCM_P ((SCM to, long delta));
 extern void scm_init_dynwind SCM_P ((void));
 
+#ifdef GUILE_DEBUG
+extern SCM scm_wind_chain SCM_P ((void));
+#endif /*GUILE_DEBUG*/
+
 #endif  /* DYNWINDH */

libguile/ports.h

@@ -194,4 +194,9 @@ extern SCM scm_void_port SCM_P ((char * mode_str));
 extern SCM scm_sys_make_void_port SCM_P ((SCM mode));
 extern void scm_init_ports SCM_P ((void));
 
+#ifdef GUILE_DEBUG
+extern SCM scm_pt_size SCM_P ((void));
+extern SCM scm_pt_member SCM_P ((SCM member));
+#endif GUILE_DEBUG
+
 #endif  /* PORTSH */

libguile/print.h

@@ -112,4 +112,7 @@ extern SCM scm_printer_apply SCM_P ((SCM proc, SCM exp, SCM port,
 extern int scm_valid_oport_value_p SCM_P ((SCM val));
 extern void scm_init_print SCM_P ((void));
 
+#ifdef GUILE_DEBUG
+extern SCM scm_current_pstate SCM_P ((void));
+#endif 
 #endif  /* PRINTH */

libguile/procs.h

@@ -100,5 +100,9 @@ extern SCM scm_thunk_p SCM_P ((SCM obj));
 extern void scm_init_iprocs SCM_P ((scm_iproc *subra, int type));
 extern void scm_init_procs SCM_P ((void));
 
+#ifdef GUILE_DEBUG
+extern SCM scm_make_cclo SCM_P ((SCM proc, SCM len));
+#endif /*GUILE_DEBUG*/
+
 
 #endif  /* PROCSH */

libguile/struct.c

@@ -424,7 +424,7 @@ scm_struct_ref (handle, pos)
   int p;
   int n_fields;
   unsigned char * fields_desc;
-  unsigned char field_type;
+  unsigned char field_type = 0;
   
 
   SCM_ASSERT (SCM_NIMP (handle) && SCM_STRUCTP (handle), handle,
@@ -505,7 +505,7 @@ scm_struct_set_x (handle, pos, val)
   int p;
   int n_fields;
   unsigned char * fields_desc;
-  unsigned char field_type;
+  unsigned char field_type = 0;
   
 
 

libguile/throw.c

@@ -642,7 +642,7 @@ scm_ithrow (key, args, noreturn)
      SCM args;
      int noreturn;
 {
-  SCM jmpbuf;
+  SCM jmpbuf = SCM_UNDEFINED;
   SCM wind_goal;
 
   SCM dynpair = SCM_UNDEFINED;

libguile/unif.c

@@ -1252,7 +1252,7 @@ scm_array_set_x (v, obj, args)
      SCM obj;
      SCM args;
 {
-  long pos;
+  long pos = 0;
   SCM_ASRTGO (SCM_NIMP (v), badarg1);
   if (SCM_ARRAYP (v))
     {
@@ -1358,7 +1358,7 @@ scm_array_contents (ra, strict)
 {
   SCM sra;
   if (SCM_IMP (ra))
- return SCM_BOOL_F;
+    return SCM_BOOL_F;
   switch SCM_TYP7
     (ra)
     {
@@ -1388,8 +1388,8 @@ scm_array_contents (ra, strict)
 	  len *= SCM_ARRAY_DIMS (ra)[k].ubnd - SCM_ARRAY_DIMS (ra)[k].lbnd + 1;
 	if (!SCM_UNBNDP (strict))
 	  {
-	    if SCM_ARRAY_BASE
+	    if (SCM_ARRAY_BASE (ra))
-	      (ra) return SCM_BOOL_F;
+	      return SCM_BOOL_F;
 	    if (ndim && (1 != SCM_ARRAY_DIMS (ra)[ndim - 1].inc))
 	      return SCM_BOOL_F;
 	    if (scm_tc7_bvect == SCM_TYP7 (SCM_ARRAY_V (ra)))