From f2ab52a67474ef8fa34380975beb0a37cb53ffb7 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Sat, 15 Apr 2006 18:32:34 +0000
Subject: [PATCH]  * bug5016 and bug5017

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

diff --git a/rtl/win/wininc/struct.inc b/rtl/win/wininc/struct.inc
index aacffe7505..76cd6e6963 100644
--- a/rtl/win/wininc/struct.inc
+++ b/rtl/win/wininc/struct.inc
@@ -1017,7 +1017,7 @@
      TCONSOLESCREENBUFFERINFO = CONSOLE_SCREEN_BUFFER_INFO;
      PCONSOLESCREENBUFFERINFO = ^CONSOLE_SCREEN_BUFFER_INFO;
 
-{$ifdef __i386__}
+{$ifdef i386}
   type
 
      FLOATING_SAVE_AREA = record
@@ -1630,7 +1630,6 @@
           dwDebugEventCode : DWORD;
           dwProcessId : DWORD;
           dwThreadId : DWORD;
-          u : record
               case longint of
                  0 : ( Exception : EXCEPTION_DEBUG_INFO );
                  1 : ( CreateThread : CREATE_THREAD_DEBUG_INFO );
@@ -1641,7 +1640,6 @@
                  6 : ( UnloadDll : UNLOAD_DLL_DEBUG_INFO );
                  7 : ( DebugString : OUTPUT_DEBUG_STRING_INFO );
                  8 : ( RipInfo : RIP_INFO );
-              end;
        end;
      LPDEBUG_EVENT = ^DEBUG_EVENT;
      _DEBUG_EVENT = DEBUG_EVENT;