Changeset 11240


Ignore:
Timestamp:
Oct 27, 2008, 9:24:51 PM (11 years ago)
Author:
rme
Message:

Get rid of some commented-out leftover junk.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lisp-kernel/x86-spentry32.s

    r11237 r11240  
    47014701_endsubp(breakpoint)
    47024702
    4703 
    4704 /* %temp1 = array, %temp0 = i,%arg_y = j, %arg_z = k */
    4705 /*
    4706 _spentry(aref3)
    4707         __(testb $fixnummask,%temp0_b)
    4708         __(je 0f)
    4709         __(uuo_error_reg_not_fixnum(Rtemp0))
    4710 0:      __(testl $fixnummask,%arg_y)
    4711         __(je 1f)
    4712         __(uuo_error_reg_not_fixnum(Rarg_y))
    4713 1:      __(testb $fixnummask,%arg_z_b)
    4714         __(je 2f)
    4715         __(uuo_error_reg_not_fixnum(Rarg_z))
    4716 2:      __(extract_typecode(%temp1,%imm0))
    4717         __(cmpb $subtag_arrayH,%imm0_b)
    4718         __(jne 3f)
    4719         __(cmpl $3<<fixnumshift,arrayH.rank(%temp1))
    4720         __(je 4f)
    4721 3:      __(uuo_error_reg_not_type(Rtemp1,error_object_not_array_3d))
    4722 4:      __(cmpl arrayH.dim0(%temp1),%temp0)
    4723         __(jb 5f)
    4724         __(uuo_error_array_bounds(Rtemp0,Rtemp1))
    4725 5:      __(movl arrayH.dim0+node_size(%temp1),%imm0)
    4726         __(cmpl %imm0,%arg_y)
    4727         __(jb 6f)
    4728         __(uuo_error_array_bounds(Rarg_y,Rtemp1))
    4729 6:      __(unbox_fixnum(%imm0,%imm0))
    4730         __(movl arrayH.dim0+(node_size*2)(%temp1),%imm1)
    4731         __(cmpq %imm1,%arg_z)
    4732         __(jb 7f)
    4733         __(uuo_error_array_bounds(Rarg_z,Rtemp0))
    4734 7:      __(unbox_fixnum(%imm1,%imm1))
    4735         __(imulq %imm1,%arg_y)
    4736         __(mulq %imm1)
    4737         __(imulq %imm0,%arg_x)
    4738         __(addq %arg_x,%arg_z)
    4739         __(addq %arg_y,%arg_z)
    4740         __(movq %temp0,%arg_y)
    4741 8:      __(addq arrayH.displacement(%arg_y),%arg_z)
    4742         __(movq arrayH.data_vector(%arg_y),%arg_y)
    4743         __(extract_subtag(%arg_y,%imm1_b))
    4744         __(cmpb $subtag_vectorH,%imm1_b)
    4745         __(ja C(misc_ref_common))
    4746         __(jmp 8b)
    4747 _endsubp(aref3)
    4748 */       
    4749 
    4750 /* %temp1 = array, %imm0 = i, %temp0 = j, %arg_y = k, %arg_z = newval. */
    4751 /*
    4752 _spentry(aset3)
    4753         __(testb $fixnummask,%temp0_b)
    4754         __(je 0f)
    4755         __(uuo_error_reg_not_fixnum(Rtemp0))
    4756 0:      __(testb $fixnummask,%arg_x_b)
    4757         __(je 1f)
    4758         __(uuo_error_reg_not_fixnum(Rarg_x))
    4759 1:      __(testb $fixnummask,%arg_y_b)
    4760         __(je 2f)
    4761         __(uuo_error_reg_not_fixnum(Rarg_y))
    4762 2:      __(extract_typecode(%temp1,%imm0))
    4763         __(cmpb $subtag_arrayH,%imm0_b)
    4764         __(jne 3f)
    4765         __(cmpq $3<<fixnumshift,arrayH.rank(%temp1))
    4766         __(je 4f)
    4767 3:      __(uuo_error_reg_not_type(Rtemp1,error_object_not_array_3d))
    4768 4:      __(cmpq arrayH.dim0(%temp1),%temp0)
    4769         __(jb 5f)
    4770         __(uuo_error_array_bounds(Rtemp0,Rtemp1))
    4771 5:      __(movq arrayH.dim0+node_size(%temp1),%imm0)
    4772         __(cmpq %imm0,%arg_x)
    4773         __(jb 6f)
    4774         __(uuo_error_array_bounds(Rarg_x,Rtemp1))
    4775 6:      __(unbox_fixnum(%imm0,%imm0))
    4776         __(movq arrayH.dim0+(node_size*2)(%temp1),%imm1)
    4777         __(cmpq %imm1,%arg_y)
    4778         __(jb 7f)
    4779         __(uuo_error_array_bounds(Rarg_y,Rtemp1))
    4780 7:      __(unbox_fixnum(%imm1,%imm1))
    4781         __(imulq %imm1,%arg_x)
    4782         __(mulq %imm1)
    4783         __(imulq %imm0,%temp0)
    4784         __(addq %temp0,%arg_y)
    4785         __(addq %arg_x,%arg_y)
    4786         __(movq %temp1,%arg_x)
    4787 8:      __(addq arrayH.displacement(%arg_x),%arg_y)
    4788         __(movq arrayH.data_vector(%arg_x),%arg_x)
    4789         __(extract_subtag(%arg_x,%imm1_b))
    4790         __(cmpb $subtag_vectorH,%imm1_b)
    4791         __(ja C(misc_set_common))
    4792         __(jmp 8b)
    4793 _endsubp(aset3)
    4794 */
    4795 
    47964703_spentry(unused_6)
    47974704        __(int $3)
Note: See TracChangeset for help on using the changeset viewer.