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     FUNCTION
  10         Compares two ieeesp numbers
  11
  12     RESULT
  13        <code>
  14        +1 : y > z
  15         0 : y = z
  16        -1 : y < z
  17
  18
  19         Flags:
  20           zero     : y = z
  21           negative : y < z
  22           overflow : 0
  23        </code>
  24
  25     NOTES
  26
  27     EXAMPLE
  28
  29     BUGS
  30
  31     SEE ALSO
  32
  33
  34     INTERNALS
  35
  36     HISTORY
  37 */
  38
  39 AROS_LH2(LONG, IEEESPCmp,
  40     AROS_LHA(LONG, y, D0),
  41     AROS_LHA(LONG, z, D1),
  42     struct LibHeader *, MathIeeeSingBasBase, 7, Mathieeesingbas
  43 )
  44 {
  45     AROS_LIBFUNC_INIT
  46
  47     if (y == z)
  48     {
  49         SetSR(Zero_Bit, Zero_Bit | Negative_Bit | Overflow_Bit);
  50         return 0;
  51     }
  52
  53     if (y < 0 && z < 0)
  54     {
  55         if (-y > -z)
  56         {
  57             SetSR(0,  Zero_Bit | Negative_Bit | Overflow_Bit);
  58             return 1;
  59         }
  60         else
  61         {
  62             SetSR(Negative_Bit, Zero_Bit | Negative_Bit | Overflow_Bit);
  63             return -1;
  64         }
  65     }
  66
  67     if ((LONG)y < (LONG)z)
  68     {
  69         SetSR(Negative_Bit, Zero_Bit | Negative_Bit | Overflow_Bit);
  70         return -1;
  71     }
  72     else
  73     {
  74         SetSR(0,  Zero_Bit | Negative_Bit | Overflow_Bit);
  75         return 1;
  76     }
  77
  78   AROS_LIBFUNC_EXIT
  79 }