OLD | NEW |
| (Empty) |
1 # ns32000 __gmpn_submul_1 -- Multiply a limb vector with a limb and subtract | |
2 # the result from a second limb vector. | |
3 | |
4 # Copyright 1992, 1994, 2000 Free Software Foundation, Inc. | |
5 | |
6 # This file is part of the GNU MP Library. | |
7 | |
8 # The GNU MP Library is free software; you can redistribute it and/or modify | |
9 # it under the terms of the GNU Lesser General Public License as published by | |
10 # the Free Software Foundation; either version 3 of the License, or (at your | |
11 # option) any later version. | |
12 | |
13 # The GNU MP Library is distributed in the hope that it will be useful, but | |
14 # WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY | |
15 # or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public | |
16 # License for more details. | |
17 | |
18 # You should have received a copy of the GNU Lesser General Public License | |
19 # along with the GNU MP Library. If not, see http://www.gnu.org/licenses/. | |
20 | |
21 | |
22 .align 1 | |
23 .globl ___gmpn_submul_1 | |
24 ___gmpn_submul_1: | |
25 save [r3,r4,r5,r6,r7] | |
26 negd 24(sp),r4 | |
27 movd r4,r0 | |
28 lshd 2,r0 | |
29 movd 20(sp),r5 | |
30 subd r0,r5 # r5 -> to end of S1 | |
31 movd 16(sp),r6 | |
32 subd r0,r6 # r6 -> to end of RES | |
33 subd r0,r0 # r0 = 0, cy = 0 | |
34 movd 28(sp),r7 # r7 = s2_limb | |
35 | |
36 Loop: movd r5[r4:d],r2 | |
37 meid r7,r2 # r2 = low_prod, r3 = high_prod | |
38 addcd r0,r2 # r2 = low_prod + cy_limb | |
39 movd r3,r0 # r0 = new cy_limb | |
40 addcd 0,r0 | |
41 subd r2,r6[r4:d] | |
42 acbd 1,r4,Loop | |
43 | |
44 addcd 0,r0 | |
45 restore [r7,r6,r5,r4,r3] | |
46 ret 0 | |
OLD | NEW |