Changeset 9853 for release/1.2/source/lisp-kernel/x86-spentry64.s
- Timestamp:
- Jun 30, 2008, 3:08:53 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
release/1.2/source/lisp-kernel/x86-spentry64.s
r9057 r9853 1772 1772 __(jae 0b) 1773 1773 __(ref_global(refbits,%temp0)) 1774 __(movq %imm0,%imm1)1775 __(andl $63,%imm0_l)1776 __(shrq $bitmap_shift,%imm1)1777 1774 __(xorb $63,%imm0_b) 1778 1775 __(lock) 1779 __(btsq %imm0,(%temp0 ,%imm1,8))1776 __(btsq %imm0,(%temp0)) 1780 1777 __(ret) 1781 1778 _endsubp(rplaca) … … 1794 1791 __(jae 0b) 1795 1792 __(ref_global(refbits,%temp0)) 1796 __(movq %imm0,%imm1)1797 __(andl $63,%imm0_l)1798 __(shrq $bitmap_shift,%imm1)1799 1793 __(xorb $63,%imm0_b) 1800 1794 __(lock) 1801 __(btsq %imm0,(%temp0 ,%imm1,8))1795 __(btsq %imm0,(%temp0)) 1802 1796 __(ret) 1803 1797 _endsubp(rplacd) … … 1819 1813 __(jae 0b) 1820 1814 __(ref_global(refbits,%temp0)) 1821 __(movq %imm0,%imm1)1822 __(andl $63,%imm0_l)1823 __(shrq $bitmap_shift,%imm1)1824 1815 __(xorb $63,%imm0_b) 1825 1816 __(lock) 1826 __(btsq %imm0,(%temp0 ,%imm1,8))1817 __(btsq %imm0,(%temp0)) 1827 1818 __(ret) 1828 1819 _endsubp(gvset) … … 1846 1837 __(jae 0b) 1847 1838 __(ref_global(refbits,%temp0)) 1848 __(movq %imm0,%imm1)1849 __(andl $63,%imm0_l)1850 __(shrq $bitmap_shift,%imm1)1851 1839 __(xorb $63,%imm0_b) 1852 1840 __(lock) 1853 __( btsq %imm0,(%temp0,%imm1,8))1841 __(btsq %imm0,(%temp0)) 1854 1842 /* Now memoize the address of the hash vector */ 1855 1843 __(movq %arg_x,%imm0) 1856 1844 __(subq lisp_global(heap_start),%imm0) 1857 1845 __(shrq $dnode_shift,%imm0) 1858 __(movq %imm0,%imm1)1859 __(andl $63,%imm0_l)1860 __(shrq $bitmap_shift,%imm1)1861 1846 __(xorb $63,%imm0_b) 1862 1847 __(lock) 1863 __(btsq %imm0,(%temp0 ,%imm1,8))1848 __(btsq %imm0,(%temp0)) 1864 1849 __(ret) 1865 1850 _endsubp(set_hash_key) … … 1890 1875 __(ref_global(refbits,%temp1)) 1891 1876 __(jae 2f) 1892 __(movq %imm0,%imm1)1893 __(andl $63,%imm0_l)1894 __(shrq $bitmap_shift,%imm1)1895 1877 __(xorb $63,%imm0_b) 1896 1878 __(lock) 1897 __(btsq %imm0,(%temp1 ,%imm1,8))1879 __(btsq %imm0,(%temp1)) 1898 1880 .globl C(egc_write_barrier_end) 1899 1881 C(egc_write_barrier_end): … … 1940 1922 8: __(movq $XIMPROPERLIST,%arg_y) 1941 1923 __(set_nargs(2)) 1942 __(push %ra0)1943 1924 __(jmp _SPksignalerr) 1944 1925 9: /* Whew */ … … 2402 2383 __(subl %imm0_l,%imm1_l) 2403 2384 __(movl $nil_value,%arg_z_l) 2404 __(j e 2f) /* empty list ; make an empty TSP frame */2385 __(jle 2f) /* empty list ; make an empty TSP frame */ 2405 2386 __(addq %imm1,%imm1) 2406 2387 __(cmpq $(tstack_alloc_limit-dnode_size),%imm1)
Note: See TracChangeset
for help on using the changeset viewer.