mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-04 00:30:30 +02:00
Code Activity

* ramap.c (scm_ra_sum, scm_ra_difference, scm_ra_product,

Browse source 
scm_ra_divide): Properly terminate statements passed as arguments
to IVDEP macros.  (Thanks to Bernard Urban.)
This commit is contained in:
Jim Blandy 1996-12-16 22:17:57 +00:00
parent 2210c32f67
commit 01e2a66d26
1 changed files with 10 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

20
libguile/ramap.c
View file

@ -923,7 +923,7 @@ scm_ra_sum (ra0, ras)
long *v1 = SCM_VELTS (ra1); long *v1 = SCM_VELTS (ra1);
IVDEP (ra0 != ra1, IVDEP (ra0 != ra1,
for (; n-- > 0; i0 += inc0, i1 += inc1) for (; n-- > 0; i0 += inc0, i1 += inc1)
v0[i0] += v1[i1]); v0[i0] += v1[i1];)
break; break;
} }
#ifdef SCM_FLOATS #ifdef SCM_FLOATS
@ -934,7 +934,7 @@ scm_ra_sum (ra0, ras)
float *v1 = (float *) SCM_VELTS (ra1); float *v1 = (float *) SCM_VELTS (ra1);
IVDEP (ra0 != ra1, IVDEP (ra0 != ra1,
for (; n-- > 0; i0 += inc0, i1 += inc1) for (; n-- > 0; i0 += inc0, i1 += inc1)
v0[i0] += v1[i1]); v0[i0] += v1[i1];)
break; break;
} }
#endif /* SCM_SINGLES */ #endif /* SCM_SINGLES */
@ -944,7 +944,7 @@ scm_ra_sum (ra0, ras)
double *v1 = (double *) SCM_VELTS (ra1); double *v1 = (double *) SCM_VELTS (ra1);
IVDEP (ra0 != ra1, IVDEP (ra0 != ra1,
for (; n-- > 0; i0 += inc0, i1 += inc1) for (; n-- > 0; i0 += inc0, i1 += inc1)
v0[i0] += v1[i1]); v0[i0] += v1[i1];)
break; break;
} }
case scm_tc7_cvect: case scm_tc7_cvect:
@ -1043,7 +1043,7 @@ scm_ra_difference (ra0, ras)
float *v1 = (float *) SCM_VELTS (ra1); float *v1 = (float *) SCM_VELTS (ra1);
IVDEP (ra0 != ra1, IVDEP (ra0 != ra1,
for (; n-- > 0; i0 += inc0, i1 += inc1) for (; n-- > 0; i0 += inc0, i1 += inc1)
v0[i0] -= v1[i1]); v0[i0] -= v1[i1];)
break; break;
} }
#endif /* SCM_SINGLES */ #endif /* SCM_SINGLES */
@ -1053,7 +1053,7 @@ scm_ra_difference (ra0, ras)
double *v1 = (double *) SCM_VELTS (ra1); double *v1 = (double *) SCM_VELTS (ra1);
IVDEP (ra0 != ra1, IVDEP (ra0 != ra1,
for (; n-- > 0; i0 += inc0, i1 += inc1) for (; n-- > 0; i0 += inc0, i1 += inc1)
v0[i0] -= v1[i1]); v0[i0] -= v1[i1];)
break; break;
} }
case scm_tc7_cvect: case scm_tc7_cvect:
@ -1110,7 +1110,7 @@ scm_ra_product (ra0, ras)
long *v1 = SCM_VELTS (ra1); long *v1 = SCM_VELTS (ra1);
IVDEP (ra0 != ra1, IVDEP (ra0 != ra1,
for (; n-- > 0; i0 += inc0, i1 += inc1) for (; n-- > 0; i0 += inc0, i1 += inc1)
v0[i0] *= v1[i1]); v0[i0] *= v1[i1];)
break; break;
} }
#ifdef SCM_FLOATS #ifdef SCM_FLOATS
@ -1121,7 +1121,7 @@ scm_ra_product (ra0, ras)
float *v1 = (float *) SCM_VELTS (ra1); float *v1 = (float *) SCM_VELTS (ra1);
IVDEP (ra0 != ra1, IVDEP (ra0 != ra1,
for (; n-- > 0; i0 += inc0, i1 += inc1) for (; n-- > 0; i0 += inc0, i1 += inc1)
v0[i0] *= v1[i1]); v0[i0] *= v1[i1];)
break; break;
} }
#endif /* SCM_SINGLES */ #endif /* SCM_SINGLES */
@ -1131,7 +1131,7 @@ scm_ra_product (ra0, ras)
double *v1 = (double *) SCM_VELTS (ra1); double *v1 = (double *) SCM_VELTS (ra1);
IVDEP (ra0 != ra1, IVDEP (ra0 != ra1,
for (; n-- > 0; i0 += inc0, i1 += inc1) for (; n-- > 0; i0 += inc0, i1 += inc1)
v0[i0] *= v1[i1]); v0[i0] *= v1[i1];)
break; break;
} }
case scm_tc7_cvect: case scm_tc7_cvect:
@ -1233,7 +1233,7 @@ scm_ra_divide (ra0, ras)
float *v1 = (float *) SCM_VELTS (ra1); float *v1 = (float *) SCM_VELTS (ra1);
IVDEP (ra0 != ra1, IVDEP (ra0 != ra1,
for (; n-- > 0; i0 += inc0, i1 += inc1) for (; n-- > 0; i0 += inc0, i1 += inc1)
v0[i0] /= v1[i1]); v0[i0] /= v1[i1];)
break; break;
} }
#endif /* SCM_SINGLES */ #endif /* SCM_SINGLES */
@ -1243,7 +1243,7 @@ scm_ra_divide (ra0, ras)
double *v1 = (double *) SCM_VELTS (ra1); double *v1 = (double *) SCM_VELTS (ra1);
IVDEP (ra0 != ra1, IVDEP (ra0 != ra1,
for (; n-- > 0; i0 += inc0, i1 += inc1) for (; n-- > 0; i0 += inc0, i1 += inc1)
v0[i0] /= v1[i1]); v0[i0] /= v1[i1];)
break; break;
} }
case scm_tc7_cvect: case scm_tc7_cvect: