From 51dc12991626f4fcc57e0b589656d2e6d5f8243c Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Tue, 5 Feb 2008 10:12:30 +0000
Subject: [PATCH]  * lfanew in dosheader aliased with union

git-svn-id: trunk@10229 -
---
 rtl/win/wininc/struct.inc | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/rtl/win/wininc/struct.inc b/rtl/win/wininc/struct.inc
index 61caf4cd0e..b1a5395ca3 100644
--- a/rtl/win/wininc/struct.inc
+++ b/rtl/win/wininc/struct.inc
@@ -6917,7 +6917,9 @@ Const
           e_oemid : WORD;
           e_oeminfo : WORD;
           e_res2 : array[0..9] of WORD;
-          e_lfanew : LONG;
+          case boolean of 
+             true : (e_lfanew : LONG);
+             false: (_lfanew : LONG); // delphi naming
        end;
      PIMAGE_DOS_HEADER = ^IMAGE_DOS_HEADER;
      TIMAGE_DOS_HEADER = IMAGE_DOS_HEADER;