Changeset 11228

Timestamp:

Oct 27, 2008, 12:01:24 AM (11 years ago)

Author:

gb

Message:

Set high byte of index to low byte of discard word count, not high byte ...

File:

• trunk/source/level-1/x86-callback-support.lisp (modified) (1 diff)

trunk/source/level-1/x86-callback-support.lisp

@@ -47 +47 @@
           (%get-unsigned-byte p 2) (ldb (byte 8 8) index)
           (%get-unsigned-byte p 3) (ldb (byte 8 16) index)
-          (%get-unsigned-byte p 4) (ldb (byte 8 24) (ash (or discard-stack-bytes 0) (- x8632::word-shift)))
+          (%get-unsigned-byte p 4) (ldb (byte 8 0) (ash (or discard-stack-bytes 0) (- x8632::word-shift)))
           (%get-unsigned-byte p 5) #xff  ; jmp *
           (%get-unsigned-byte p 6) #x24