From d7f02df6e949aaf26706bea3ac79ed65ca792a30 Mon Sep 17 00:00:00 2001 From: Francois Pichet Date: Thu, 28 Apr 2011 03:14:31 +0000 Subject: [PATCH] SEH was crashing under -fms-extensions. git-svn-id: https://llvm.org/svn/llvm-project/cfe/trunk@130377 91177308-0d34-0410-b5e6-96231b3b80d8 --- lib/Parse/ParseStmt.cpp | 17 +++++++++++------ 1 file 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(); -- 2.50.1