From 53f3bc052d283952f21bf71184ffa5854907e975 Mon Sep 17 00:00:00 2001
From: sergei <gorelkin@nanoreflex.ru>
Date: Tue, 18 Feb 2014 01:54:15 +0000
Subject: [PATCH] - Do not compile non-SEH parts of exception handling if SEH
 is used.

git-svn-id: trunk@26805 -
---
 rtl/win32/system.pp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/rtl/win32/system.pp b/rtl/win32/system.pp
index 1a96794342..75f3c76fb9 100644
--- a/rtl/win32/system.pp
+++ b/rtl/win32/system.pp
@@ -161,8 +161,10 @@ procedure OutermostHandler; external name '__FPC_DEFAULT_HANDLER';
                          System Dependent Exit code
 *****************************************************************************}
 
+{$ifndef FPC_USE_WIN32_SEH}
 procedure install_exception_handlers;forward;
 procedure remove_exception_handlers;forward;
+{$endif FPC_USE_WIN32_SEH}
 
 Procedure system_exit;
 begin
@@ -371,6 +373,7 @@ type
 
 {$i seh32.inc}
 
+{$ifndef FPC_USE_WIN32_SEH}
 function SetUnhandledExceptionFilter(lpTopLevelExceptionFilter : TTopLevelExceptionFilter) : TTopLevelExceptionFilter;
         stdcall;external 'kernel32' name 'SetUnhandledExceptionFilter';
 
@@ -546,6 +549,7 @@ procedure remove_exception_handlers;
   begin
     SetUnhandledExceptionFilter(nil);
   end;
+{$endif not FPC_USE_WIN32_SEH}
 
 {$else not cpui386 (Processor specific !!)}
 procedure install_exception_handlers;