modules/src/flt_arith/ucmp.c

   1 /*
   2   (c) copyright 1989 by the Vrije Universiteit, Amsterdam, The Netherlands.
   3   See the copyright notice in the ACK home directory, in the file "Copyright".
   4 */
   5
   6 /* $Id: ucmp.c,v 1.5 1994/06/24 11:16:19 ceriel Exp $ */
   7
   8 #include "flt_misc.h"
   9
  10 int
  11 ucmp(l1,l2)
  12         long l1,l2;
  13 {
  14         if (l1 == l2) return 0;
  15         if (l2 >= 0) {
  16                 if (l1 > l2 || l1 < 0) return 1;
  17                 return -1;
  18         }
  19         if (l1 >= 0 || l1 < l2) return -1;
  20         return 1;
  21 }