rexx/lstring/mult.c

   1 /*
   2  * $Header$
   3  * $Log$
   4  * Revision 1.1  2001/04/04 05:43:38  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 <lstring.h>
  13
  14 /* ------------------- Lmult ----------------- */
  15 void
  16 Lmult( const PLstr to, const PLstr A, const PLstr B)
  17 {
  18         L2NUM(A);
  19         L2NUM(B);
  20
  21         if ((LTYPE(*A)==LINTEGER_TY) && (LTYPE(*B)==LINTEGER_TY)) {
  22                 LINT(*to)  = LINT(*A) * LINT(*B);
  23                 LTYPE(*to) = LINTEGER_TY;
  24                 LLEN(*to)  = sizeof(long);
  25         } else {
  26                 LREAL(*to) = TOREAL(*A) * TOREAL(*B);
  27                 LTYPE(*to) = LREAL_TY;
  28                 LLEN(*to)  = sizeof(double);
  29         }
  30 } /* Lmult */