lib/ack/libm2/absl.c

   1 /*
   2   (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
   3   See the copyright notice in the ACK home directory, in the file "Copyright".
   4 */
   5
   6 /*
   7   Module:       longint abs function
   8   Author:       Ceriel J.H. Jacobs
   9   Version:      $Header$
  10 */
  11 long
  12 absl(i)
  13         long i;
  14 {
  15         return i >= 0 ? i : -i;
  16 }