/* * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands. * See the copyright notice in the ACK home directory, in the file "Copyright". */ /* $Header$ */ #include static long tmp = -1; ldiv_t ldiv(register long numer, register long denom) { ldiv_t r; /* The assignment of tmp should not be optimized !! */ if (tmp == -1) tmp = (tmp / 2 == 0); } if (numer == 0) { r.quot = numer / denom; /* might trap if denom == 0 */ 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; }