1 files changed, 216 insertions, 0 deletions
diff --git a/vere/ext/gmp/gen/x86_64-windows/mpn/sub_n.s b/vere/ext/gmp/gen/x86_64-windows/mpn/sub_n.s
new file mode 100644
index 0000000..3a0fd2a
--- /dev/null
+++ b/vere/ext/gmp/gen/x86_64-windows/mpn/sub_n.s
@@ -0,0 +1,216 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+	
+	
+	
+	
+	
+
+
+
+	
+	
+	
+
+
+
+
+
+
+
+	.text
+	.align	16, 0x90
+	.globl	__gmpn_sub_nc
+	
+	.def	__gmpn_sub_nc
+	.scl	2
+	.type	32
+	.endef
+__gmpn_sub_nc:
+
+	push	%rdi
+	push	%rsi
+	mov	%rcx, %rdi
+	mov	%rdx, %rsi
+	mov	%r8, %rdx
+	mov	%r9, %rcx
+
+	mov	56(%rsp), %r8	
+	mov	%ecx, %eax
+	shr	$2, %rcx
+	and	$3, %eax
+	bt	$0, %r8			
+	jrcxz	Llt4
+
+	mov	(%rsi), %r8
+	mov	8(%rsi), %r9
+	dec	%rcx
+	jmp	Lmid
+
+	
+	.align	16, 0x90
+	.globl	__gmpn_sub_n
+	
+	.def	__gmpn_sub_n
+	.scl	2
+	.type	32
+	.endef
+__gmpn_sub_n:
+
+	push	%rdi
+	push	%rsi
+	mov	%rcx, %rdi
+	mov	%rdx, %rsi
+	mov	%r8, %rdx
+	mov	%r9, %rcx
+
+	mov	%ecx, %eax
+	shr	$2, %rcx
+	and	$3, %eax
+	jrcxz	Llt4
+
+	mov	(%rsi), %r8
+	mov	8(%rsi), %r9
+	dec	%rcx
+	jmp	Lmid
+
+Llt4:	dec	%eax
+	mov	(%rsi), %r8
+	jnz	L2
+	sbb	(%rdx), %r8
+	mov	%r8, (%rdi)
+	adc	%eax, %eax
+	pop	%rsi
+	pop	%rdi
+	ret
+
+L2:	dec	%eax
+	mov	8(%rsi), %r9
+	jnz	L3
+	sbb	(%rdx), %r8
+	sbb	8(%rdx), %r9
+	mov	%r8, (%rdi)
+	mov	%r9, 8(%rdi)
+	adc	%eax, %eax
+	pop	%rsi
+	pop	%rdi
+	ret
+
+L3:	mov	16(%rsi), %r10
+	sbb	(%rdx), %r8
+	sbb	8(%rdx), %r9
+	sbb	16(%rdx), %r10
+	mov	%r8, (%rdi)
+	mov	%r9, 8(%rdi)
+	mov	%r10, 16(%rdi)
+	setc	%al
+	pop	%rsi
+	pop	%rdi
+	ret
+
+	.align	16, 0x90
+Ltop:	sbb	(%rdx), %r8
+	sbb	8(%rdx), %r9
+	sbb	16(%rdx), %r10
+	sbb	24(%rdx), %r11
+	mov	%r8, (%rdi)
+	lea	32(%rsi), %rsi
+	mov	%r9, 8(%rdi)
+	mov	%r10, 16(%rdi)
+	dec	%rcx
+	mov	%r11, 24(%rdi)
+	lea	32(%rdx), %rdx
+	mov	(%rsi), %r8
+	mov	8(%rsi), %r9
+	lea	32(%rdi), %rdi
+Lmid:	mov	16(%rsi), %r10
+	mov	24(%rsi), %r11
+	jnz	Ltop
+
+Lend:	lea	32(%rsi), %rsi
+	sbb	(%rdx), %r8
+	sbb	8(%rdx), %r9
+	sbb	16(%rdx), %r10
+	sbb	24(%rdx), %r11
+	lea	32(%rdx), %rdx
+	mov	%r8, (%rdi)
+	mov	%r9, 8(%rdi)
+	mov	%r10, 16(%rdi)
+	mov	%r11, 24(%rdi)
+	lea	32(%rdi), %rdi
+
+	inc	%eax
+	dec	%eax
+	jnz	Llt4
+	adc	%eax, %eax
+	pop	%rsi
+	pop	%rdi
+	ret
+