[Openmcl-cvs-notifications] r11792 - in /trunk/source/lisp-kernel: x86-spentry32.s x86-spentry64.s

[gb at clozure.com]

Author: gb
Date: Wed Feb 25 21:19:01 2009
New Revision: 11792

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

Modified:
    trunk/source/lisp-kernel/x86-spentry32.s
    trunk/source/lisp-kernel/x86-spentry64.s

Modified: trunk/source/lisp-kernel/x86-spentry32.s
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lisp-kernel/x86-spentry32.s (original)
+++ trunk/source/lisp-kernel/x86-spentry32.s Wed Feb 25 21:19:01 2009
@@ -1825,6 +1825,8 @@
 C(egc_set_hash_key_conditional):
 	__(subl $misc_data_offset*fixnumone,%temp0) /* undo pre-added offset */
 	__(sarl $fixnumshift,%temp0)	/* will be fixnum-tagged */
+        .globl C(egc_set_hash_key_conditional_retry)
+C(egc_set_hash_key_conditional_retry):          =

 0:	__(cmpl %arg_y,misc_data_offset(%temp1,%temp0))
 	__(movl misc_data_offset(%temp1,%temp0),%imm0)
 	__(jne 3f)

Modified: trunk/source/lisp-kernel/x86-spentry64.s
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lisp-kernel/x86-spentry64.s (original)
+++ trunk/source/lisp-kernel/x86-spentry64.s Wed Feb 25 21:19:01 2009
@@ -1889,6 +1889,8 @@
 	_spentry(set_hash_key_conditional)
         .globl C(egc_set_hash_key_conditional)
 C(egc_set_hash_key_conditional):
+        .globl C(egc_set_hash_key_conditional_retry)
+C(egc_set_hash_key_conditional_retry):          =

 	__(unbox_fixnum(%temp0,%imm1))
 0:	__(movq (%arg_x,%imm1),%temp1)
 	__(cmpq %arg_y,%temp1)