diff options
Diffstat (limited to 'ports/sysdeps/arm/submul_1.S')
-rw-r--r-- | ports/sysdeps/arm/submul_1.S | 74 |
1 files changed, 0 insertions, 74 deletions
diff --git a/ports/sysdeps/arm/submul_1.S b/ports/sysdeps/arm/submul_1.S deleted file mode 100644 index 76b9cda865..0000000000 --- a/ports/sysdeps/arm/submul_1.S +++ /dev/null @@ -1,74 +0,0 @@ -/* mpn_submul_1 -- multiply and subtract bignums. - Copyright (C) 2013-2014 Free Software Foundation, Inc. - This file is part of the GNU C Library. - - The GNU C Library is free software; you can redistribute it and/or - modify it under the terms of the GNU Lesser General Public - License as published by the Free Software Foundation; either - version 2.1 of the License, or (at your option) any later version. - - The GNU C Library is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - Lesser General Public License for more details. - - You should have received a copy of the GNU Lesser General Public - License along with the GNU C Library. If not, see - <http://www.gnu.org/licenses/>. */ - -#include <sysdep.h> - - .syntax unified - .text - -@ cycles/limb -@ StrongArm ? -@ Cortex-A8 ? -@ Cortex-A9 ? -@ Cortex-A15 4 - -/* mp_limb_t mpn_submul_1(res_ptr, src1_ptr, size, s2_limb) */ - -ENTRY (__mpn_submul_1) - push { r4, r5, r6, r7 } - cfi_adjust_cfa_offset (16) - cfi_rel_offset (r4, 0) - cfi_rel_offset (r5, 4) - cfi_rel_offset (r6, 8) - cfi_rel_offset (r7, 12) - - sfi_breg r1, \ - ldr r6, [\B], #4 - sfi_breg r0, \ - ldr r7, [\B] - mov r4, #0 /* init carry in */ - b 1f -0: - sfi_breg r1, \ - ldr r6, [\B], #4 /* load next ul */ - adds r5, r5, r4 /* (lpl, c) = lpl + cl */ - adc r4, ip, #0 /* cl = hpl + c */ - subs r5, r7, r5 /* (lpl, !c) = rl - lpl */ - sfi_breg r0, \ - ldr r7, [\B, #4] /* load next rl */ - it cc - addcc r4, r4, #1 /* cl += !c */ - sfi_breg r0, \ - str r5, [\B], #4 -1: - umull r5, ip, r6, r3 /* (hpl, lpl) = ul * vl */ - subs r2, r2, #1 - bne 0b - - adds r5, r5, r4 /* (lpl, c) = lpl + cl */ - adc r4, ip, #0 /* cl = hpl + c */ - subs r5, r7, r5 /* (lpl, !c) = rl - lpl */ - sfi_breg r0, \ - str r5, [\B], #4 - it cc - addcc r4, r4, #1 /* cl += !c */ - mov r0, r4 /* return carry */ - - pop { r4, r5, r6, r7 } - DO_RET (lr) -END (__mpn_submul_1) |