1 /*
2 +----------------------------------------------------------------------+
3 | Zend Engine |
4 +----------------------------------------------------------------------+
5 | Copyright (c) 1998-2016 Zend Technologies Ltd. (http://www.zend.com) |
6 +----------------------------------------------------------------------+
7 | This source file is subject to version 2.00 of the Zend license, |
8 | that is bundled with this package in the file LICENSE, and is |
9 | available through the world-wide-web at the following url: |
10 | http://www.zend.com/license/2_00.txt. |
11 | If you did not receive a copy of the Zend license and are unable to |
12 | obtain it through the world-wide-web, please send a note to |
13 | license@zend.com so we can mail you a copy immediately. |
14 +----------------------------------------------------------------------+
15 | Authors: Sascha Schumann <sascha@schumann.cx> |
16 | Ard Biesheuvel <ard.biesheuvel@linaro.org> |
17 +----------------------------------------------------------------------+
18 */
19
20 /* $Id$ */
21
22 #if defined(__i386__) && defined(__GNUC__)
23
24 #define ZEND_SIGNED_MULTIPLY_LONG(a, b, lval, dval, usedval) do { \
25 long __tmpvar; \
26 __asm__ ("imul %3,%0\n" \
27 "adc $0,%1" \
28 : "=r"(__tmpvar),"=r"(usedval) \
29 : "0"(a), "r"(b), "1"(0)); \
30 if (usedval) (dval) = (double) (a) * (double) (b); \
31 else (lval) = __tmpvar; \
32 } while (0)
33
34 #elif defined(__x86_64__) && defined(__GNUC__)
35
36 #define ZEND_SIGNED_MULTIPLY_LONG(a, b, lval, dval, usedval) do { \
37 long __tmpvar; \
38 __asm__ ("imul %3,%0\n" \
39 "adc $0,%1" \
40 : "=r"(__tmpvar),"=r"(usedval) \
41 : "0"(a), "r"(b), "1"(0)); \
42 if (usedval) (dval) = (double) (a) * (double) (b); \
43 else (lval) = __tmpvar; \
44 } while (0)
45
46 #elif defined(__arm__) && defined(__GNUC__)
47
48 #define ZEND_SIGNED_MULTIPLY_LONG(a, b, lval, dval, usedval) do { \
49 long __tmpvar; \
50 __asm__("smull %0, %1, %2, %3\n" \
51 "sub %1, %1, %0, asr #31" \
52 : "=r"(__tmpvar), "=r"(usedval) \
53 : "r"(a), "r"(b)); \
54 if (usedval) (dval) = (double) (a) * (double) (b); \
55 else (lval) = __tmpvar; \
56 } while (0)
57
58 #elif defined(__aarch64__) && defined(__GNUC__)
59
60 #define ZEND_SIGNED_MULTIPLY_LONG(a, b, lval, dval, usedval) do { \
61 long __tmpvar; \
62 __asm__("mul %0, %2, %3\n" \
63 "smulh %1, %2, %3\n" \
64 "sub %1, %1, %0, asr #63\n" \
65 : "=X"(__tmpvar), "=X"(usedval) \
66 : "X"(a), "X"(b)); \
67 if (usedval) (dval) = (double) (a) * (double) (b); \
68 else (lval) = __tmpvar; \
69 } while (0)
70
71 #elif SIZEOF_LONG == 4 && defined(HAVE_ZEND_LONG64)
72
73 #define ZEND_SIGNED_MULTIPLY_LONG(a, b, lval, dval, usedval) do { \
74 zend_long64 __result = (zend_long64) (a) * (zend_long64) (b); \
75 if (__result > LONG_MAX || __result < LONG_MIN) { \
76 (dval) = (double) __result; \
77 (usedval) = 1; \
78 } else { \
79 (lval) = (long) __result; \
80 (usedval) = 0; \
81 } \
82 } while (0)
83
84 #else
85
86 #define ZEND_SIGNED_MULTIPLY_LONG(a, b, lval, dval, usedval) do { \
87 long __lres = (a) * (b); \
88 long double __dres = (long double)(a) * (long double)(b); \
89 long double __delta = (long double) __lres - __dres; \
90 if ( ((usedval) = (( __dres + __delta ) != __dres))) { \
91 (dval) = __dres; \
92 } else { \
93 (lval) = __lres; \
94 } \
95 } while (0)
96
97 #endif