Changeset 11792


Ignore:
Timestamp:
Feb 26, 2009, 2:19:01 AM (11 years ago)
Author:
gb
Message:

Add another exported label (etc_set_hash_key_conditional_retry) in
egc_set_hash_key_conditional, for the benefit of pc_luser_xp().

Location:
trunk/source/lisp-kernel
Files:
2 edited

Legend:

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

    r11752 r11792  
    18261826        __(subl $misc_data_offset*fixnumone,%temp0) /* undo pre-added offset */
    18271827        __(sarl $fixnumshift,%temp0)    /* will be fixnum-tagged */
     1828        .globl C(egc_set_hash_key_conditional_retry)
     1829C(egc_set_hash_key_conditional_retry):         
    182818300:      __(cmpl %arg_y,misc_data_offset(%temp1,%temp0))
    18291831        __(movl misc_data_offset(%temp1,%temp0),%imm0)
  • trunk/source/lisp-kernel/x86-spentry64.s

    r11314 r11792  
    18901890        .globl C(egc_set_hash_key_conditional)
    18911891C(egc_set_hash_key_conditional):
     1892        .globl C(egc_set_hash_key_conditional_retry)
     1893C(egc_set_hash_key_conditional_retry):         
    18921894        __(unbox_fixnum(%temp0,%imm1))
    189318950:      __(movq (%arg_x,%imm1),%temp1)
Note: See TracChangeset for help on using the changeset viewer.