lang/cem/libcc.ansi/stdlib/ldiv.c

   1 /*
   2  * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
   3  * See the copyright notice in the ACK home directory, in the file "Copyright".
   4  */
   5 /* $Id: ldiv.c,v 1.5 1994/06/24 11:53:48 ceriel Exp $ */
   6
   7 #include        <stdlib.h>
   8
   9 ldiv_t
  10 ldiv(register long numer, register long denom)
  11 {
  12         ldiv_t r;
  13
  14         r.quot = numer / denom;         /* might trap if denom == 0 */
  15         r.rem = numer % denom;
  16
  17         if (r.rem != 0 && (numer > 0) != (r.rem > 0)) {
  18                 r.quot++;
  19                 r.rem -= denom;
  20         }
  21
  22         return r;
  23 }