mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 01:00:20 +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

8
libguile/unif.c
View file

@ -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
(ra) return SCM_BOOL_F;
if (SCM_ARRAY_BASE (ra))
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)))