1
//! Dynamically emitted HashX assembly code for x86_64 targets
2

            
3
use crate::CompilerError;
4
use crate::compiler::{Architecture, Executable, util};
5
use crate::program::{Instruction, InstructionArray, NUM_INSTRUCTIONS};
6
use crate::register::{RegisterFile, RegisterId};
7
use dynasmrt::{DynasmApi, DynasmLabelApi, x64, x64::Rq};
8
use std::mem;
9

            
10
impl Architecture for Executable {
11
8662
    fn compile(program: &InstructionArray) -> Result<Self, CompilerError> {
12
8662
        let mut asm = Assembler::new();
13
        {
14
8662
            emit_save_regs(&mut asm);
15
8662
            emit_load_input(&mut asm);
16
8662
            emit_init_locals(&mut asm);
17
8662
            debug_assert_eq!(asm.len(), PROLOGUE_SIZE);
18
        }
19
4443606
        for inst in program {
20
4434944
            let prev_len = asm.len();
21
4434944
            emit_instruction(&mut asm, inst);
22
4434944
            debug_assert!(asm.len() - prev_len <= INSTRUCTION_SIZE_LIMIT);
23
        }
24
        {
25
8662
            let prev_len = asm.len();
26
8662
            emit_store_output(&mut asm);
27
8662
            emit_restore_regs(&mut asm);
28
8662
            emit_return(&mut asm);
29
8662
            debug_assert_eq!(asm.len() - prev_len, EPILOGUE_SIZE);
30
        }
31
8662
        asm.finalize()
32
8662
    }
33

            
34
349061986
    fn invoke(&self, regs: &mut RegisterFile) {
35
        // Choose the System V ABI for x86_64. (Rust now lets us do this even on
36
        // targets that use a different default C ABI.) We aren't using the
37
        // stack red zone, and we only need one register-sized parameter.
38
        //
39
        // Parameters: rdi rsi rdx rcx r8 r9
40
        // Callee save: rbx rsp rbp r12 r13 r14 r15
41
        // Scratch: rax rdi rsi rdx rcx r8 r9 r10 r11
42

            
43
349061986
        let entry = self.buffer.ptr(Assembler::entry());
44
349061986
        let entry: extern "sysv64" fn(*mut RegisterFile) -> () = unsafe { mem::transmute(entry) };
45
349061986
        entry(regs);
46
349061986
    }
47
}
48

            
49
/// Architecture-specific fixed prologue size
50
const PROLOGUE_SIZE: usize = 0x68;
51

            
52
/// Architecture-specific fixed epilogue size
53
const EPILOGUE_SIZE: usize = 0x60;
54

            
55
/// Architecture-specific maximum size for one instruction
56
const INSTRUCTION_SIZE_LIMIT: usize = 0x11;
57

            
58
/// Capacity for the temporary output buffer, before code is copied into
59
/// a long-lived allocation that can be made executable.
60
const BUFFER_CAPACITY: usize =
61
    PROLOGUE_SIZE + EPILOGUE_SIZE + NUM_INSTRUCTIONS * INSTRUCTION_SIZE_LIMIT;
