workbench/libs/mathffp/spsub.c

   1 /*
   2     Copyright © 1995-2004, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include "mathffp_intern.h"
   7
   8 /*****************************************************************************
   9
  10     NAME */
  11
  12         AROS_LH2(float, SPSub,
  13
  14 /*  SYNOPSIS */
  15         AROS_LHA(float, fnum1, D1),
  16         AROS_LHA(float, fnum2, D0),
  17
  18 /*  LOCATION */
  19         struct LibHeader *, MathBase, 12, Mathffp)
  20
  21 /*  FUNCTION
  22         Subtract two floating point numbers
  23         fnum = fnum2 - fnum1;
  24
  25     INPUTS
  26
  27     RESULT
  28         FFP number
  29
  30         Flags:
  31           zero     : result is zero
  32           negative : result is negative
  33           overflow : result is out of range
  34
  35     BUGS
  36
  37     SEE ALSO
  38         SPAdd()
  39
  40     INTERNALS
  41         ALGORITHM:
  42         fnum = fnum2 + (-fnum1).
  43
  44 *****************************************************************************/
  45 {
  46     AROS_LIBFUNC_INIT
  47
  48     float r = SPAdd(fnum2, fnum1 ^ FFPSign_Mask);
  49     D(kprintf("SPSub(%x - %x) = %x\n", fnum2, fnum1, r));
  50     return r;
  51
  52     AROS_LIBFUNC_EXIT
  53 }