Changeset 7747

Timestamp:

Nov 25, 2007, 1:54:27 AM (17 years ago)

Author:

Gary Byers

Message:

_SPmakestacklist: check for unsigned fixnum element-count.

File:

• branches/working-0711/ccl/lisp-kernel/x86-spentry64.s (modified) (2 diffs)

branches/working-0711/ccl/lisp-kernel/x86-spentry64.s

@@ -2700 +2700 @@
 
 _spentry(makestacklist)
+        __(movq $((1<<63)|fixnummask),%imm0)
+        __(testq %imm0,%arg_y)
+        __(jne 9f)
         __(movq %arg_y,%imm0)
         __(addq %imm0,%imm0)
@@ -2724 +2727 @@
         __(movq %temp1,%arg_z)
         __(ret)
+9:      __(uuo_error_reg_not_type(Rarg_y,error_object_not_unsigned_byte))
 _endsubp(makestacklist)