Changeset 12777


Ignore:
Timestamp:
Sep 8, 2009, 1:36:37 AM (10 years ago)
Author:
gb
Message:

Find and check in the right version of this; use the FFI to compute
structure sizes and field offsets.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/dumplisp.lisp

    r12769 r12777  
    227227                ;;  "optional header" which appears right after the standard header (20 bytes)
    228228                ;;  and the PE cookie (4 bytes)
    229                 (setf (%get-byte buf (+ offset 4 20 68)) application-byte)))
     229                (setf (%get-byte buf (+ offset 4 (record-length #>IMAGE_FILE_HEADER) (get-field-offset #>IMAGE_OPTIONAL_HEADER.Subsystem) )) application-byte)))
    230230            (let* ((nwritten (fd-write out-fd buf nread)))
    231231              (declare (fixnum nwritten))
Note: See TracChangeset for help on using the changeset viewer.