rexx/lstring/neg.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 /* ------------------- Lneg ------------------ */
  15 void
  16 Lneg( const PLstr to, const PLstr num )
  17 {
  18         L2NUM(num);
  19
  20         if (LTYPE(*num)==LINTEGER_TY) {
  21                 LINT(*to)  = -LINT(*num);
  22                 LTYPE(*to) = LINTEGER_TY;
  23                 LLEN(*to)  = sizeof(long);
  24         } else {
  25                 LREAL(*to) = -LREAL(*num);
  26                 LTYPE(*to) = LREAL_TY;
  27                 LLEN(*to)  = sizeof(double);
  28         }
  29 } /* Lneg */