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
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
|
divert(-1)
dnl m4 macros for amd64 assembler.
dnl Copyright 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2008, 2009, 2011,
dnl 2012, 2013 Free Software Foundation, Inc.
dnl
dnl This file is part of the GNU MP Library.
dnl
dnl The GNU MP Library is free software; you can redistribute it and/or
dnl modify it under the terms of the GNU Lesser General Public License as
dnl published by the Free Software Foundation; either version 3 of the
dnl License, or (at your option) any later version.
dnl
dnl The GNU MP Library is distributed in the hope that it will be useful,
dnl but WITHOUT ANY WARRANTY; without even the implied warranty of
dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
dnl Lesser General Public License for more details.
dnl
dnl You should have received a copy of the GNU Lesser General Public License
dnl along with the GNU MP Library. If not, see http://www.gnu.org/licenses/.
dnl Usage: CPUVEC_FUNCS_LIST
dnl
dnl A list of the functions from gmp-impl.h x86 struct cpuvec_t, in the
dnl order they appear in that structure.
define(CPUVEC_FUNCS_LIST,
``add_n',
`addlsh1_n',
`addlsh2_n',
`addmul_1',
`addmul_2',
`bdiv_dbm1c',
`cnd_add_n',
`cnd_sub_n',
`com',
`copyd',
`copyi',
`divexact_1',
`divrem_1',
`gcd_1',
`lshift',
`lshiftc',
`mod_1',
`mod_1_1p',
`mod_1_1p_cps',
`mod_1s_2p',
`mod_1s_2p_cps',
`mod_1s_4p',
`mod_1s_4p_cps',
`mod_34lsub1',
`modexact_1c_odd',
`mul_1',
`mul_basecase',
`mullo_basecase',
`preinv_divrem_1',
`preinv_mod_1',
`redc_1',
`redc_2',
`rshift',
`sqr_basecase',
`sub_n',
`sublsh1_n',
`submul_1'')
dnl Called: PROLOGUE_cpu(GSYM_PREFIX`'foo)
dnl
dnl In the amd64 code we use explicit TEXT and ALIGN() calls in the code,
dnl since different alignments are wanted in various circumstances. So for
dnl instance,
dnl
dnl TEXT
dnl ALIGN(16)
dnl PROLOGUE(mpn_add_n)
dnl ...
dnl EPILOGUE()
define(`PROLOGUE_cpu',
m4_assert_numargs(1)
` GLOBL $1
TYPE($1,`function')
$1:
')
dnl Usage: ASSERT([cond][,instructions])
dnl
dnl If WANT_ASSERT is 1, output the given instructions and expect the given
dnl flags condition to then be satisfied. For example,
dnl
dnl ASSERT(ne, `cmpq %rax, %rbx')
dnl
dnl The instructions can be omitted to just assert a flags condition with
dnl no extra calculation. For example,
dnl
dnl ASSERT(nc)
dnl
dnl When `instructions' is not empty, a pushfq/popfq is added for
dnl convenience to preserve the flags, but the instructions themselves must
dnl preserve any registers that matter.
dnl
dnl The condition can be omitted to just output the given instructions when
dnl assertion checking is wanted. In this case the pushf/popf is omitted.
dnl For example,
dnl
dnl ASSERT(, `movq %rax, VAR_KEEPVAL')
define(ASSERT,
m4_assert_numargs_range(1,2)
m4_assert_defined(`WANT_ASSERT')
`ifelse(WANT_ASSERT,1,
`ifelse(`$1',,
` $2',
`ifelse(`$2',,,
` pushfq')
$2
j`$1' L(ASSERT_ok`'ASSERT_counter)
ud2 C assertion failed
L(ASSERT_ok`'ASSERT_counter):
ifelse(`$2',,,` popfq')
define(`ASSERT_counter',incr(ASSERT_counter))')')')
define(ASSERT_counter,1)
define(`LEA',`dnl
ifdef(`PIC',
`mov $1@GOTPCREL(%rip), $2'
,
`movabs `$'$1, $2')
')
define(`DEF_OBJECT',
m4_assert_numargs_range(1,2)
` RODATA
ALIGN(ifelse($#,1,2,$2))
$1:
')
define(`END_OBJECT',
m4_assert_numargs(1)
` SIZE(`$1',.-`$1')')
define(`R32',
`ifelse($1,`%rax',`%eax',
$1,`%rbx',`%ebx',
$1,`%rcx',`%ecx',
$1,`%rdx',`%edx',
$1,`%rsi',`%esi',
$1,`%rdi',`%edi',
$1,`%rbp',`%ebp',
$1,`%r8',`%r8d',
$1,`%r9',`%r9d',
$1,`%r10',`%r10d',
$1,`%r11',`%r11d',
$1,`%r12',`%r12d',
$1,`%r13',`%r13d',
$1,`%r14',`%r14d',
$1,`%r15',`%r15d')')
define(`R8',
`ifelse($1,`%rax',`%al',
$1,`%rbx',`%bl',
$1,`%rcx',`%cl',
$1,`%rdx',`%dl',
$1,`%rsi',`%sil',
$1,`%rdi',`%dil',
$1,`%rbp',`%bpl',
$1,`%r8',`%r8b',
$1,`%r9',`%r9b',
$1,`%r10',`%r10b',
$1,`%r11',`%r11b',
$1,`%r12',`%r12b',
$1,`%r13',`%r13b',
$1,`%r14',`%r14b',
$1,`%r15',`%r15b')')
dnl Usage: CALL(funcname)
dnl
ifdef(`PIC',
`define(`CALL',`call GSYM_PREFIX`'$1@PLT')',
`define(`CALL',`call GSYM_PREFIX`'$1')')
define(`JUMPTABSECT', `.section .data.rel.ro.local,"aw",@progbits')
dnl Usage: JMPENT(targlabel,tablabel)
define(`JMPENT',`dnl
ifdef(`PIC',
`.long $1-$2'
,
`.quad $1'
)')
dnl These macros are defined just for DOS64, where they provide calling
dnl sequence glue code.
define(`FUNC_ENTRY',`')
define(`FUNC_EXIT',`')
dnl Target ABI macros.
define(`IFDOS', `')
define(`IFSTD', `$1')
define(`IFELF', `$1')
dnl Usage: PROTECT(symbol)
dnl
dnl Used for private GMP symbols that should never be overridden by users.
dnl This can save reloc entries and improve shlib sharing as well as
dnl application startup times
define(`PROTECT', `.hidden $1')
dnl Usage: x86_lookup(target, key,value, key,value, ...)
dnl
dnl Look for `target' among the `key' parameters.
dnl
dnl x86_lookup expands to the corresponding `value', or generates an error
dnl if `target' isn't found.
define(x86_lookup,
m4_assert_numargs_range(1,999)
`ifelse(eval($#<3),1,
`m4_error(`unrecognised part of x86 instruction: $1
')',
`ifelse(`$1',`$2', `$3',
`x86_lookup(`$1',shift(shift(shift($@))))')')')
dnl Usage: x86_opcode_regxmm(reg)
dnl
dnl Validate the given xmm register, and return its number, 0 to 7.
define(x86_opcode_regxmm,
m4_assert_numargs(1)
`x86_lookup(`$1',x86_opcode_regxmm_list)')
define(x86_opcode_regxmm_list,
``%xmm0',0,
`%xmm1',1,
`%xmm2',2,
`%xmm3',3,
`%xmm4',4,
`%xmm5',5,
`%xmm6',6,
`%xmm7',7,
`%xmm8',8,
`%xmm9',9,
`%xmm10',10,
`%xmm11',11,
`%xmm12',12,
`%xmm13',13,
`%xmm14',14,
`%xmm15',15')
dnl Usage: palignr($imm,%srcreg,%dstreg)
dnl
dnl Emit a palignr instruction, using a .byte sequence, since obsolete but
dnl still distributed versions of gas don't know SSSE3 instructions.
define(`palignr',
m4_assert_numargs(3)
`.byte 0x66,dnl
ifelse(eval(x86_opcode_regxmm($3) >= 8 || x86_opcode_regxmm($2) >= 8),1,
`eval(0x40+x86_opcode_regxmm($3)/8*4+x86_opcode_regxmm($2)/8),')dnl
0x0f,0x3a,0x0f,dnl
eval(0xc0+x86_opcode_regxmm($3)%8*8+x86_opcode_regxmm($2)%8),dnl
substr($1,1)')
dnl Usage
dnl
dnl regnum(op) raw operand index (so slightly misnamed)
dnl regnumh(op) high bit of register operand nimber
dnl ix(op) 0 for reg operand, 1 for plain pointer operand.
dnl
define(`regnum',
`ifelse($1,`%rax', 0, $1,`%rcx', 1, $1,`%rdx', 2, $1,`%rbx', 3,
$1,`%rsp', 4, $1,`%rbp', 5, $1,`%rsi', 6, $1,`%rdi', 7,
$1,`%r8', 8, $1,`%r9', 9, $1,`%r10', 10, $1,`%r11', 11,
$1,`%r12', 12, $1,`%r13', 13, $1,`%r14', 14, $1,`%r15', 15,
$1,`(%rax)',16, $1,`(%rcx)',17, $1,`(%rdx)',18, $1,`(%rbx)',19,
$1,`(%rsp)',20, $1,`(%rbp)',21, $1,`(%rsi)',22, $1,`(%rdi)',23,
$1,`(%r8)', 24, $1,`(%r9)', 25, $1,`(%r10)',26, $1,`(%r11)',27,
$1,`(%r12)',28, $1,`(%r13)',29, $1,`(%r14)',30, $1,`(%r15)',31)')
define(`regnumh',`eval(regnum($1)/8 & 1)')
define(`ix',`eval(regnum($1)/16)')
dnl Usage
dnl
dnl mulx(reg1,reg2,reg3)
dnl
dnl or
dnl
dnl mulx((reg1),reg2,reg3)
dnl
dnl where reg1 is any register but rsp,rbp,r12,r13, or
dnl
dnl mulx(off,(reg1),reg2,reg3)
dnl
dnl where reg1 is any register but rsp,r12.
dnl
dnl The exceptions are due to special coding needed for some registers; rsp
dnl and r12 need an extra byte 0x24 at the end while rbp and r13 lack the
dnl offset-less form.
dnl
dnl Other addressing forms are not handled. Invalid forms are not properly
dnl detected. Offsets that don't fit one byte are not handled correctly.
define(`mulx',`dnl
ifelse($#,3,
`.byte 0xc4`'dnl
,0x`'eval(0xe2^32*regnumh($1)^128*regnumh($3),16)`'dnl
,0x`'eval(0xfb-8*regnum($2),16)`'dnl
,0xf6`'dnl
,0x`'eval(0xc0+(7 & regnum($1))+8*(7 & regnum($3))-0xc0*ix($1),16)`'dnl
',$#,4,
`.byte 0xc4`'dnl
,0x`'eval(0xe2^32*regnumh($2)^128*regnumh($4),16)`'dnl
,0x`'eval(0xfb-8*regnum($3),16)`'dnl
,0xf6`'dnl
,0x`'eval(0x40+(7 & regnum($2))+8*(7 & regnum($4)),16)`'dnl
,0x`'eval(($1 + 256) % 256,16)`'dnl
')')
divert`'dnl
|