mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* unif.c (scm_ra_set_contp): Localize `inc' declaration.

Browse source 
Clarifies flow.
This commit is contained in:
Jim Blandy 1996-10-11 07:58:00 +00:00
parent 8ce9450492
commit fe0c6dae02
1 changed files with 9 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

16
libguile/unif.c
View file

@ -694,17 +694,19 @@ scm_ra_set_contp (ra)
#endif #endif
{ {
scm_sizet k = SCM_ARRAY_NDIM (ra); scm_sizet k = SCM_ARRAY_NDIM (ra);
long inc;
if (k) if (k)
inc = SCM_ARRAY_DIMS (ra)[k - 1].inc;
while (k--)
{ {
if (inc != SCM_ARRAY_DIMS (ra)[k].inc) long inc = SCM_ARRAY_DIMS (ra)[k - 1].inc;
while (k--)
{ {
SCM_CAR (ra) &= ~SCM_ARRAY_CONTIGUOUS; if (inc != SCM_ARRAY_DIMS (ra)[k].inc)
return; {
SCM_CAR (ra) &= ~SCM_ARRAY_CONTIGUOUS;
return;
}
inc *= (SCM_ARRAY_DIMS (ra)[k].ubnd
- SCM_ARRAY_DIMS (ra)[k].lbnd + 1);
} }
inc *= (SCM_ARRAY_DIMS (ra)[k].ubnd - SCM_ARRAY_DIMS (ra)[k].lbnd + 1);
} }
SCM_CAR (ra) |= SCM_ARRAY_CONTIGUOUS; SCM_CAR (ra) |= SCM_ARRAY_CONTIGUOUS;
} }