356 lines
6.6 KiB
NASM
356 lines
6.6 KiB
NASM
; PROLOGUE(mpn_divrem_euclidean_qr_1)
|
|
|
|
; x86-64 mpn_divrem_euclidean_qr_1 -- mpn by limb division.
|
|
|
|
; Copyright 2004, 2005, 2007, 2008, 2009 Free Software Foundation, Inc.
|
|
|
|
; Copyright Brian Gladman 2010 (Conversion to yasm format)
|
|
|
|
; This file is part of the GNU MP Library.
|
|
|
|
; The GNU MP Library is free software; you can redistribute it and/or modify
|
|
; it under the terms of the GNU Lesser General Public License as published
|
|
; by the Free Software Foundation; either version 3 of the License, or (at
|
|
; your option) any later version.
|
|
|
|
; The GNU MP Library 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 Lesser General Public
|
|
; License for more details.
|
|
|
|
; You should have received a copy of the GNU Lesser General Public License
|
|
|
|
; mp_limb_t mpn_divrem_euclidean_qr_1(mp_ptr, mp_size_t, mp_ptr, mp_size_t, mp_limb_t)
|
|
; rax rdi rsi rdx rcx r8
|
|
; rax rcx rdx r8 r9 [rsp+40]
|
|
|
|
; mp_limb_t mpn_preinv_divrem_1(mp_ptr, mp_size_t, mp_ptr, mp_size_t, mp_limb_t, mp_limb_t, int)
|
|
; rax rdi rsi rdx rcx r8 r9 8(rsp)
|
|
; rax rcx rdx r8 r9 [rsp+40] [rsp+48] [rsp+56]
|
|
|
|
%include 'yasm_mac.inc'
|
|
|
|
BITS 64
|
|
TEXT
|
|
|
|
%define reg_save_list rbx, rbp, rsi, rdi, r12, r13
|
|
|
|
%define SPECIAL_CODE_FOR_NORMALIZED_DIVISOR
|
|
|
|
xalign 16
|
|
WIN64_GCC_PROC mpn_divrem_euclidean_qr_1, 5, frame
|
|
xor eax, eax
|
|
mov r12, rsi
|
|
mov rbx, rcx
|
|
add rcx, rsi
|
|
mov rsi, rdx
|
|
je .17
|
|
|
|
lea rdi, [rdi+rcx*8-8]
|
|
xor ebp, ebp
|
|
|
|
%ifdef SPECIAL_CODE_FOR_NORMALIZED_DIVISOR
|
|
|
|
test r8, r8
|
|
jns .6
|
|
|
|
test rbx, rbx
|
|
je .1
|
|
mov rbp, [rsi+rbx*8-8]
|
|
dec rbx
|
|
mov rax, rbp
|
|
sub rbp, r8
|
|
cmovb rbp, rax
|
|
sbb eax, eax
|
|
inc eax
|
|
mov [rdi], rax
|
|
lea rdi, [rdi-8]
|
|
.1: mov rdx, r8
|
|
mov rax, -1
|
|
not rdx
|
|
div r8
|
|
mov r9, rax
|
|
mov rax, rbp
|
|
jmp .4
|
|
|
|
xalign 16
|
|
.2: mov r10, [rsi+rbx*8]
|
|
lea rbp, [rax+1]
|
|
mul r9
|
|
add rax, r10
|
|
adc rdx, rbp
|
|
mov rbp, rax
|
|
mov r13, rdx
|
|
imul rdx, r8
|
|
sub r10, rdx
|
|
mov rax, r8
|
|
add rax, r10
|
|
cmp r10, rbp
|
|
cmovb rax, r10
|
|
adc r13, -1
|
|
cmp rax, r8
|
|
jae .5
|
|
.3: mov [rdi], r13
|
|
sub rdi, 8
|
|
.4: dec rbx
|
|
jns .2
|
|
xor ecx, ecx
|
|
jmp .14
|
|
.5: sub rax, r8
|
|
inc r13
|
|
jmp .3
|
|
|
|
%endif
|
|
|
|
.6: test rbx, rbx
|
|
je .7
|
|
mov rax, [rsi+rbx*8-8]
|
|
cmp rax, r8
|
|
jae .7
|
|
mov [rdi], rbp
|
|
mov rbp, rax
|
|
lea rdi, [rdi-8]
|
|
je .17
|
|
dec rbx
|
|
.7: bsr rcx, r8
|
|
not ecx
|
|
sal r8, cl
|
|
sal rbp, cl
|
|
mov rdx, r8
|
|
mov rax, -1
|
|
not rdx
|
|
div r8
|
|
test rbx, rbx
|
|
mov r9, rax
|
|
mov rax, rbp
|
|
je .14
|
|
mov rbp, [rsi+rbx*8-8]
|
|
shr rax, cl
|
|
shld rax, rbp, cl
|
|
sub rbx, 2
|
|
js .10
|
|
|
|
xalign 16
|
|
.8: nop
|
|
mov r10, [rsi+rbx*8]
|
|
lea r11, [rax+1]
|
|
shld rbp, r10, cl
|
|
mul r9
|
|
add rax, rbp
|
|
adc rdx, r11
|
|
mov r11, rax
|
|
mov r13, rdx
|
|
imul rdx, r8
|
|
sub rbp, rdx
|
|
mov rax, r8
|
|
add rax, rbp
|
|
cmp rbp, r11
|
|
cmovb rax, rbp
|
|
adc r13, -1
|
|
cmp rax, r8
|
|
jae .12
|
|
.9: mov [rdi], r13
|
|
sub rdi, 8
|
|
dec rbx
|
|
mov rbp, r10
|
|
jns .8
|
|
.10:lea r11, [rax+1]
|
|
sal rbp, cl
|
|
mul r9
|
|
add rax, rbp
|
|
adc rdx, r11
|
|
mov r11, rax
|
|
mov r13, rdx
|
|
imul rdx, r8
|
|
sub rbp, rdx
|
|
mov rax, r8
|
|
add rax, rbp
|
|
cmp rbp, r11
|
|
cmovb rax, rbp
|
|
adc r13, -1
|
|
cmp rax, r8
|
|
jae .13
|
|
.11:mov [rdi], r13
|
|
sub rdi, 8
|
|
jmp .14
|
|
.12:sub rax, r8
|
|
inc r13
|
|
jmp .9
|
|
.13:sub rax, r8
|
|
inc r13
|
|
jmp .11
|
|
.14:mov rbp, r8
|
|
neg rbp
|
|
jmp .16
|
|
|
|
xalign 16
|
|
.15:lea r11, [rax+1]
|
|
mul r9
|
|
add rdx, r11
|
|
mov r11, rax
|
|
mov r13, rdx
|
|
imul rdx, rbp
|
|
mov rax, r8
|
|
add rax, rdx
|
|
cmp rdx, r11
|
|
cmovb rax, rdx
|
|
adc r13, -1
|
|
mov [rdi], r13
|
|
sub rdi, 8
|
|
.16:dec r12
|
|
jns .15
|
|
shr rax, cl
|
|
.17:WIN64_GCC_END
|
|
|
|
%ifndef EXCLUDE_PREINV
|
|
|
|
xalign 16
|
|
WIN64_GCC_PROC mpn_preinv_divrem_1, 7, frame
|
|
xor eax, eax
|
|
mov r12, rsi
|
|
mov rbx, rcx
|
|
add rcx, rsi
|
|
mov rsi, rdx
|
|
lea rdi, [rdi+rcx*8-8]
|
|
|
|
test r8, r8
|
|
js .3
|
|
mov cl, [rsp+stack_use+0x38]
|
|
shl r8, cl
|
|
jmp .7
|
|
|
|
%ifdef SPECIAL_CODE_FOR_NORMALIZED_DIVISOR
|
|
|
|
xalign 16
|
|
.1: mov r10, [rsi+rbx*8]
|
|
lea rbp, [rax+1]
|
|
mul r9
|
|
add rax, r10
|
|
adc rdx, rbp
|
|
mov rbp, rax
|
|
mov r13, rdx
|
|
imul rdx, r8
|
|
sub r10, rdx
|
|
mov rax, r8
|
|
add rax, r10
|
|
cmp r10, rbp
|
|
cmovb rax, r10
|
|
adc r13, -1
|
|
cmp rax, r8
|
|
jae .4
|
|
.2: mov [rdi], r13
|
|
sub rdi, 8
|
|
.3: dec rbx
|
|
jns .1
|
|
xor ecx, ecx
|
|
jmp .14
|
|
.4: sub rax, r8
|
|
inc r13
|
|
jmp .2
|
|
|
|
%endif
|
|
|
|
.5: test rbx, rbx
|
|
je .6
|
|
mov rax, [rsi+rbx*8-8]
|
|
cmp rax, r8
|
|
jae .6
|
|
mov [rdi], rbp
|
|
mov rbp, rax
|
|
lea rdi, [rdi-8]
|
|
je .17
|
|
dec rbx
|
|
.6: bsr rcx, r8
|
|
not ecx
|
|
sal r8, cl
|
|
sal rbp, cl
|
|
mov rdx, r8
|
|
mov rax, -1
|
|
not rdx
|
|
div r8
|
|
test rbx, rbx
|
|
mov r9, rax
|
|
mov rax, rbp
|
|
je .14
|
|
.7: mov rbp, [rsi+rbx*8-8]
|
|
shr rax, cl
|
|
shld rax, rbp, cl
|
|
sub rbx, 2
|
|
js .10
|
|
|
|
xalign 16
|
|
.8: nop
|
|
mov r10, [rsi+rbx*8]
|
|
lea r11, [rax+1]
|
|
shld rbp, r10, cl
|
|
mul r9
|
|
add rax, rbp
|
|
adc rdx, r11
|
|
mov r11, rax
|
|
mov r13, rdx
|
|
imul rdx, r8
|
|
sub rbp, rdx
|
|
mov rax, r8
|
|
add rax, rbp
|
|
cmp rbp, r11
|
|
cmovb rax, rbp
|
|
adc r13, -1
|
|
cmp rax, r8
|
|
jae .12
|
|
.9: mov [rdi], r13
|
|
sub rdi, 8
|
|
dec rbx
|
|
mov rbp, r10
|
|
jns .8
|
|
.10:lea r11, [rax+1]
|
|
sal rbp, cl
|
|
mul r9
|
|
add rax, rbp
|
|
adc rdx, r11
|
|
mov r11, rax
|
|
mov r13, rdx
|
|
imul rdx, r8
|
|
sub rbp, rdx
|
|
mov rax, r8
|
|
add rax, rbp
|
|
cmp rbp, r11
|
|
cmovb rax, rbp
|
|
adc r13, -1
|
|
cmp rax, r8
|
|
jae .13
|
|
.11:mov [rdi], r13
|
|
sub rdi, 8
|
|
jmp .14
|
|
.12:sub rax, r8
|
|
inc r13
|
|
jmp .9
|
|
.13:sub rax, r8
|
|
inc r13
|
|
jmp .11
|
|
.14:mov rbp, r8
|
|
neg rbp
|
|
jmp .16
|
|
|
|
xalign 16
|
|
.15:lea r11, [rax+1]
|
|
mul r9
|
|
add rdx, r11
|
|
mov r11, rax
|
|
mov r13, rdx
|
|
imul rdx, rbp
|
|
mov rax, r8
|
|
add rax, rdx
|
|
cmp rdx, r11
|
|
cmovb rax, rdx
|
|
adc r13, -1
|
|
mov [rdi], r13
|
|
sub rdi, 8
|
|
.16:dec r12
|
|
jns .15
|
|
shr rax, cl
|
|
.17:WIN64_GCC_END
|
|
|
|
%endif
|
|
|
|
end
|