| 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 // The intrinsic code below is executed before a method has built its frame. | 5 // The intrinsic code below is executed before a method has built its frame. |
| 6 // The return address is on the stack and the arguments below it. | 6 // The return address is on the stack and the arguments below it. |
| 7 // Registers EDX (arguments descriptor) and ECX (function) must be preserved. | 7 // Registers EDX (arguments descriptor) and ECX (function) must be preserved. |
| 8 // Each intrinsification method returns true if the corresponding | 8 // Each intrinsification method returns true if the corresponding |
| 9 // Dart method was intrinsified. | 9 // Dart method was intrinsified. |
| 10 | 10 |
| (...skipping 1691 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 1702 __ cmpl(EAX, Address(ESP, + 2 * kWordSize)); | 1702 __ cmpl(EAX, Address(ESP, + 2 * kWordSize)); |
| 1703 __ j(EQUAL, &is_true, Assembler::kNearJump); | 1703 __ j(EQUAL, &is_true, Assembler::kNearJump); |
| 1704 __ LoadObject(EAX, Bool::False()); | 1704 __ LoadObject(EAX, Bool::False()); |
| 1705 __ ret(); | 1705 __ ret(); |
| 1706 __ Bind(&is_true); | 1706 __ Bind(&is_true); |
| 1707 __ LoadObject(EAX, Bool::True()); | 1707 __ LoadObject(EAX, Bool::True()); |
| 1708 __ ret(); | 1708 __ ret(); |
| 1709 } | 1709 } |
| 1710 | 1710 |
| 1711 | 1711 |
| 1712 static void RangeCheck(Assembler* assembler, | |
| 1713 Register reg, | |
| 1714 intptr_t low, | |
| 1715 intptr_t high, | |
| 1716 Condition cc, | |
| 1717 Label* target) { | |
| 1718 __ subl(reg, Immediate(low)); | |
| 1719 __ cmpl(reg, Immediate(high - low)); | |
| 1720 __ j(cc, target); | |
| 1721 } | |
| 1722 | |
| 1723 | |
| 1724 const Condition kIfNotInRange = ABOVE; | |
| 1725 const Condition kIfInRange = BELOW_EQUAL; | |
| 1726 | |
| 1727 | |
| 1728 static void JumpIfInteger(Assembler* assembler, | |
| 1729 Register cid, | |
| 1730 Label* target) { | |
| 1731 RangeCheck(assembler, cid, kSmiCid, kBigintCid, kIfInRange, target); | |
| 1732 } | |
| 1733 | |
| 1734 | |
| 1735 static void JumpIfNotInteger(Assembler* assembler, | |
| 1736 Register cid, | |
| 1737 Label* target) { | |
| 1738 RangeCheck(assembler, cid, kSmiCid, kBigintCid, kIfNotInRange, target); | |
| 1739 } | |
| 1740 | |
| 1741 | |
| 1742 static void JumpIfString(Assembler* assembler, | |
| 1743 Register cid, | |
| 1744 Label* target) { | |
| 1745 RangeCheck(assembler, | |
| 1746 cid, | |
| 1747 kOneByteStringCid, | |
| 1748 kExternalTwoByteStringCid, | |
| 1749 kIfInRange, | |
| 1750 target); | |
| 1751 } | |
| 1752 | |
| 1753 | |
| 1754 static void JumpIfNotString(Assembler* assembler, | |
| 1755 Register cid, | |
| 1756 Label* target) { | |
| 1757 RangeCheck(assembler, | |
| 1758 cid, | |
| 1759 kOneByteStringCid, | |
| 1760 kExternalTwoByteStringCid, | |
| 1761 kIfNotInRange, | |
| 1762 target); | |
| 1763 } | |
| 1764 | |
| 1765 | |
| 1766 // Return type quickly for simple types (not parameterized and not signature). | 1712 // Return type quickly for simple types (not parameterized and not signature). |
| 1767 void Intrinsifier::ObjectRuntimeType(Assembler* assembler) { | 1713 void Intrinsifier::ObjectRuntimeType(Assembler* assembler) { |
| 1768 Label fall_through, use_canonical_type, not_double, not_integer; | 1714 Label fall_through; |
| 1769 __ movl(EAX, Address(ESP, + 1 * kWordSize)); | 1715 __ movl(EAX, Address(ESP, + 1 * kWordSize)); |
| 1770 __ LoadClassIdMayBeSmi(EDI, EAX); | 1716 __ LoadClassIdMayBeSmi(EDI, EAX); |
| 1717 __ cmpl(EDI, Immediate(kClosureCid)); |
| 1718 __ j(EQUAL, &fall_through, Assembler::kNearJump); // Instance is a closure. |
| 1719 __ LoadClassById(EBX, EDI); |
| 1720 // EBX: class of instance (EAX). |
| 1771 | 1721 |
| 1772 __ cmpl(EDI, Immediate(kClosureCid)); | |
| 1773 __ j(EQUAL, &fall_through); // Instance is a closure. | |
| 1774 | |
| 1775 __ cmpl(EDI, Immediate(kNumPredefinedCids)); | |
| 1776 __ j(ABOVE, &use_canonical_type); | |
| 1777 | |
| 1778 // If object is a instance of _Double return double type. | |
| 1779 __ cmpl(EDI, Immediate(kDoubleCid)); | |
| 1780 __ j(NOT_EQUAL, ¬_double); | |
| 1781 | |
| 1782 __ LoadIsolate(EAX); | |
| 1783 __ movl(EAX, Address(EAX, Isolate::object_store_offset())); | |
| 1784 __ movl(EAX, Address(EAX, ObjectStore::double_type_offset())); | |
| 1785 __ ret(); | |
| 1786 | |
| 1787 __ Bind(¬_double); | |
| 1788 // If object is an integer (smi, mint or bigint) return int type. | |
| 1789 __ movl(EAX, EDI); | |
| 1790 JumpIfNotInteger(assembler, EAX, ¬_integer); | |
| 1791 | |
| 1792 __ LoadIsolate(EAX); | |
| 1793 __ movl(EAX, Address(EAX, Isolate::object_store_offset())); | |
| 1794 __ movl(EAX, Address(EAX, ObjectStore::int_type_offset())); | |
| 1795 __ ret(); | |
| 1796 | |
| 1797 __ Bind(¬_integer); | |
| 1798 // If object is a string (one byte, two byte or external variants) return | |
| 1799 // string type. | |
| 1800 __ movl(EAX, EDI); | |
| 1801 JumpIfNotString(assembler, EAX, &use_canonical_type); | |
| 1802 | |
| 1803 __ LoadIsolate(EAX); | |
| 1804 __ movl(EAX, Address(EAX, Isolate::object_store_offset())); | |
| 1805 __ movl(EAX, Address(EAX, ObjectStore::string_type_offset())); | |
| 1806 __ ret(); | |
| 1807 | |
| 1808 // Object is neither double, nor integer, nor string. | |
| 1809 __ Bind(&use_canonical_type); | |
| 1810 __ LoadClassById(EBX, EDI); | |
| 1811 __ movzxw(EDI, FieldAddress(EBX, Class::num_type_arguments_offset())); | 1722 __ movzxw(EDI, FieldAddress(EBX, Class::num_type_arguments_offset())); |
| 1812 __ cmpl(EDI, Immediate(0)); | 1723 __ cmpl(EDI, Immediate(0)); |
| 1813 __ j(NOT_EQUAL, &fall_through, Assembler::kNearJump); | 1724 __ j(NOT_EQUAL, &fall_through, Assembler::kNearJump); |
| 1814 __ movl(EAX, FieldAddress(EBX, Class::canonical_type_offset())); | 1725 __ movl(EAX, FieldAddress(EBX, Class::canonical_type_offset())); |
| 1815 __ CompareObject(EAX, Object::null_object()); | 1726 __ CompareObject(EAX, Object::null_object()); |
| 1816 __ j(EQUAL, &fall_through, Assembler::kNearJump); // Not yet set. | 1727 __ j(EQUAL, &fall_through, Assembler::kNearJump); // Not yet set. |
| 1817 __ ret(); | 1728 __ ret(); |
| 1818 | 1729 |
| 1819 __ Bind(&fall_through); | 1730 __ Bind(&fall_through); |
| 1820 } | 1731 } |
| 1821 | 1732 |
| 1822 | 1733 |
| 1823 void Intrinsifier::ObjectHaveSameRuntimeType(Assembler* assembler) { | |
| 1824 Label fall_through, different_cids, equal, not_equal, not_integer; | |
| 1825 | |
| 1826 __ movl(EAX, Address(ESP, + 1 * kWordSize)); | |
| 1827 __ LoadClassIdMayBeSmi(EDI, EAX); | |
| 1828 | |
| 1829 // Check if left hand size is a closure. Closures are handled in the runtime. | |
| 1830 __ cmpl(EDI, Immediate(kClosureCid)); | |
| 1831 __ j(EQUAL, &fall_through); | |
| 1832 | |
| 1833 __ movl(EAX, Address(ESP, + 2 * kWordSize)); | |
| 1834 __ LoadClassIdMayBeSmi(EBX, EAX); | |
| 1835 | |
| 1836 // Check whether class ids match. If class ids don't match objects can still | |
| 1837 // have the same runtime type (e.g. multiple string implementation classes | |
| 1838 // map to a single String type). | |
| 1839 __ cmpl(EDI, EBX); | |
| 1840 __ j(NOT_EQUAL, &different_cids); | |
| 1841 | |
| 1842 // Objects have the same class and neither is a closure. | |
| 1843 // Check if there are no type arguments. In this case we can return true. | |
| 1844 // Otherwise fall through into the runtime to handle comparison. | |
| 1845 __ LoadClassById(EBX, EDI); | |
| 1846 __ movzxw(EBX, FieldAddress(EBX, Class::num_type_arguments_offset())); | |
| 1847 __ cmpl(EBX, Immediate(0)); | |
| 1848 __ j(NOT_EQUAL, &fall_through, Assembler::kNearJump); | |
| 1849 | |
| 1850 __ Bind(&equal); | |
| 1851 __ LoadObject(EAX, Bool::True()); | |
| 1852 __ ret(); | |
| 1853 | |
| 1854 // Class ids are different. Check if we are comparing runtime types of | |
| 1855 // two strings (with different representations) or two integers. | |
| 1856 __ Bind(&different_cids); | |
| 1857 __ cmpl(EDI, Immediate(kNumPredefinedCids)); | |
| 1858 __ j(ABOVE_EQUAL, ¬_equal); | |
| 1859 | |
| 1860 __ movl(EAX, EDI); | |
| 1861 JumpIfNotInteger(assembler, EAX, ¬_integer); | |
| 1862 | |
| 1863 // First object is an integer. Check if the second is an integer too. | |
| 1864 // Otherwise types are unequal because only integers have the same runtime | |
| 1865 // type as other integers. | |
| 1866 JumpIfInteger(assembler, EBX, &equal); | |
| 1867 __ jmp(¬_equal); | |
| 1868 | |
| 1869 __ Bind(¬_integer); | |
| 1870 // Check if the first object is a string. If it is not then | |
| 1871 // objects don't have the same runtime type because they have | |
| 1872 // different class ids and they are not strings or integers. | |
| 1873 JumpIfNotString(assembler, EDI, ¬_equal); | |
| 1874 // First object is a string. Check if the second is a string too. | |
| 1875 JumpIfString(assembler, EBX, &equal); | |
| 1876 // Strings only have the same runtime type as other strings. | |
| 1877 // Fall-through to the not equal case. | |
| 1878 | |
| 1879 __ Bind(¬_equal); | |
| 1880 __ LoadObject(EAX, Bool::False()); | |
| 1881 __ ret(); | |
| 1882 | |
| 1883 __ Bind(&fall_through); | |
| 1884 } | |
| 1885 | |
| 1886 | |
| 1887 void Intrinsifier::String_getHashCode(Assembler* assembler) { | 1734 void Intrinsifier::String_getHashCode(Assembler* assembler) { |
| 1888 Label fall_through; | 1735 Label fall_through; |
| 1889 __ movl(EAX, Address(ESP, + 1 * kWordSize)); // String object. | 1736 __ movl(EAX, Address(ESP, + 1 * kWordSize)); // String object. |
| 1890 __ movl(EAX, FieldAddress(EAX, String::hash_offset())); | 1737 __ movl(EAX, FieldAddress(EAX, String::hash_offset())); |
| 1891 __ cmpl(EAX, Immediate(0)); | 1738 __ cmpl(EAX, Immediate(0)); |
| 1892 __ j(EQUAL, &fall_through, Assembler::kNearJump); | 1739 __ j(EQUAL, &fall_through, Assembler::kNearJump); |
| 1893 __ ret(); | 1740 __ ret(); |
| 1894 __ Bind(&fall_through); | 1741 __ Bind(&fall_through); |
| 1895 // Hash not yet computed. | 1742 // Hash not yet computed. |
| 1896 } | 1743 } |
| (...skipping 434 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 2331 __ Bind(&true_label); | 2178 __ Bind(&true_label); |
| 2332 __ LoadObject(EAX, Bool::True()); | 2179 __ LoadObject(EAX, Bool::True()); |
| 2333 __ ret(); | 2180 __ ret(); |
| 2334 } | 2181 } |
| 2335 | 2182 |
| 2336 #undef __ | 2183 #undef __ |
| 2337 | 2184 |
| 2338 } // namespace dart | 2185 } // namespace dart |
| 2339 | 2186 |
| 2340 #endif // defined TARGET_ARCH_IA32 | 2187 #endif // defined TARGET_ARCH_IA32 |
| OLD | NEW |