workbench/libs/mathieeedoubbas/ieeedpdiv.c

   1 /*
   2     Copyright © 1995-2003, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <aros/debug.h>
   7 #include "mathieeedoubbas_intern.h"
   8
   9 /*****************************************************************************
  10
  11     NAME */
  12
  13         AROS_LHQUAD2(double, IEEEDPDiv,
  14
  15 /*  SYNOPSIS */
  16         AROS_LHAQUAD(double, y, D0, D1),
  17         AROS_LHAQUAD(double, z, D2, D3),
  18
  19 /*  LOCATION */
  20         struct MathIeeeDoubBasBase *, MathIeeeDoubBasBase, 14, MathIeeeDoubBas)
  21
  22 /*  FUNCTION
  23         Divides two IEEE double precision numbers
  24
  25     INPUTS
  26
  27     RESULT
  28        +1 : y > z
  29         0 : y = z
  30        -1 : y < z
  31
  32         Flags:
  33           zero     : y = z
  34           negative : y < z
  35           overflow : 0
  36
  37     BUGS
  38         This function is unimplemented.
  39
  40     INTERNALS
  41
  42 *****************************************************************************/
  43 {
  44     AROS_LIBFUNC_INIT
  45
  46     union {
  47         QUAD i;
  48         double d;
  49     } Res;
  50
  51 #if 0
  52     QUAD * Qy = (QUAD *)&y;
  53     QUAD * Qz = (QUAD *)&z;
  54 #endif
  55
  56     Res.i = 0x0badc0de0badc0deULL;
  57
  58     aros_print_not_implemented("Software IEEEDPDiv");
  59
  60     return Res.d;
  61
  62     AROS_LIBFUNC_EXIT
  63 }