Changeset 9717 for branches

Timestamp:

Jun 9, 2008, 10:15:35 AM (16 years ago)

Author:

R. Matthew Emerson

Message:

verify-socket-buffer: buf type-checking for x8632.

File:

• branches/ia32/level-1/l1-sockets.lisp (modified) (1 diff)

branches/ia32/level-1/l1-sockets.lisp

@@ -817 +817 @@
             #+ppc64-target (= (the fixnum (logand subtype ppc64::fulltagmask))
                               ppc64::ivector-class-8-bit)
+            #+x8632-target (and (<= x8632::min-8-bit-ivector-subtag subtype)
+                                (<= subtype x8632::max-8-bit-ivector-subtag))
             #+x8664-target (and (>= subtype x8664::min-8-bit-ivector-subtag)
                                 (<= subtype x8664::max-8-bit-ivector-subtag))