rexx/lstring/div.c

   1 /*
   2  * $Header$
   3  * $Log$
   4  * Revision 1.1  2001/04/04 05:43:37  wang
   5  * First commit: compiles on Linux, Amiga, Windows, Windows CE, generic gcc
   6  *
   7  * Revision 1.1  1998/07/02 17:18:00  bnv
   8  * Initial Version
   9  *
  10  */
  11
  12 #include <lerror.h>
  13 #include <lstring.h>
  14
  15 /* ------------------- Ldiv ----------------- */
  16 void
  17 Ldiv( const PLstr to, const PLstr A, const PLstr B )
  18 {
  19         double  b;
  20
  21         b = Lrdreal(B);
  22         if (b == 0) Lerror(ERR_ARITH_OVERFLOW,0);
  23         LREAL(*to) = Lrdreal(A) / b;
  24         LTYPE(*to) = LREAL_TY;
  25         LLEN(*to)  = sizeof(double);
  26 } /* Ldiv */