OLD | NEW |
1 // Copyright (c) 2014, the Dart project authors. Please see the AUTHORS file | 1 // Copyright (c) 2014, the Dart project authors. Please see the AUTHORS file |
2 // for details. All rights reserved. Use of this source code is governed by a | 2 // for details. All rights reserved. Use of this source code is governed by a |
3 // BSD-style license that can be found in the LICENSE file. | 3 // BSD-style license that can be found in the LICENSE file. |
4 | 4 |
5 #include "vm/globals.h" // Needed here to get TARGET_ARCH_ARM64. | 5 #include "vm/globals.h" // Needed here to get TARGET_ARCH_ARM64. |
6 #if defined(TARGET_ARCH_ARM64) | 6 #if defined(TARGET_ARCH_ARM64) |
7 | 7 |
8 #include "vm/intrinsifier.h" | 8 #include "vm/intrinsifier.h" |
9 | 9 |
10 #include "vm/assembler.h" | 10 #include "vm/assembler.h" |
(...skipping 670 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
681 __ andi(R0, R0, Immediate(~kSmiTagMask)); // Remove inverted smi-tag. | 681 __ andi(R0, R0, Immediate(~kSmiTagMask)); // Remove inverted smi-tag. |
682 __ ret(); | 682 __ ret(); |
683 } | 683 } |
684 | 684 |
685 | 685 |
686 void Intrinsifier::Smi_bitLength(Assembler* assembler) { | 686 void Intrinsifier::Smi_bitLength(Assembler* assembler) { |
687 // TODO(sra): Implement as word-length - CLZ. | 687 // TODO(sra): Implement as word-length - CLZ. |
688 } | 688 } |
689 | 689 |
690 | 690 |
691 void Intrinsifier::Bigint_setNeg(Assembler* assembler) { | |
692 __ ldr(R0, Address(SP, 0 * kWordSize)); | |
693 __ ldr(R1, Address(SP, 1 * kWordSize)); | |
694 __ StoreIntoObject(R1, FieldAddress(R1, Bigint::neg_offset()), R0, false); | |
695 __ ret(); | |
696 } | |
697 | |
698 | |
699 void Intrinsifier::Bigint_setUsed(Assembler* assembler) { | |
700 __ ldr(R0, Address(SP, 0 * kWordSize)); | |
701 __ ldr(R1, Address(SP, 1 * kWordSize)); | |
702 __ StoreIntoObject(R1, FieldAddress(R1, Bigint::used_offset()), R0); | |
703 __ ret(); | |
704 } | |
705 | |
706 | |
707 void Intrinsifier::Bigint_setDigits(Assembler* assembler) { | |
708 __ ldr(R0, Address(SP, 0 * kWordSize)); | |
709 __ ldr(R1, Address(SP, 1 * kWordSize)); | |
710 __ StoreIntoObject(R1, FieldAddress(R1, Bigint::digits_offset()), R0, false); | |
711 __ ret(); | |
712 } | |
713 | |
714 | |
715 void Intrinsifier::Bigint_absAdd(Assembler* assembler) { | 691 void Intrinsifier::Bigint_absAdd(Assembler* assembler) { |
716 // static void _absAdd(Uint32List digits, int used, | 692 // static void _absAdd(Uint32List digits, int used, |
717 // Uint32List a_digits, int a_used, | 693 // Uint32List a_digits, int a_used, |
718 // Uint32List r_digits) | 694 // Uint32List r_digits) |
719 | 695 |
720 // R2 = used, R3 = digits | 696 // R2 = used, R3 = digits |
721 __ ldp(R2, R3, Address(SP, 3 * kWordSize, Address::PairOffset)); | 697 __ ldp(R2, R3, Address(SP, 3 * kWordSize, Address::PairOffset)); |
722 __ add(R2, R2, Operand(2)); // used > 0, Smi. R2 = used + 1, round up. | 698 __ add(R2, R2, Operand(2)); // used > 0, Smi. R2 = used + 1, round up. |
723 __ add(R2, ZR, Operand(R2, ASR, 2)); // R2 = num of digit pairs to process. | 699 __ add(R2, ZR, Operand(R2, ASR, 2)); // R2 = num of digit pairs to process. |
724 // R3 = &digits[0] | 700 // R3 = &digits[0] |
(...skipping 35 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
760 Label carry_loop; | 736 Label carry_loop; |
761 __ Bind(&carry_loop); | 737 __ Bind(&carry_loop); |
762 // Loop (used+1)/2 - (a_used+1)/2 times, used - a_used > 0. | 738 // Loop (used+1)/2 - (a_used+1)/2 times, used - a_used > 0. |
763 __ ldr(R0, Address(R3, 2*Bigint::kBytesPerDigit, Address::PostIndex)); | 739 __ ldr(R0, Address(R3, 2*Bigint::kBytesPerDigit, Address::PostIndex)); |
764 __ adcs(R0, R0, ZR); | 740 __ adcs(R0, R0, ZR); |
765 __ sub(R9, R3, Operand(R8)); // Does not affect carry flag. | 741 __ sub(R9, R3, Operand(R8)); // Does not affect carry flag. |
766 __ str(R0, Address(R6, 2*Bigint::kBytesPerDigit, Address::PostIndex)); | 742 __ str(R0, Address(R6, 2*Bigint::kBytesPerDigit, Address::PostIndex)); |
767 __ cbnz(&carry_loop, R9); | 743 __ cbnz(&carry_loop, R9); |
768 | 744 |
769 __ Bind(&last_carry); | 745 __ Bind(&last_carry); |
770 __ adc(R0, ZR, ZR); | 746 Label done; |
| 747 __ b(&done, CC); |
| 748 __ LoadImmediate(R0, 1, kNoPP); |
771 __ str(R0, Address(R6, 0)); | 749 __ str(R0, Address(R6, 0)); |
772 | 750 |
| 751 __ Bind(&done); |
773 // Returning Object::null() is not required, since this method is private. | 752 // Returning Object::null() is not required, since this method is private. |
774 __ ret(); | 753 __ ret(); |
775 } | 754 } |
776 | 755 |
777 | 756 |
778 void Intrinsifier::Bigint_absSub(Assembler* assembler) { | 757 void Intrinsifier::Bigint_absSub(Assembler* assembler) { |
779 // static void _absSub(Uint32List digits, int used, | 758 // static void _absSub(Uint32List digits, int used, |
780 // Uint32List a_digits, int a_used, | 759 // Uint32List a_digits, int a_used, |
781 // Uint32List r_digits) | 760 // Uint32List r_digits) |
782 | 761 |
(...skipping 1243 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
2026 Isolate* isolate = Isolate::Current(); | 2005 Isolate* isolate = Isolate::Current(); |
2027 __ LoadImmediate(R1, reinterpret_cast<uword>(isolate), kNoPP); | 2006 __ LoadImmediate(R1, reinterpret_cast<uword>(isolate), kNoPP); |
2028 // Set return value to Isolate::current_tag_. | 2007 // Set return value to Isolate::current_tag_. |
2029 __ ldr(R0, Address(R1, Isolate::current_tag_offset())); | 2008 __ ldr(R0, Address(R1, Isolate::current_tag_offset())); |
2030 __ ret(); | 2009 __ ret(); |
2031 } | 2010 } |
2032 | 2011 |
2033 } // namespace dart | 2012 } // namespace dart |
2034 | 2013 |
2035 #endif // defined TARGET_ARCH_ARM64 | 2014 #endif // defined TARGET_ARCH_ARM64 |
OLD | NEW |