workbench/libs/mathieeedoubbas/ieeedpdiv.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     FUNCTION
  10         Divides two IEEE double precision numbers
  11
  12     RESULT
  13        <code>
  14        +1 : y > z
  15         0 : y = z
  16        -1 : y < z
  17
  18         Flags:
  19           zero     : y = z
  20           negative : y < z
  21           overflow : 0
  22        </code>
  23
  24     NOTES
  25
  26     EXAMPLE
  27
  28     BUGS
  29
  30     SEE ALSO
  31
  32     INTERNALS
  33
  34     HISTORY
  35 */
  36
  37 AROS_LHQUAD2(double, IEEEDPDiv,
  38     AROS_LHAQUAD(double, y, D0, D1),
  39     AROS_LHAQUAD(double, z, D2, D3),
  40     struct MathIeeeDoubBasBase *, MathIeeeDoubBasBase, 14, MathIeeeDoubBas
  41 )
  42 {
  43     AROS_LIBFUNC_INIT
  44
  45     union {
  46         QUAD i;
  47         double d;
  48     } Res;
  49
  50 #if 0
  51     QUAD * Qy = (QUAD *)&y;
  52     QUAD * Qz = (QUAD *)&z;
  53 #endif
  54
  55     Res.i = 0x0badc0de0badc0deULL;
  56     return Res.d;
  57
  58     AROS_LIBFUNC_EXIT
  59 }