From fcedfddf00b3f994e4f4e40332ac7fc192c63244 Mon Sep 17 00:00:00 2001
From: polwex <polwex@sortug.com>
Date: Sun, 5 Oct 2025 21:56:51 +0700
Subject: claude is gud

---
 vere/ext/gmp/gen/aarch64-linux/mpn/addmul_1.s | 147 ++++++++++++++++++++++++++
 1 file changed, 147 insertions(+)
 create mode 100644 vere/ext/gmp/gen/aarch64-linux/mpn/addmul_1.s

(limited to 'vere/ext/gmp/gen/aarch64-linux/mpn/addmul_1.s')

diff --git a/vere/ext/gmp/gen/aarch64-linux/mpn/addmul_1.s b/vere/ext/gmp/gen/aarch64-linux/mpn/addmul_1.s
new file mode 100644
index 0000000..f268546
--- /dev/null
+++ b/vere/ext/gmp/gen/aarch64-linux/mpn/addmul_1.s
@@ -0,0 +1,147 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+  
+  
+  
+  
+
+
+
+
+	.text
+	.align	3
+	.globl	__gmpn_addmul_1 
+	.type	__gmpn_addmul_1,@function
+__gmpn_addmul_1:
+	adds	x15, xzr, xzr
+
+	tbz	x2, #0, .L1
+
+	ldr	x4, [x1],#8
+	mul	x8, x4, x3
+	umulh	x12, x4, x3
+	ldr	x4, [x0]
+	adds	x8, x4, x8
+	csinc	x15, x12, x12, cc
+	str	x8, [x0],#8
+
+.L1:	tbz	x2, #1, .L2
+
+	ldp	x4, x5, [x1],#16
+	mul	x8, x4, x3
+	umulh	x12, x4, x3
+	mul	x9, x5, x3
+	umulh	x13, x5, x3
+	adds	x8, x8, x15
+	adcs	x9, x9, x12
+	ldp	x4, x5, [x0]
+	adc	x15, x13, xzr
+	adds	x8, x4, x8
+	adcs	x9, x5, x9
+	csinc	x15, x15, x15, cc
+	stp	x8, x9, [x0],#16
+
+.L2:	lsr	x2, x2, #2
+	cbz	x2, .Lle3
+	ldp	x4, x5, [x1],#32
+	ldp	x6, x7, [x1,#-16]
+	b	.Lmid
+.Lle3:	mov	x0, x15
+	ret
+
+	.align	4
+.Ltop:	ldp	x4, x5, [x1],#32
+	ldp	x6, x7, [x1,#-16]
+	adds	x8, x16, x8
+	adcs	x9, x17, x9
+	stp	x8, x9, [x0],#32
+	adcs	x10, x12, x10
+	adcs	x11, x13, x11
+	stp	x10, x11, [x0,#-16]
+	csinc	x15, x15, x15, cc
+.Lmid:	sub	x2, x2, #1
+	mul	x8, x4, x3
+	umulh	x12, x4, x3
+	mul	x9, x5, x3
+	umulh	x13, x5, x3
+	adds	x8, x8, x15
+	mul	x10, x6, x3
+	umulh	x14, x6, x3
+	adcs	x9, x9, x12
+	mul	x11, x7, x3
+	umulh	x15, x7, x3
+	adcs	x10, x10, x13
+	ldp	x16, x17, [x0]
+	adcs	x11, x11, x14
+	ldp	x12, x13, [x0,#16]
+	adc	x15, x15, xzr
+	cbnz	x2, .Ltop
+
+	adds	x8, x16, x8
+	adcs	x9, x17, x9
+	adcs	x10, x12, x10
+	adcs	x11, x13, x11
+	stp	x8, x9, [x0]
+	stp	x10, x11, [x0,#16]
+	csinc	x0, x15, x15, cc
+	ret
+	.size	__gmpn_addmul_1,.-__gmpn_addmul_1
-- 
cgit v1.2.3