| // This file is generated from a similarly-named Perl script in the BoringSSL | |
| // source tree. Do not edit by hand. | |
| #include <openssl/asm_base.h> | |
| #if !defined(OPENSSL_NO_ASM) && defined(OPENSSL_AARCH64) && defined(__ELF__) | |
| .text | |
| // BN_ULONG bn_add_words(BN_ULONG *rp, const BN_ULONG *ap, const BN_ULONG *bp, | |
| // size_t num); | |
| .type bn_add_words, %function | |
| .globl bn_add_words | |
| .hidden bn_add_words | |
| .align 4 | |
| bn_add_words: | |
| AARCH64_VALID_CALL_TARGET | |
| # Clear the carry flag. | |
| cmn xzr, xzr | |
| # aarch64 can load two registers at a time, so we do two loop iterations at | |
| # at a time. Split x3 = 2 * x8 + x3. This allows loop | |
| # operations to use CBNZ without clobbering the carry flag. | |
| lsr x8, x3, #1 | |
| and x3, x3, #1 | |
| cbz x8, .Ladd_tail | |
| .Ladd_loop: | |
| ldp x4, x5, [x1], #16 | |
| ldp x6, x7, [x2], #16 | |
| sub x8, x8, #1 | |
| adcs x4, x4, x6 | |
| adcs x5, x5, x7 | |
| stp x4, x5, [x0], #16 | |
| cbnz x8, .Ladd_loop | |
| .Ladd_tail: | |
| cbz x3, .Ladd_exit | |
| ldr x4, [x1], #8 | |
| ldr x6, [x2], #8 | |
| adcs x4, x4, x6 | |
| str x4, [x0], #8 | |
| .Ladd_exit: | |
| cset x0, cs | |
| ret | |
| .size bn_add_words,.-bn_add_words | |
| // BN_ULONG bn_sub_words(BN_ULONG *rp, const BN_ULONG *ap, const BN_ULONG *bp, | |
| // size_t num); | |
| .type bn_sub_words, %function | |
| .globl bn_sub_words | |
| .hidden bn_sub_words | |
| .align 4 | |
| bn_sub_words: | |
| AARCH64_VALID_CALL_TARGET | |
| # Set the carry flag. Arm's borrow bit is flipped from the carry flag, | |
| # so we want C = 1 here. | |
| cmp xzr, xzr | |
| # aarch64 can load two registers at a time, so we do two loop iterations at | |
| # at a time. Split x3 = 2 * x8 + x3. This allows loop | |
| # operations to use CBNZ without clobbering the carry flag. | |
| lsr x8, x3, #1 | |
| and x3, x3, #1 | |
| cbz x8, .Lsub_tail | |
| .Lsub_loop: | |
| ldp x4, x5, [x1], #16 | |
| ldp x6, x7, [x2], #16 | |
| sub x8, x8, #1 | |
| sbcs x4, x4, x6 | |
| sbcs x5, x5, x7 | |
| stp x4, x5, [x0], #16 | |
| cbnz x8, .Lsub_loop | |
| .Lsub_tail: | |
| cbz x3, .Lsub_exit | |
| ldr x4, [x1], #8 | |
| ldr x6, [x2], #8 | |
| sbcs x4, x4, x6 | |
| str x4, [x0], #8 | |
| .Lsub_exit: | |
| cset x0, cc | |
| ret | |
| .size bn_sub_words,.-bn_sub_words | |
| #endif // !OPENSSL_NO_ASM && defined(OPENSSL_AARCH64) && defined(__ELF__) |