Changeset 9853 for release/1.2/source/lisp-kernel/x86-spentry64.s

Timestamp:

Jun 30, 2008, 3:08:53 PM (11 years ago)

Author:

gb

Message:

From rme's changes to trunk: use CISC-y bitvector instructions.

File:

• release/1.2/source/lisp-kernel/x86-spentry64.s (modified) (7 diffs)

release/1.2/source/lisp-kernel/x86-spentry64.s

@@ -1772 +1772 @@
         __(jae 0b)
         __(ref_global(refbits,%temp0))
-        __(movq %imm0,%imm1)
-        __(andl $63,%imm0_l)
-        __(shrq $bitmap_shift,%imm1)
         __(xorb $63,%imm0_b)
         __(lock)
-        __(btsq %imm0,(%temp0,%imm1,8))
+        __(btsq %imm0,(%temp0))
         __(ret)
 _endsubp(rplaca)
@@ -1794 +1791 @@
         __(jae 0b)
         __(ref_global(refbits,%temp0))
-        __(movq %imm0,%imm1)
-        __(andl $63,%imm0_l)
-        __(shrq $bitmap_shift,%imm1)
         __(xorb $63,%imm0_b)
         __(lock)
-        __(btsq %imm0,(%temp0,%imm1,8))
+        __(btsq %imm0,(%temp0))
         __(ret)
 _endsubp(rplacd)
@@ -1819 +1813 @@
         __(jae 0b)
         __(ref_global(refbits,%temp0))
-        __(movq %imm0,%imm1)
-        __(andl $63,%imm0_l)
-        __(shrq $bitmap_shift,%imm1)
         __(xorb $63,%imm0_b)
         __(lock) 
-        __(btsq %imm0,(%temp0,%imm1,8))
+        __(btsq %imm0,(%temp0))
         __(ret)                
 _endsubp(gvset)
@@ -1846 +1837 @@
         __(jae 0b)
         __(ref_global(refbits,%temp0))
-        __(movq %imm0,%imm1)
-        __(andl $63,%imm0_l)
-        __(shrq $bitmap_shift,%imm1)
         __(xorb $63,%imm0_b)
         __(lock)
-        __( btsq %imm0,(%temp0,%imm1,8))
+        __(btsq %imm0,(%temp0))
         /* Now memoize the address of the hash vector   */
         __(movq %arg_x,%imm0)
         __(subq lisp_global(heap_start),%imm0)
         __(shrq $dnode_shift,%imm0)
-        __(movq %imm0,%imm1)
-        __(andl $63,%imm0_l)
-        __(shrq $bitmap_shift,%imm1)
         __(xorb $63,%imm0_b)
         __(lock)
-        __(btsq %imm0,(%temp0,%imm1,8))
+        __(btsq %imm0,(%temp0))
         __(ret)                
 _endsubp(set_hash_key)
@@ -1890 +1875 @@
         __(ref_global(refbits,%temp1))
         __(jae 2f)
-        __(movq %imm0,%imm1)
-        __(andl $63,%imm0_l)
-        __(shrq $bitmap_shift,%imm1)
         __(xorb $63,%imm0_b)
         __(lock)
-        __(btsq %imm0,(%temp1,%imm1,8))
+        __(btsq %imm0,(%temp1))
         .globl C(egc_write_barrier_end)
 C(egc_write_barrier_end):
@@ -1940 +1922 @@
 8:      __(movq $XIMPROPERLIST,%arg_y)
         __(set_nargs(2))
-        __(push %ra0)
         __(jmp _SPksignalerr)
 9:      /* Whew           */
@@ -2402 +2383 @@
         __(subl %imm0_l,%imm1_l)
         __(movl $nil_value,%arg_z_l)
-        __(je 2f)       /* empty list ; make an empty TSP frame   */
+        __(jle 2f)      /* empty list ; make an empty TSP frame   */
         __(addq %imm1,%imm1)
         __(cmpq $(tstack_alloc_limit-dnode_size),%imm1)