Changeset 8005

Timestamp:

Jan 5, 2008, 11:56:15 PM (17 years ago)

Author:

Gary Byers

Message:

Slot-unbound-trap terminates a block (why did it ever not do so ?)
by setting "stop" flag.

File:

• branches/working-0711/ccl/compiler/X86/x86-disassemble.lisp (modified) (1 diff)

branches/working-0711/ccl/compiler/X86/x86-disassemble.lisp

@@ -2232 +2232 @@
   (let* ((stop t))
     (cond ((and (>= intop #x70) (< intop #x80))
-           (setq stop nil)
+           ;(setq stop nil)
            (let* ((pseudo-modrm-byte (x86-ds-next-u8 ds)))
              (setf (x86-di-mnemonic instruction)