mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

Warning fixes from Greg Harvey:

Browse source 
* 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.
This commit is contained in:
Jim Blandy 1998-10-15 14:35:35 +00:00
parent a437d8a2a8
commit f3667f526d
8 changed files with 34 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/struct.c
View file

@ -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;