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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
/*
* Dkword.h
*
* $Id$
*
* This file is part of the OpenLink Software Virtuoso Open-Source (VOS)
* project.
*
* Copyright (C) 1998-2018 OpenLink Software
*
* This project is free software; you can redistribute it and/or modify it
* under the terms of the GNU General Public License as published by the
* Free Software Foundation; only version 2 of the License, dated June 1991.
*
* This program is distributed in the hope that it will be useful, but
* WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* General Public License for more details.
*
* You should have received a copy of the GNU General Public License along
* with this program; if not, write to the Free Software Foundation, Inc.,
* 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
*
*/
#ifndef _DKWORD_H
#define _DKWORD_H
#define LONG_SET_NA(place, l) \
(((unsigned char *) (place))[0] = (unsigned char) ((l) >> 24), \
((unsigned char *) (place))[1] = (unsigned char) ((l) >> 16), \
((unsigned char *) (place))[2] = (unsigned char) ((l) >> 8), \
((unsigned char *) (place))[3] = (unsigned char) ((l) ))
#define LONG_REF_NA(p) \
((((int32) (((unsigned const char *) (p))[0])) << 24) | \
(((int32) (((unsigned const char *) (p))[1])) << 16) | \
(((int32) (((unsigned const char *) (p))[2])) << 8) | \
(((int32) (((unsigned const char *) (p))[3]))) )
#define SHORT_SET_NA(place, l) \
(((unsigned char *) (place))[0] = (unsigned char) ((l) >> 8), \
((unsigned char *) (place))[1] = (unsigned char) ((l) ))
#define SHORT_REF_NA(p) \
((((short) (((unsigned const char *) (p))[0])) << 8) | \
(((short) (((unsigned const char *) (p))[1]))))
#define LONG_SET_BE(place, l) \
(((unsigned char *) (place))[3] = (unsigned char) ((l) >> 24), \
((unsigned char *) (place))[2] = (unsigned char) ((l) >> 16), \
((unsigned char *) (place))[1] = (unsigned char) ((l) >> 8), \
((unsigned char *) (place))[0] = (unsigned char) ((l) ))
#define LONG_REF_BE(p) \
((((int32) (((unsigned char *) (p))[3])) << 24) | \
(((int32) (((unsigned char *) (p))[2])) << 16) | \
(((int32) (((unsigned char *) (p))[1])) << 8) | \
(((int32) (((unsigned char *) (p))[0]))) )
#define SHORT_SET_BE(place, l) \
(((unsigned char *) (place))[1] = (unsigned char) ((l) >> 8), \
((unsigned char *) (place))[0] = (unsigned char) ((l) ))
#define SHORT_REF_BE(p) \
((((short) (((unsigned char *) (p))[1])) << 8) | \
(((short) (((unsigned char *) (p))[0]))))
#define INT64_REF_NA(p) \
(((int64)LONG_REF_NA (p)) << 32 | ((uint32)LONG_REF_NA (((caddr_t)p) + 4)))
#define INT64_SET_NA(p, v) \
{LONG_SET_NA (p, (v >> 32)); \
LONG_SET_NA (((caddr_t)p) + 4, 0xffffffff & v); }
#ifdef WORDS_BIGENDIAN
#define memcmp_8(p1, p2, l, neq) \
{if (memcmp (p1, p2, l)) goto neq;}
#else
#define memcmp_8(a1, a2, len, neq) \
{ \
unsigned char * p1 = (unsigned char *)a1, *p2 = (unsigned char *)a2; \
unsigned char * end = p1 + (len & ~0x7); \
while (p1 != end) \
{ \
if (*(int64*)p1 != *(int64*)p2) goto neq; \
p1 += 8; p2 += 8; \
} \
if (len & 0x7) \
{ \
int64 xo = *(int64*)p1 ^*(int64*)p2; \
if (xo & (((int64)1 << ((len & 0x7) << 3)) - 1)) \
goto neq; \
} \
}
#define memcmp_8l(a1, a2, len, neq, lret) \
{ \
unsigned char * p1 = (unsigned char *)a1, *p2 = (unsigned char *)a2; \
unsigned char * end = p1 + (len & ~0x7); \
while (p1 != end) \
{ \
if (*(int64*)p1 != *(int64*)p2) {lret = p1 - a1; goto neq; } \
p1 += 8; p2 += 8; \
} \
if (len & 0x7) \
{ \
int64 xo = *(int64*)p1 ^*(int64*)p2; \
if (xo & (((int64)1 << ((len & 0x7) << 3)) - 1)) \
{lret = p1 - a1; goto neq;} \
} \
}
#endif
#endif
|
