Ignore:
Timestamp:
Nov 16, 2010, 6:01:19 PM (9 years ago)
Author:
rme
Message:

Merge r14425 through r14432 from trunk.

Addresses:

  • foreign FPE handling (see ticket:776 and ticket:715)
  • %get-xcf-byte on x8632 (r14428)
  • make IDE "open selection" slightly smarter (r14429)
  • ensure advapi32.dll is loaded on 64-bit Windows (r14431)
  • Windows shared library improvements (r14432)
Location:
release/1.6/source
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/1.6/source

  • release/1.6/source/level-1/x86-trap-support.lisp

    r13896 r14433  
    318318                        (type (simple-array (unsigned-byte 8) (*)) containing-object))
    319319        (aref containing-object (the fixnum (+ byte-offset delta))))
    320       (%get-unsigned-byte (%int-to-ptr byte-offset) delta))))
     320      ;; xcf.relative-pc is a fixnum, but it might be negative.
     321      (let* ((encoded-pc (%get-ptr xcf-ptr target::xcf.relative-pc))
     322             (pc (ash (%ptr-to-int encoded-pc) (- target::fixnumshift))))
     323        (%get-unsigned-byte (%int-to-ptr pc) delta)))))
    321324
    322325;;; If the byte following a uuo (which is "skip" bytes long, set
Note: See TracChangeset for help on using the changeset viewer.