"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "ramap.c" between
scm-5f2.zip and scm-5f3.zip

About: SCM is a Scheme Language Interpreter.

ramap.c  (scm-5f2):ramap.c  (scm-5f3)
skipping to change at line 692 skipping to change at line 692
if (opt ? if (opt ?
NFALSEP(lessp(RVREF(ra1, i1, e1), RVREF(ra2, i2, e2))) : NFALSEP(lessp(RVREF(ra1, i1, e1), RVREF(ra2, i2, e2))) :
FALSEP(lessp(RVREF(ra1, i1, e1), RVREF(ra2, i2, e2))) ) FALSEP(lessp(RVREF(ra1, i1, e1), RVREF(ra2, i2, e2))) )
BVE_CLR(ra0, i0); BVE_CLR(ra0, i0);
break; break;
} }
case tc7_VfixN32: case tc7_VfixN32:
for (; n-- > 0; i0 += inc0, i1 += inc1, i2 += inc2) { for (; n-- > 0; i0 += inc0, i1 += inc1, i2 += inc2) {
if (BVE_REF(ra0, i0)) if (BVE_REF(ra0, i0))
if (opt ? if (opt ?
((unsigned long*)VELTS(ra1))[i1] < ((unsigned long*)VELTS(ra2))[i2] : ((unsigned long *)VELTS(ra1))[i1] < ((unsigned long *)VELTS(ra2))[i2]
((unsigned long*)VELTS(ra1))[i1] >= ((unsigned long*)VELTS(ra2))[i2]) :
((unsigned long *)VELTS(ra1))[i1] >= ((unsigned long *)VELTS(ra2))[i2
])
BVE_CLR(ra0, i0); BVE_CLR(ra0, i0);
} }
break; break;
case tc7_VfixZ32: case tc7_VfixZ32:
for (; n-- > 0; i0 += inc0, i1 += inc1, i2 += inc2) { for (; n-- > 0; i0 += inc0, i1 += inc1, i2 += inc2) {
if (BVE_REF(ra0, i0)) if (BVE_REF(ra0, i0))
if (opt ? if (opt ?
VELTS(ra1)[i1] < VELTS(ra2)[i2] : VELTS(ra1)[i1] < VELTS(ra2)[i2] :
VELTS(ra1)[i1] >= VELTS(ra2)[i2]) VELTS(ra1)[i1] >= VELTS(ra2)[i2])
BVE_CLR(ra0, i0); BVE_CLR(ra0, i0);
skipping to change at line 903 skipping to change at line 903
ovflow: wta(ra0, (char *)OVFLOW, "-"); ovflow: wta(ra0, (char *)OVFLOW, "-");
default: { default: {
SCM e0 = UNDEFINED, e1 = UNDEFINED; SCM e0 = UNDEFINED, e1 = UNDEFINED;
for (; n-- > 0; i0 += inc0, i1 += inc1) for (; n-- > 0; i0 += inc0, i1 += inc1)
aset(ra0, difference(RVREF(ra0, i0, e0), RVREF(ra1, i1, e1)), MAKINUM(i0) ); aset(ra0, difference(RVREF(ra0, i0, e0), RVREF(ra1, i1, e1)), MAKINUM(i0) );
break; break;
} }
case tc7_VfixN32: { case tc7_VfixN32: {
unsigned long r; unsigned long r;
unsigned long *v0 = (unsigned long *)VELTS(ra0); unsigned long *v0 = (unsigned long *)VELTS(ra0);
unsigned long *v1 = (unsigned long*)VELTS(ra1); unsigned long *v1 = (unsigned long *)VELTS(ra1);
IVDEP(ra0 != ra1, IVDEP(ra0 != ra1,
for (; n-- > 0; i0 += inc0, i1 += inc1) { for (; n-- > 0; i0 += inc0, i1 += inc1) {
r = v0[i0] - v1[i1]; r = v0[i0] - v1[i1];
ASRTGO(r <= v0[i0], ovflow); ASRTGO(r <= v0[i0], ovflow);
v0[i0] = r; v0[i0] = r;
} ); } );
break; break;
} }
case tc7_VfixZ32: { case tc7_VfixZ32: {
long r, *v0 = VELTS(ra0), *v1 = VELTS(ra1); long r, *v0 = VELTS(ra0), *v1 = VELTS(ra1);
 End of changes. 2 change blocks. 
3 lines changed or deleted 5 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)