From 57d7dde770c67b282e7fb77b1b81e429910937b3 Mon Sep 17 00:00:00 2001 From: Eli Friedman Date: Wed, 1 Apr 2009 03:17:08 +0000 Subject: [PATCH] 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 --- lib/Lex/LiteralSupport.cpp | 7 ++++--- test/CodeGen/pascal-string.c | 8 ++++++++ 2 files changed, 12 insertions(+), 3 deletions(-) create mode 100644 test/CodeGen/pascal-string.c 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; + } } } diff --git a/test/CodeGen/pascal-string.c b/test/CodeGen/pascal-string.c new file mode 100644 index 0000000000..fcd807cde7 --- /dev/null +++ b/test/CodeGen/pascal-string.c @@ -0,0 +1,8 @@ +// RUN: clang-cc -emit-llvm -o - %s -fpascal-strings | grep "05Hello" + +unsigned char * Foo( void ) +{ + static unsigned char s[256] = "\pHello"; + return s; +} + -- 2.40.0