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