| 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 |