1/* Pentium __mpn_mul_1 -- Multiply a limb vector with a limb and store
2   the result in a second limb vector.
3   Copyright (C) 1992-2021 Free Software Foundation, Inc.
4   This file is part of the GNU MP Library.
5
6   The GNU MP Library is free software; you can redistribute it and/or modify
7   it under the terms of the GNU Lesser General Public License as published by
8   the Free Software Foundation; either version 2.1 of the License, or (at your
9   option) any later version.
10
11   The GNU MP Library is distributed in the hope that it will be useful, but
12   WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
13   or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
14   License for more details.
15
16   You should have received a copy of the GNU Lesser General Public License
17   along with the GNU MP Library; see the file COPYING.LIB.  If not,
18   see <https://www.gnu.org/licenses/>.  */
19
20#include "sysdep.h"
21#include "asm-syntax.h"
22
23#define PARMS	4+16	/* space for 4 saved regs */
24#define RES	PARMS
25#define S1	RES+4
26#define SIZE	S1+4
27#define S2LIMB	SIZE+4
28
29#define res_ptr edi
30#define s1_ptr esi
31#define size ecx
32#define s2_limb ebx
33
34	.text
35ENTRY (__mpn_mul_1)
36
37	pushl	%res_ptr
38	cfi_adjust_cfa_offset (4)
39	pushl	%s1_ptr
40	cfi_adjust_cfa_offset (4)
41	pushl	%ebp
42	cfi_adjust_cfa_offset (4)
43	pushl	%s2_limb
44	cfi_adjust_cfa_offset (4)
45
46	movl	RES(%esp), %res_ptr
47	cfi_rel_offset (res_ptr, 12)
48	movl	S1(%esp), %s1_ptr
49	cfi_rel_offset (s1_ptr, 8)
50	movl	SIZE(%esp), %size
51	movl	S2LIMB(%esp), %s2_limb
52	cfi_rel_offset (s2_limb, 0)
53	leal	(%res_ptr,%size,4), %res_ptr
54	leal	(%s1_ptr,%size,4), %s1_ptr
55	negl	%size
56	xorl	%ebp, %ebp
57	cfi_rel_offset (ebp, 4)
58	ALIGN (3)
59
60L(oop):	adcl	$0, %ebp
61	movl	(%s1_ptr,%size,4), %eax
62
63	mull	%s2_limb
64
65	addl	%eax, %ebp
66
67	movl	%ebp, (%res_ptr,%size,4)
68	incl	%size
69
70	movl	%edx, %ebp
71	jnz	L(oop)
72
73	adcl	$0, %ebp
74	movl	%ebp, %eax
75	popl	%s2_limb
76	cfi_adjust_cfa_offset (-4)
77	cfi_restore (s2_limb)
78	popl	%ebp
79	cfi_adjust_cfa_offset (-4)
80	cfi_restore (ebp)
81	popl	%s1_ptr
82	cfi_adjust_cfa_offset (-4)
83	cfi_restore (s1_ptr)
84	popl	%res_ptr
85	cfi_adjust_cfa_offset (-4)
86	cfi_restore (res_ptr)
87
88	ret
89#undef size
90END (__mpn_mul_1)
91