Changeset 12769

Timestamp:

Sep 6, 2009, 11:11:54 AM (15 years ago)

Author:

Gary Palter

Message:

The field is named E_LFANEW not LFANEW

File:

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

trunk/source/lib/dumplisp.lisp

@@ -214 +214 @@
                                          (:console #$IMAGE_SUBSYSTEM_WINDOWS_CUI)
                                          (:gui #$IMAGE_SUBSYSTEM_WINDOWS_GUI)))
-                     (offset (%get-long buf (get-field-offset #>IMAGE_DOS_HEADER.lfanew))))
+                     (offset (%get-long buf (get-field-offset #>IMAGE_DOS_HEADER.e_lfanew))))
                 (assert (< offset bufsize) () "PE header not within first ~D bytes" bufsize)
                 (assert (= (%get-byte buf (+ offset 0)) (char-code #\P)) ()