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
  10     NAME */
  11
  12         AROS_LHQUAD2(double, IEEEDPSub,
  13
  14 /*  SYNOPSIS */
  15         AROS_LHAQUAD(double, y, D0, D1),
  16         AROS_LHAQUAD(double, z, D2, D3),
  17
  18 /*  LOCATION */
  19         struct MathIeeeDoubBasBase *, MathIeeeDoubBasBase, 12, MathIeeeDoubBas)
  20
  21 /*  FUNCTION
  22         Subtracts two IEEE double precision 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     QUAD * Qz = (QUAD *)&z;
  45
  46     XOR64QC(*Qz, IEEEDPSign_Mask_Hi, IEEEDPSign_Mask_Lo );
  47     return IEEEDPAdd(y,z);
  48
  49     AROS_LIBFUNC_EXIT
  50 }