Changeset 5423

Timestamp:

Oct 24, 2006, 12:29:14 AM (18 years ago)

Author:

Gary Byers

Message:

Fix :ALLOW-OTHER-KEYS check in _SPdestbind1 (still used in inlining, sometimes.)

File:

• trunk/ccl/lisp-kernel/x86-spentry64.s (modified) (2 diffs)

trunk/ccl/lisp-kernel/x86-spentry64.s

@@ -2881 +2881 @@
 local_label(opt):       
         __(movw %nargs,%imm0_w)
-        __(shrl $8,%imm0_l)
+        __(shrw $8,%imm0_w)
         __(je local_label(rest_keys))
         __(btl $initopt_bit,%nargs_l)
@@ -3001 +3001 @@
         __(subl $1,%imm0_l)
         __(btsl $seen_aok_bit,%nargs_l)
-        __(jnc local_label(match_keys_loop))
+        __(jc local_label(match_keys_loop))
         /* First time we've seen :allow-other-keys.  Maybe set aok_bit.   */
         __(compare_reg_to_nil(%save3))