workbench/libs/mathieeesingbas/ieeespcmp.c

   1 /*
   2     Copyright © 1995-2004, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include "mathieeesingbas_intern.h"
   7
   8 /*****************************************************************************
   9
  10     NAME */
  11
  12         AROS_LH2(LONG, IEEESPCmp,
  13
  14 /*  SYNOPSIS */
  15         AROS_LHA(LONG, y, D0),
  16         AROS_LHA(LONG, z, D1),
  17
  18 /*  LOCATION */
  19         struct LibHeader *, MathIeeeSingBasBase, 7, Mathieeesingbas)
  20
  21 /*  FUNCTION
  22         Compares two ieeesp numbers
  23
  24     INPUTS
  25
  26     RESULT
  27        +1 : y > z
  28         0 : y = z
  29        -1 : y < z
  30
  31         Flags:
  32           zero     : y = z
  33           negative : y < z
  34           overflow : 0
  35
  36     BUGS
  37
  38     INTERNALS
  39
  40 *****************************************************************************/
  41 {
  42     AROS_LIBFUNC_INIT
  43
  44     if (y == z)
  45     {
  46         SetSR(Zero_Bit, Zero_Bit | Negative_Bit | Overflow_Bit);
  47         return 0;
  48     }
  49
  50     if (y < 0 && z < 0)
  51     {
  52         if (-y > -z)
  53         {
  54             SetSR(0,  Zero_Bit | Negative_Bit | Overflow_Bit);
  55             return 1;
  56         }
  57         else
  58         {
  59             SetSR(Negative_Bit, Zero_Bit | Negative_Bit | Overflow_Bit);
  60             return -1;
  61         }
  62     }
  63
  64     if ((LONG)y < (LONG)z)
  65     {
  66         SetSR(Negative_Bit, Zero_Bit | Negative_Bit | Overflow_Bit);
  67         return -1;
  68     }
  69     else
  70     {
  71         SetSR(0,  Zero_Bit | Negative_Bit | Overflow_Bit);
  72         return 1;
  73     }
  74
  75   AROS_LIBFUNC_EXIT
  76 }