Changeset 11228 for trunk/source/level-1


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/x86-callback-support.lisp

    r11192 r11228  
    4747          (%get-unsigned-byte p 2) (ldb (byte 8 8) index)
    4848          (%get-unsigned-byte p 3) (ldb (byte 8 16) index)
    49           (%get-unsigned-byte p 4) (ldb (byte 8 24) (ash (or discard-stack-bytes 0) (- x8632::word-shift)))
     49          (%get-unsigned-byte p 4) (ldb (byte 8 0) (ash (or discard-stack-bytes 0) (- x8632::word-shift)))
    5050          (%get-unsigned-byte p 5) #xff  ; jmp *
    5151          (%get-unsigned-byte p 6) #x24
Note: See TracChangeset for help on using the changeset viewer.