-
Notifications
You must be signed in to change notification settings - Fork 5
/
Copy pathmult.c
36 lines (33 loc) · 896 Bytes
/
mult.c
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
/*
* $Id: mult.c,v 1.4 2008/07/15 07:40:54 bnv Exp $
* $Log: mult.c,v $
* Revision 1.4 2008/07/15 07:40:54 bnv
* #include changed from <> to ""
*
* Revision 1.3 2002/06/11 12:37:15 bnv
* Added: CDECL
*
* Revision 1.2 2001/06/25 18:49:48 bnv
* Header changed to Id
*
* Revision 1.1 1998/07/02 17:18:00 bnv
* Initial Version
*
*/
#include "lstring.h"
/* ------------------- Lmult ----------------- */
void __CDECL
Lmult(const PLstr to, const PLstr A, const PLstr B) {
L2NUM(A);
L2NUM(B);
if ((LTYPE(*A) == LINTEGER_TY) && (LTYPE(*B) == LINTEGER_TY)
&& (LINT(*A) < 46340) && (LINT(*B) < 46340)) {
LINT(*to) = LINT(*A) * LINT(*B);
LTYPE(*to) = LINTEGER_TY;
LLEN(*to) = sizeof(long);
} else {
LREAL(*to) = TOREAL(*A) * TOREAL(*B);
LTYPE(*to) = LREAL_TY;
LLEN(*to) = sizeof(double);
}
} /* Lmult */