62

            
63
/// Architecture-specific specialization of the Assembler
64
type Assembler = util::Assembler<x64::X64Relocation, BUFFER_CAPACITY>;
65

            
66
/// Map RegisterId in our abstract program to concrete registers and addresses.
67
trait RegisterMapper {
68
    /// Map RegisterId(0) to R8, and so on
69
    fn rq(&self) -> u8;
70
    /// Byte offset in a raw RegisterFile
71
    fn offset(&self) -> i32;
72
}
73

            
74
impl RegisterMapper for RegisterId {
75
    #[inline(always)]
76
14960268
    fn rq(&self) -> u8 {
77
14960268
        8 + self.as_u8()
78
14960268
    }
79

            
80
    #[inline(always)]
81
138592
    fn offset(&self) -> i32 {
82
138592
        (self.as_usize() * mem::size_of::<u64>()) as i32
83
138592
    }
84
}
85

            
86
/// Wrapper for `dynasm!`, sets the architecture and defines register aliases
87
macro_rules! dynasm {
88
    ($asm:ident $($t:tt)*) => {
89
        dynasmrt::dynasm!($asm
90
            ; .arch x64
91
            ; .alias mulh_in, rax
92
            ; .alias mulh_result64, rdx
93
            ; .alias mulh_result32, edx
94
            ; .alias branch_prohibit_flag, esi
95
            ; .alias const_ones, ecx
96
            ; .alias register_file_ptr, rdi
97
            $($t)*
98
        )
99
    }
100
}
101

            
102
/// Emit code to initialize our local variables to default values.
103
#[inline(always)]
104
8662
fn emit_init_locals<A: DynasmApi>(asm: &mut A) {
105
8662
    dynasm!(asm
106
    ; xor mulh_result64, mulh_result64
107
    ; xor branch_prohibit_flag, branch_prohibit_flag
108
    ; lea const_ones, [branch_prohibit_flag - 1]
109
    );
110
8662
}
111

            
112
/// List of registers to save on the stack, in address order
113
const REGS_TO_SAVE: [Rq; 4] = [Rq::R12, Rq::R13, Rq::R14, Rq::R15];
114

            
115
/// Calculate the amount of stack space to reserve, in bytes.
116
///
117
/// This is enough to hold REGS_TO_SAVE, and to keep the platform's
118
/// 16-byte stack alignment.
119
17324
const fn stack_size() -> i32 {
120
17324
    let size = REGS_TO_SAVE.len() * mem::size_of::<u64>();
121
17324
    let alignment = 0x10;
122
17324
    let offset = size % alignment;
123
17324
    let size = if offset == 0 {
124
17324
        size
125
    } else {
126
        size + alignment - offset
127
    };
128
17324
    size as i32
129
17324
}
130

            
131
/// Emit code to allocate stack space and store REGS_TO_SAVE.
132
#[inline(always)]
133
8662
fn emit_save_regs<A: DynasmApi>(asm: &mut A) {
134
8662
    dynasm!(asm; sub rsp, stack_size());
135
34648
    for (i, reg) in REGS_TO_SAVE.as_ref().iter().enumerate() {
136
34648
        let offset = (i * mem::size_of::<u64>()) as i32;
137
34648
        dynasm!(asm; mov [rsp + offset], Rq(*reg));
138
34648
    }
139
8662
}
140

            
141
/// Emit code to restore REGS_TO_SAVE and deallocate stack space.
142
#[inline(always)]
143
8662
fn emit_restore_regs<A: DynasmApi>(asm: &mut A) {
144
34648
    for (i, reg) in REGS_TO_SAVE.as_ref().iter().enumerate() {
145
34648
        let offset = (i * mem::size_of::<u64>()) as i32;
146
34648
        dynasm!(asm; mov Rq(*reg), [rsp + offset]);
147
34648
    }
148
8662
    dynasm!(asm; add rsp, stack_size());
149
8662
}
150

            
151
/// Emit code to move all input values from the RegisterFile into their
152
/// actual hardware registers.
153
#[inline(always)]
154
#[allow(clippy::useless_conversion)]
155
8662
fn emit_load_input<A: DynasmApi>(asm: &mut A) {
156
69296
    for reg in RegisterId::all() {
157
69296
        dynasm!(asm; mov Rq(reg.rq()), [register_file_ptr + reg.offset()]);
158
69296
    }
159
8662
}
160

            
161
/// Emit code to move all output values from machine registers back into
162
/// their RegisterFile slots.
163
#[inline(always)]
164
#[allow(clippy::useless_conversion)]
165
8662
fn emit_store_output<A: DynasmApi>(asm: &mut A) {
166
69296
    for reg in RegisterId::all() {
167
69296
        dynasm!(asm; mov [register_file_ptr + reg.offset()], Rq(reg.rq()));
168
69296
    }
169
8662
}
170

            
171
/// Emit a return instruction.
172
#[inline(always)]
173
8662
fn emit_return<A: DynasmApi>(asm: &mut A) {
174
8662
    dynasm!(asm; ret);
175
8662
}
176

            
177
/// Emit code for a single [`Instruction`] in the hash program.
178
#[inline(always)]
179
#[allow(clippy::useless_conversion)]
180
4434944
fn emit_instruction(asm: &mut Assembler, inst: &Instruction) {
181
    /// Common implementation for binary operations on registers
182
    macro_rules! reg_op {
183
        ($op:tt, $dst:ident, $src:ident) => {
184
            dynasm!(asm; $op Rq($dst.rq()), Rq($src.rq()))
185
        }
186
    }
187

            
188
    /// Common implementation for binary operations with a const operand
189
    macro_rules! const_op {
190
        ($op:tt, $dst:ident, $src:expr) => {
191
            dynasm!(asm; $op Rq($dst.rq()), $src)
192
        }
193
    }
194

            
195
    /// Common implementation for wide multiply operations.
196
    /// These use the one-argument form of `mul` (one register plus RDX:RAX)
197
    macro_rules! mulh_op {
198
        ($op:tt, $dst:ident, $src:ident) => {
199
            dynasm!(asm
200
                ; mov mulh_in, Rq($dst.rq())
201
                ; $op Rq($src.rq())
202
                ; mov Rq($dst.rq()), mulh_result64
203
            )
204
        }
205
    }
206

            
207
    /// Common implementation for scaled add using `lea`.
208
    /// Currently dynasm can only parse literal scale parameters.
209
    macro_rules! add_scaled_op {
210
        ($scale:tt, $dst:ident, $src:ident) => {
211
            dynasm!(asm
212
                ; lea Rq($dst.rq()), [ Rq($dst.rq()) + $scale * Rq($src.rq()) ]
213
            )
214
        }
215
    }
216

            
217
4434944
    match inst {
218
138592
        Instruction::Target => {
219
138592
            dynasm!(asm; target: );
220
138592
        }
221
138592
        Instruction::Branch { mask } => {
222
138592
            // Only one branch is allowed, `branch_prohibit_flag` keeps the test
223
138592
            // from passing. We get mul result tracking for free by assigning
224
138592
            // mulh_result32 to the corresponding output register used by the
225
138592
            // x86 mul instruction.
226
138592
            dynasm!(asm
227
138592
                ; or mulh_result32, branch_prohibit_flag
228
138592
                ; test mulh_result32, *mask as i32
229
138592
                ; cmovz branch_prohibit_flag, const_ones
230
138592
                ; jz <target
231
138592
            );
232
138592
        }
233
        Instruction::AddShift {
234
298981
            dst,
235
298981
            src,
236
298981
            left_shift,
237
298981
        } => match left_shift {
238
73201
            0 => add_scaled_op!(1, dst, src),
239
76254
            1 => add_scaled_op!(2, dst, src),
240
73911
            2 => add_scaled_op!(4, dst, src),
241
75615
            3 => add_scaled_op!(8, dst, src),
242
            _ => unreachable!(),
243
        },
244
140722
        Instruction::UMulH { dst, src } => {
245
140722
            mulh_op!(mul, dst, src);
246
140722
        }
247
136462
        Instruction::SMulH { dst, src } => {
248
136462
            mulh_op!(imul, dst, src);
249
136462
        }
250
1385920
        Instruction::Mul { dst, src } => {
251
1385920
            reg_op!(imul, dst, src);
252
1385920
        }
253
338031
        Instruction::Xor { dst, src } => {
254
338031
            reg_op!(xor, dst, src);
255
338031
        }
256
307501
        Instruction::Sub { dst, src } => {
257
307501
            reg_op!(sub, dst, src);
258
307501
        }
259
601086
        Instruction::AddConst { dst, src } => {
260
601086
            const_op!(add, dst, *src);
261
601086
        }
262
610387
        Instruction::XorConst { dst, src } => {
263
610387
            const_op!(xor, dst, *src);
264
610387
        }
265
338670
        Instruction::Rotate { dst, right_rotate } => {
266
338670
            const_op!(ror, dst, *right_rotate as i8);
267
338670
        }
268
    }
269
4434944
}