diff options
| author | Eli Friedman <eli.friedman@gmail.com> | 2009-04-01 03:17:08 +0000 |
|---|---|---|
| committer | Eli Friedman <eli.friedman@gmail.com> | 2009-04-01 03:17:08 +0000 |
| commit | 57d7dde770c67b282e7fb77b1b81e429910937b3 (patch) | |
| tree | 2b02edf4270253b9ad095e8b487ecbabb89b6987 /lib/Lex/LiteralSupport.cpp | |
| parent | aec5cabee22888bbc052585bfcfa11eb1d1478cb (diff) | |
Fix pascal string support; testcase from mailing list message.
git-svn-id: https://llvm.org/svn/llvm-project/cfe/trunk@68181 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'lib/Lex/LiteralSupport.cpp')
| -rw-r--r-- | lib/Lex/LiteralSupport.cpp | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/Lex/LiteralSupport.cpp b/lib/Lex/LiteralSupport.cpp index 11bb1f25ad..345291382d 100644 --- a/lib/Lex/LiteralSupport.cpp +++ b/lib/Lex/LiteralSupport.cpp @@ -863,12 +863,13 @@ StringLiteralParser(const Token *StringToks, unsigned NumStringToks, ResultBuf[0] = ResultPtr-&ResultBuf[0]-1; // Verify that pascal strings aren't too large. - if (GetStringLength() > 256) + if (GetStringLength() > 256) { PP.Diag(StringToks[0].getLocation(), diag::err_pascal_string_too_long) << SourceRange(StringToks[0].getLocation(), StringToks[NumStringToks-1].getLocation()); - hadError = 1; - return; + hadError = 1; + return; + } } } |