workbench/libs/mathieeesingbas/ieeespsub.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(float, IEEESPSub,
  13
  14 /*  SYNOPSIS */
  15         AROS_LHA(float, y, D0),
  16         AROS_LHA(float, z, D1),
  17
  18 /*  LOCATION */
  19         struct LibHeader *, MathIeeeSingBasBase, 12, Mathieeesingbas)
  20
  21 /*  FUNCTION
  22         Subtract two ieeesp numbers
  23         x = y-z;
  24
  25     INPUTS
  26
  27     RESULT
  28         Flags:
  29           zero     : result is zero
  30           negative : result is negative
  31           overflow : result is out of range
  32
  33     BUGS
  34
  35     INTERNALS
  36         ALGORITHM:
  37         x = y - z = y + (-z).
  38
  39 *****************************************************************************/
  40 {
  41     AROS_LIBFUNC_INIT
  42
  43     return IEEESPAdd(y, z ^ IEEESPSign_Mask);
  44
  45     AROS_LIBFUNC_EXIT
  46 }