4 * Revision 1.1 2001/04/04 05:43:38 wang
5 * First commit: compiles on Linux, Amiga, Windows, Windows CE, generic gcc
7 * Revision 1.1 1998/07/02 17:18:00 bnv
14 /* ------------------- Lneg ------------------ */
16 Lneg( const PLstr to
, const PLstr num
)
20 if (LTYPE(*num
)==LINTEGER_TY
) {
21 LINT(*to
) = -LINT(*num
);
22 LTYPE(*to
) = LINTEGER_TY
;
23 LLEN(*to
) = sizeof(long);
25 LREAL(*to
) = -LREAL(*num
);
26 LTYPE(*to
) = LREAL_TY
;
27 LLEN(*to
) = sizeof(double);