OLD | NEW |
1 // Copyright (c) 2013, the Dart project authors. Please see the AUTHORS file | 1 // Copyright (c) 2013, 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_X64. | 5 #include "vm/globals.h" // Needed here to get TARGET_ARCH_X64. |
6 #if defined(TARGET_ARCH_X64) | 6 #if defined(TARGET_ARCH_X64) |
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 705 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
716 __ xorq(RAX, RCX); | 716 __ xorq(RAX, RCX); |
717 // BSR does not write the destination register if source is zero. Put a 1 in | 717 // BSR does not write the destination register if source is zero. Put a 1 in |
718 // the Smi tag bit to ensure BSR writes to destination register. | 718 // the Smi tag bit to ensure BSR writes to destination register. |
719 __ orq(RAX, Immediate(kSmiTagMask)); | 719 __ orq(RAX, Immediate(kSmiTagMask)); |
720 __ bsrq(RAX, RAX); | 720 __ bsrq(RAX, RAX); |
721 __ SmiTag(RAX); | 721 __ SmiTag(RAX); |
722 __ ret(); | 722 __ ret(); |
723 } | 723 } |
724 | 724 |
725 | 725 |
726 void Intrinsifier::Bigint_setNeg(Assembler* assembler) { | |
727 __ movq(RAX, Address(RSP, + 1 * kWordSize)); | |
728 __ movq(RCX, Address(RSP, + 2 * kWordSize)); | |
729 __ StoreIntoObject(RCX, FieldAddress(RCX, Bigint::neg_offset()), RAX, false); | |
730 __ ret(); | |
731 } | |
732 | |
733 | |
734 void Intrinsifier::Bigint_setUsed(Assembler* assembler) { | |
735 __ movq(RAX, Address(RSP, + 1 * kWordSize)); | |
736 __ movq(RCX, Address(RSP, + 2 * kWordSize)); | |
737 __ StoreIntoObject(RCX, FieldAddress(RCX, Bigint::used_offset()), RAX); | |
738 __ ret(); | |
739 } | |
740 | |
741 | |
742 void Intrinsifier::Bigint_setDigits(Assembler* assembler) { | |
743 __ movq(RAX, Address(RSP, + 1 * kWordSize)); | |
744 __ movq(RCX, Address(RSP, + 2 * kWordSize)); | |
745 __ StoreIntoObject(RCX, | |
746 FieldAddress(RCX, Bigint::digits_offset()), RAX, false); | |
747 __ ret(); | |
748 } | |
749 | |
750 | |
751 void Intrinsifier::Bigint_absAdd(Assembler* assembler) { | 726 void Intrinsifier::Bigint_absAdd(Assembler* assembler) { |
752 // static void _absAdd(Uint32List digits, int used, | 727 // static void _absAdd(Uint32List digits, int used, |
753 // Uint32List a_digits, int a_used, | 728 // Uint32List a_digits, int a_used, |
754 // Uint32List r_digits) | 729 // Uint32List r_digits) |
755 | 730 |
756 __ movq(RDI, Address(RSP, 5 * kWordSize)); // digits | 731 __ movq(RDI, Address(RSP, 5 * kWordSize)); // digits |
757 __ movq(R8, Address(RSP, 4 * kWordSize)); // used is Smi | 732 __ movq(R8, Address(RSP, 4 * kWordSize)); // used is Smi |
758 __ addq(R8, Immediate(2)); // used > 0, Smi. R8 = used + 1, round up. | 733 __ addq(R8, Immediate(2)); // used > 0, Smi. R8 = used + 1, round up. |
759 __ sarq(R8, Immediate(2)); // R8 = number of digit pairs to process. | 734 __ sarq(R8, Immediate(2)); // R8 = number of digit pairs to process. |
760 __ movq(RSI, Address(RSP, 3 * kWordSize)); // a_digits | 735 __ movq(RSI, Address(RSP, 3 * kWordSize)); // a_digits |
(...skipping 25 matching lines...) Expand all Loading... |
786 __ Bind(&carry_loop); | 761 __ Bind(&carry_loop); |
787 // Loop (used+1)/2 - (a_used+1)/2 times, R8 > 0. | 762 // Loop (used+1)/2 - (a_used+1)/2 times, R8 > 0. |
788 __ movq(RAX, FieldAddress(RDI, RDX, TIMES_8, TypedData::data_offset())); | 763 __ movq(RAX, FieldAddress(RDI, RDX, TIMES_8, TypedData::data_offset())); |
789 __ adcq(RAX, Immediate(0)); | 764 __ adcq(RAX, Immediate(0)); |
790 __ movq(FieldAddress(RBX, RDX, TIMES_8, TypedData::data_offset()), RAX); | 765 __ movq(FieldAddress(RBX, RDX, TIMES_8, TypedData::data_offset()), RAX); |
791 __ incq(RDX); // Does not affect carry flag. | 766 __ incq(RDX); // Does not affect carry flag. |
792 __ decq(R8); // Does not affect carry flag. | 767 __ decq(R8); // Does not affect carry flag. |
793 __ j(NOT_ZERO, &carry_loop, Assembler::kNearJump); | 768 __ j(NOT_ZERO, &carry_loop, Assembler::kNearJump); |
794 | 769 |
795 __ Bind(&last_carry); | 770 __ Bind(&last_carry); |
796 __ movq(RAX, Immediate(0)); | 771 Label done; |
797 __ adcq(RAX, Immediate(0)); | 772 __ j(NOT_CARRY, &done); |
798 __ movq(FieldAddress(RBX, RDX, TIMES_8, TypedData::data_offset()), RAX); | 773 __ movq(FieldAddress(RBX, RDX, TIMES_8, TypedData::data_offset()), |
| 774 Immediate(1)); |
799 | 775 |
| 776 __ Bind(&done); |
800 // Returning Object::null() is not required, since this method is private. | 777 // Returning Object::null() is not required, since this method is private. |
801 __ ret(); | 778 __ ret(); |
802 } | 779 } |
803 | 780 |
804 | 781 |
805 void Intrinsifier::Bigint_absSub(Assembler* assembler) { | 782 void Intrinsifier::Bigint_absSub(Assembler* assembler) { |
806 // static void _absSub(Uint32List digits, int used, | 783 // static void _absSub(Uint32List digits, int used, |
807 // Uint32List a_digits, int a_used, | 784 // Uint32List a_digits, int a_used, |
808 // Uint32List r_digits) | 785 // Uint32List r_digits) |
809 | 786 |
(...skipping 1124 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1934 // Set return value to Isolate::current_tag_. | 1911 // Set return value to Isolate::current_tag_. |
1935 __ movq(RAX, Address(RBX, Isolate::current_tag_offset())); | 1912 __ movq(RAX, Address(RBX, Isolate::current_tag_offset())); |
1936 __ ret(); | 1913 __ ret(); |
1937 } | 1914 } |
1938 | 1915 |
1939 #undef __ | 1916 #undef __ |
1940 | 1917 |
1941 } // namespace dart | 1918 } // namespace dart |
1942 | 1919 |
1943 #endif // defined TARGET_ARCH_X64 | 1920 #endif // defined TARGET_ARCH_X64 |
OLD | NEW |