d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

fixed again

Browse source
This commit is contained in:
ceriel 1988-08-02 11:57:37 +00:00
parent 0d45d9da11
commit 0406776361
2 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
mach/proto/fp/sbf4.c
View file

@ -21,13 +21,14 @@ _float s1,s2;
/* is faster than the code: */
/* s2 = -s2 */
char unsigned *p;
_float *result = &s1; /* s1 may not be in a register! */
if (s2 == (_float) 0) {
return s1;
}
p = (char unsigned *) &s2;
*p ^= 0x80; /* change sign of s2 */
s1 = adf4(s2,s1);
*result = adf4(s2,s1);
return(s1); /* add and return result */
}

3
mach/proto/fp/sbf8.c
View file

@ -21,12 +21,13 @@ _double s1,s2;
/* is faster than the code line */
/* s2 = -s2; */
char unsigned *p; /* sufficient to access sign bit */
_double *result = &s1; /* s1 may not be in a register! */
if (s2.__double[0] == 0 && s2.__double[1] == 0) {
return s1;
}
p = (char unsigned *) &s2;
*p ^= 0x80; /* change sign of s2 */
s1 = adf8(s2,s1); /* add and return result */
*result = adf8(s2,s1); /* add and return result */
return(s1);
}