blob: 8e4535c35d51233e3d7667cb8ec7e625c927a3e5 (
plain)
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
/*
* Multiply-Add for 64-bit MSVC
* (C) 2010 Jack Lloyd
*
* Distributed under the terms of the Botan license
*/
#ifndef BOTAN_MP_ASM_H__
#define BOTAN_MP_ASM_H__
#include <botan/mp_types.h>
#include <intrin.h>
#if (BOTAN_MP_WORD_BITS != 64)
#error The mp_msvc64 module requires that BOTAN_MP_WORD_BITS == 64
#endif
#pragma intrinsic(_umul128)
namespace Botan {
extern "C" {
/*
* Word Multiply
*/
inline word word_madd2(word a, word b, word* c)
{
word hi, lo;
lo = _umul128(a, b, &hi);
lo += *c;
hi += (lo < *c); // carry?
*c = hi;
return lo;
}
/*
* Word Multiply/Add
*/
inline word word_madd3(word a, word b, word c, word* d)
{
word hi, lo;
lo = _umul128(a, b, &hi);
lo += c;
hi += (lo < c); // carry?
lo += *d;
hi += (lo < *d); // carry?
*d = hi;
return lo;
}
}
}
#endif
|
