mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +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

8
libguile/unif.c
View file

@ -694,9 +694,9 @@ 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; {
long inc = SCM_ARRAY_DIMS (ra)[k - 1].inc;
while (k--) while (k--)
{ {
if (inc != SCM_ARRAY_DIMS (ra)[k].inc) if (inc != SCM_ARRAY_DIMS (ra)[k].inc)
@ -704,7 +704,9 @@ scm_ra_set_contp (ra)
SCM_CAR (ra) &= ~SCM_ARRAY_CONTIGUOUS; SCM_CAR (ra) &= ~SCM_ARRAY_CONTIGUOUS;
return; 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;
} }