SEH was crashing under -fms-extensions.

git-svn-id: https://llvm.org/svn/llvm-project/cfe/trunk@130377 91177308-0d34-0410-b5e6-96231b3b80d8

1 files changed, 11 insertions, 6 deletions

diff --git a/lib/Parse/ParseStmt.cpp b/lib/Parse/ParseStmt.cpp
index 3741ccbca1..f0ab531080 100644
--- a/lib/Parse/ParseStmt.cpp
+++ b/lib/Parse/ParseStmt.cpp
@@ -386,13 +386,18 @@ StmtResult Parser::ParseSEHExceptBlock(SourceLocation ExceptLoc) {
 
   ParseScope ExpectScope(this, Scope::DeclScope | Scope::ControlScope);
 
-  Ident__exception_info->setIsPoisoned(false);
-  Ident___exception_info->setIsPoisoned(false);
-  Ident_GetExceptionInfo->setIsPoisoned(false);
+  if (getLang().Borland) {
+    Ident__exception_info->setIsPoisoned(false);
+    Ident___exception_info->setIsPoisoned(false);
+    Ident_GetExceptionInfo->setIsPoisoned(false);
+  }
   ExprResult FilterExpr(ParseExpression());
-  Ident__exception_info->setIsPoisoned(true);
-  Ident___exception_info->setIsPoisoned(true);
-  Ident_GetExceptionInfo->setIsPoisoned(true);
+
+  if (getLang().Borland) {
+    Ident__exception_info->setIsPoisoned(true);
+    Ident___exception_info->setIsPoisoned(true);
+    Ident_GetExceptionInfo->setIsPoisoned(true);
+  }
 
   if(FilterExpr.isInvalid())
     return StmtError();