Changeset 12777

Timestamp:

Sep 7, 2009, 6:36:37 PM (15 years ago)

Author:

Gary Byers

Message:

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

File:

• trunk/source/lib/dumplisp.lisp (modified) (1 diff)

trunk/source/lib/dumplisp.lisp

@@ -227 +227 @@
                 ;;  "optional header" which appears right after the standard header (20 bytes)
                 ;;  and the PE cookie (4 bytes)
-                (setf (%get-byte buf (+ offset 4 20 68)) application-byte)))
+                (setf (%get-byte buf (+ offset 4 (record-length #>IMAGE_FILE_HEADER) (get-field-offset #>IMAGE_OPTIONAL_HEADER.Subsystem) )) application-byte)))
             (let* ((nwritten (fd-write out-fd buf nread)))
               (declare (fixnum nwritten))