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

Fixed div() and ldiv() for machines with -1/2 = -1

Browse source
This commit is contained in:
ceriel 1993-10-26 13:58:04 +00:00
parent a71ae473ac
commit 067ad0cc22
2 changed files with 14 additions and 30 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
lang/cem/libcc.ansi/stdlib/div.c
View file

@ -6,26 +6,18 @@
#include <stdlib.h> #include <stdlib.h>
static int tmp = -1;
div_t div_t
div(register int numer, register int denom) div(register int numer, register int denom)
{ {
div_t r; div_t r;
/* The assignment of tmp should not be optimized !! */ r.quot = numer / denom; /* might trap if denom == 0 */
if (tmp == -1) { r.rem = numer % denom;
tmp = (tmp / 2 == 0);
} if (r.rem != 0 && (numer > 0) != (r.rem > 0)) {
if (numer == 0) { r.quot++;
r.quot = numer / denom; /* might trap if denom == 0 */ r.rem -= denom;
r.rem = numer % denom;
} else if ( !tmp && ((numer < 0) != (denom < 0))) {
r.quot = (numer / denom) + 1;
r.rem = numer - (numer / denom + 1) * denom;
} else {
r.quot = numer / denom;
r.rem = numer % denom;
} }
return r; return r;
} }

22
lang/cem/libcc.ansi/stdlib/ldiv.c
View file

@ -6,26 +6,18 @@
#include <stdlib.h> #include <stdlib.h>
static long tmp = -1;
ldiv_t ldiv_t
ldiv(register long numer, register long denom) ldiv(register long numer, register long denom)
{ {
ldiv_t r; ldiv_t r;
/* The assignment of tmp should not be optimized !! */ r.quot = numer / denom; /* might trap if denom == 0 */
if (tmp == -1) { r.rem = numer % denom;
tmp = (tmp / 2 == 0);
} if (r.rem != 0 && (numer > 0) != (r.rem > 0)) {
if (numer == 0) { r.quot++;
r.quot = numer / denom; /* might trap if denom == 0 */ r.rem -= denom;
r.rem = numer % denom;
} else if ( !tmp && ((numer < 0) != (denom < 0))) {
r.quot = (numer / denom) + 1;
r.rem = numer - (numer / denom + 1) * denom;
} else {
r.quot = numer / denom;
r.rem = numer % denom;
} }
return r; return r;
} }