rom/mathffp/spceil.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     FUNCTION
  10         Calculate the least integer ffp-number greater than or equal to
  11         fnum1
  12
  13     RESULT
  14
  15
  16         Flags:
  17           zero     : result is zero
  18           negative : result is negative
  19           overflow : 0
  20
  21     NOTES
  22
  23     EXAMPLE
  24
  25     BUGS
  26
  27     SEE ALSO
  28         @Math.Floor@
  29
  30     INTERNALS
  31       ALGORITHM:
  32          Ceil(y) = - Floor(-y)
  33
  34     HISTORY
  35 */
  36 AROS_LH1(float, SPCeil,
  37     AROS_LHA(float, y, D0),
  38     struct LibHeader *, MathBase, 16, Mathffp
  39 )
  40 {
  41     AROS_LIBFUNC_INIT
  42
  43     /* Ceil(y) = -Floor(-y) */
  44     y = SPFloor(y ^ FFPSign_Mask);
  45     return (y ^ FFPSign_Mask);
  46
  47     AROS_LIBFUNC_EXIT
  48 }