workbench/libs/mathieeedoubbas/ieeedpsub.c

   1 /*
   2     Copyright © 1995-2003, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include "mathieeedoubbas_intern.h"
   7
   8 /*
   9     FUNCTION
  10         Subtracts two IEEE double precision numbers
  11
  12     RESULT
  13        <code>
  14        +1 : y > z
  15         0 : y = z
  16        -1 : y < z
  17
  18         Flags:
  19           zero     : y = z
  20           negative : y < z
  21           overflow : 0
  22        </code>
  23
  24     NOTES
  25
  26     EXAMPLE
  27
  28     BUGS
  29
  30     SEE ALSO
  31
  32     INTERNALS
  33
  34     HISTORY
  35 */
  36
  37 AROS_LHQUAD2(double, IEEEDPSub,
  38     AROS_LHAQUAD(double, y, D0, D1),
  39     AROS_LHAQUAD(double, z, D2, D3),
  40     struct MathIeeeDoubBasBase *, MathIeeeDoubBasBase, 12, MathIeeeDoubBas
  41 )
  42 {
  43     AROS_LIBFUNC_INIT
  44
  45     QUAD * Qz = (QUAD *)&z;
  46
  47     XOR64QC(*Qz, IEEEDPSign_Mask_Hi, IEEEDPSign_Mask_Lo );
  48     return IEEEDPAdd(y,z);
  49
  50     AROS_LIBFUNC_EXIT
  51 }